[JVCL-Checkins] dev/JVCL3/run JvValidateEdit.pas,1.41,1.42 - Mantis 3493: Now sets the color properly

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23326/dev/JVCL3/run

Modified Files:
	JvValidateEdit.pas 
Log Message:
Mantis 3493: Now sets the color properly


Index: JvValidateEdit.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvValidateEdit.pas,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** JvValidateEdit.pas	25 Jan 2006 14:16:34 -0000	1.41
--- JvValidateEdit.pas	9 Feb 2006 21:24:51 -0000	1.42
***************
*** 915,921 ****
    else
    begin
-     if (FCriticalPoints.CheckPoints <> cpNone) and
-       (FDisplayFormat in [dfBinary, dfCurrency, dfFloat, dfHex, dfInteger, dfOctal, dfPercent, dfScientific, dfYear]) then
-       SetFontColor;
      case FDisplayFormat of
        dfCurrency:
--- 915,918 ----
***************
*** 932,935 ****
--- 929,940 ----
        ChangeText(FEditText);
      end;
+ 
+     // This needs to be done AFTER the text has been changed so that the color
+     // is directly shown correctly. (Mantis 3493)
+     if (FCriticalPoints.CheckPoints <> cpNone) and
+       (FDisplayFormat in [dfBinary, dfCurrency, dfFloat, dfHex, dfInteger, dfOctal, dfPercent, dfScientific, dfYear]) then
+     begin
+       SetFontColor;
+     end;
    end;
  end;