paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't call Change two times when TDateEdit changes (fixes issue #0014977)

Browse Source 
git-svn-id: trunk@23213 -
This commit is contained in:
paul 2009-12-21 10:12:25 +00:00
parent d08379fcd7
commit c238c57405
2 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/editbtn.pas
View File

@ -1080,29 +1080,30 @@ begin
if Value = NullDate then
Text := ''
else
begin
If (FDateFormat='') then
Text:=DateToStr(Value)
begin
if (FDateFormat = '') then
Text := DateToStr(Value)
else
Text:=FormatDateTime(FDateFormat,Value)
end;
if D <> Date then
Change;
Text := FormatDateTime(FDateFormat, Value)
end;
// don't call Change - it is called by assignment to Text
// if D <> Date then
// Change;
end;
procedure TDateEdit.CalendarPopupReturnDate(Sender: TObject;
const ADate: TDateTime);
var
B:Boolean;
D:TDateTime;
B: Boolean;
D: TDateTime;
begin
try
B:=true;
D:=ADate;
B := True;
D := ADate;
if Assigned(FOnAcceptDate) then
FOnAcceptDate(Self, D, B);
if B then
Self.Date:=D;
if B then
Self.Date := D;
except
on E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);

2
lcl/forms/calendarpopup.pas
View File

@ -137,7 +137,7 @@ end;
procedure TCalendarPopupForm.ReturnDate;
begin
if assigned(FOnReturnDate) then
if Assigned(FOnReturnDate) then
FOnReturnDate(Self, Calendar.DateTime);
if not FClosed then
Close;