From 1afe8cae42b4b5efc2049c589054b0f86d633b54 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 21 Feb 2012 16:12:20 +0200
Subject: fpg_edit: setting the text color via the field variable instead.

If setting the text color via the TextColor property, then FOldColor get
overwritten and we loose the real old color.
---
 src/gui/fpg_edit.pas | 4 ++--
 1 file 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;
-- 
cgit v1.2.3-70-g09d2