From: Olivier S. <ob...@us...> - 2005-05-25 17:58:59
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32538/dev/JVCL3/run Modified Files: JvToolEdit.pas Log Message: Mantis 2580: Modified is now set correctly Index: JvToolEdit.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvToolEdit.pas,v retrieving revision 1.174 retrieving revision 1.175 diff -C2 -d -r1.174 -r1.175 *** JvToolEdit.pas 14 May 2005 19:19:57 -0000 1.174 --- JvToolEdit.pas 25 May 2005 17:58:49 -0000 1.175 *************** *** 4010,4013 **** --- 4010,4014 ---- var D: TDateTime; + SavedModified : Boolean; begin if not ValidDate(Value) or (Value = NullDate) then *************** *** 4019,4022 **** --- 4020,4024 ---- end; D := Self.Date; + SavedModified := Modified; TestDateBetween(Value); // Polaris if Value = NullDate then *************** *** 4024,4028 **** else Text := FormatDateTime(FDateFormat, Value); ! Modified := D <> Self.Date; end; --- 4026,4030 ---- else Text := FormatDateTime(FDateFormat, Value); ! Modified := SavedModified or (D <> Self.Date); end; |