From 0be503e7108d81fb28bbb748f785b6fd9c9de56a Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 21 Feb 2012 13:15:10 +0200
Subject: fpg_edit: Setting TextColor in numeric edit components never updated
 OldColor value.

---
 src/gui/fpg_edit.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/gui/fpg_edit.pas')

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;
-- 
cgit v1.2.3-70-g09d2