paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 03:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TDateEdit scrambling from Salvatore

Browse Source 
git-svn-id: trunk@8059 -
This commit is contained in:
mattias 2005-11-04 17:09:46 +00:00
parent fb21c9e863
commit 70601ab4a9
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/editbtn.pas
View File

@ -307,7 +307,7 @@ type
procedure SetDate(const Value: TDateTime);
protected
procedure DoButtonClick (Sender: TObject); override;
procedure Change; override;
procedure EditingDone; override;
procedure DblClick; override;
public
constructor Create(AOwner: TComponent); override;
@ -864,17 +864,18 @@ begin
FreeAndNil(CD);
end;
procedure TDateEdit.Change;//(Sender:TObject);
procedure TDateEdit.EditingDone;
var Datetmp: TDate;
begin
inherited Change;//(Sender);
//debugln('TDateEdit.Change Text="',Text,'"');
inherited EditingDone;
//debugln('TDateEdit.EditingDone Text="',Text,'"');
try
Datetmp:=StrToDate(Text);
// if this worked, then adjust it to current format
Date:=Datetmp;
except
// invalid date: the user is probably currently editing
Text:=DateToStr(Date);
// invalid date: keep the old;
end;
end;