diff options
-rw-r--r-- | src/gui/fpg_edit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 0bad7ee1..6ac32112 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -1775,9 +1775,9 @@ procedure TfpgBaseNumericEdit.AdjustColorForNegativeValues; begin // Colour negative number if LeftStr(Text,1) = '-' then - TextColor := NegativeColor + FTextColor := NegativeColor else - TextColor := OldColor; + FTextColor := OldColor; end; function TfpgBaseNumericEdit.GetMarginAdjustment: integer; |