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

DateTimePicker: a small cleanup

Browse Source 
git-svn-id: trunk@59891 -
This commit is contained in:
zoran 2018-12-22 09:04:00 +00:00
parent 09fe63779a
commit 6a64348cd5
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/datetimectrls/datetimepicker.pas
View File

@ -728,14 +728,7 @@ begin
if AndSetTheDate then begin
Inc(DTPicker.FUserChanging);
try
if DTPicker.DateIsNull then begin
// we'll set the time to 0.0 (midnight):
DTPicker.SetDateTime(Int(Cal.GetDate));
end else if not EqualDateTime(Int(DTPicker.DateTime),
Int(Cal.GetDate)) then begin
// we'll change the date, but keep the time:
DTPicker.SetDateTime(ComposeDateTime(Cal.GetDate, DTPicker.DateTime));
end;
DTPicker.SetDate(Cal.GetDate);
DTPicker.DoAutoCheck;
finally
Dec(DTPicker.FUserChanging);
@ -935,12 +928,7 @@ begin
if Assigned(DTPickersParentForm) then
DTPickersParentForm.RemoveAllHandlersOfObject(Self);
if Assigned(Cal) then begin
Cal.GetCalendarControl.OnResize := nil;
Cal.GetCalendarControl.OnClick := nil;
Cal.Free;
Cal := nil;
end;
FreeAndNil(Cal);
FreeAndNil(Shape);
if Assigned(DTPicker) then begin