fpg_edit: Setting TextColor in numeric edit components never updated OldColor value.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index e04f02eb..9c96f489 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -216,6 +216,7 @@ type
   protected
     function    GetMarginAdjustment: integer; override;
     procedure   HandlePaint; override;
+    procedure   SetTextColor(const AValue: TfpgColor); override;
     procedure   FormatEdit; virtual;
     procedure   Justify; virtual; // to implement in derived classes
     property    OldColor: TfpgColor read FOldColor write SetOldColor;
@@ -1825,6 +1826,15 @@ begin
   end;
 end;
 
+procedure TfpgBaseNumericEdit.SetTextColor(const AValue: TfpgColor);
+begin
+  if FTextColor = AValue then
+    Exit; //==>
+  FTextColor := AValue;
+  FOldColor := AValue;
+  Repaint;
+end;
+
 procedure TfpgBaseNumericEdit.FormatEdit;
 begin
   SetShowThousand;