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

win32: don't reopen hidden form when application is restored. Issue #30000, patch by errno.

Browse Source 
git-svn-id: trunk@52395 -
This commit is contained in:
ondrej 2016-05-27 13:26:06 +00:00
parent 9e1350ef21
commit 22c9aa947d
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32callback.inc
View File

@ -1743,7 +1743,10 @@ begin
else else
Flags := SW_SHOWNOACTIVATE; Flags := SW_SHOWNOACTIVATE;
Windows.ShowWindow(Win32WidgetSet.AppHandle, Flags); Windows.ShowWindow(Win32WidgetSet.AppHandle, Flags);
end; end
else
if Assigned(lWinControl) and (WParam <> 0) and not lWinControl.Visible then
WinProcess := false;
end; end;
procedure TWindowProcHelper.DoMsgSysKey(aMsg: Cardinal); procedure TWindowProcHelper.DoMsgSysKey(aMsg: Cardinal);

2
lcl/interfaces/win32/win32wsforms.pp
View File

@ -373,7 +373,7 @@ begin
end; end;
SW_PARENTOPENING: SW_PARENTOPENING:
begin begin
if Info^.RestoreState <> 0 then if (Info^.RestoreState <> 0) and WinControl.Visible then
begin begin
Windows.ShowWindowAsync(Window, Info^.RestoreState); Windows.ShowWindowAsync(Window, Info^.RestoreState);
Info^.RestoreState := 0; Info^.RestoreState := 0;