mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-26 12:42:09 +01:00
components: datetimepicker: always update date on CreateWnd. Issue #31571
git-svn-id: trunk@54495 -
This commit is contained in:
parent
8fd750e576
commit
bf733a19c0
@ -2992,11 +2992,11 @@ procedure TCustomDateTimePicker.CreateWnd;
|
|||||||
begin
|
begin
|
||||||
inherited CreateWnd;
|
inherited CreateWnd;
|
||||||
|
|
||||||
|
UpdateDate;
|
||||||
if FDoNotArrangeControls then begin { This field is set to True in constructor.
|
if FDoNotArrangeControls then begin { This field is set to True in constructor.
|
||||||
Its purpose is to prevent control anchoring until this point. That's because
|
Its purpose is to prevent control anchoring until this point. That's because
|
||||||
on Linux Lazarus crashes when control is dropped on form in designer if
|
on Linux Lazarus crashes when control is dropped on form in designer if
|
||||||
particular anchoring code executes before CreateWnd has done its job. }
|
particular anchoring code executes before CreateWnd has done its job. }
|
||||||
UpdateDate;
|
|
||||||
FDoNotArrangeControls := False;
|
FDoNotArrangeControls := False;
|
||||||
ArrangeCtrls;
|
ArrangeCtrls;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user