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

LCL: Wait for the first WMSize() before triggering onShow()/onActivate() of a form. Issue #36127, patch from Joeny Ang.

Browse Source 
git-svn-id: trunk@62113 -
This commit is contained in:
juha 2019-10-24 22:34:22 +00:00
parent f955aac408
commit 106e142af0
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/customform.inc
View File

@ -691,19 +691,22 @@ begin
end;
DoOnChangeBounds; // delayed onChangeBounds()
end;
{ call onShow() or onActivate() for the first time, after first WMSize }
if FDelayedWMSize then
begin
if FIsFirstOnShow then
begin
FIsFirstOnShow := False;
DoShow;
end;
if FIsFirstOnActivate then
begin
FIsFirstOnActivate := False;
Activate;
end;
end;
FDelayedWMMove := False;
FDelayedWMSize := False;
{ call onShow() or onActivate() for the first time }
if FIsFirstOnShow then
begin
FIsFirstOnShow := False;
DoShow;
end;
if FIsFirstOnActivate then
begin
FIsFirstOnActivate := False;
Activate;
end;
end;
procedure TCustomForm.WMWindowPosChanged(var Message: TLMWindowPosChanged);