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

win32: fix minimizing modal windows for Application.MainFormOnTaskbar=True, Issue #26463 and #29744

Browse Source 
git-svn-id: trunk@51761 -
This commit is contained in:
ondrej 2016-03-01 02:46:48 +00:00
parent 30819f343a
commit d1d7473d27
3 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -925,6 +925,7 @@ begin
else
if Assigned(lWinControl) and (lWinControl = Application.MainForm) then
begin
Win32WidgetSet.FLastMainFormState := Application.MainForm.WindowState;
PLMsg^.Result := Windows.DefWindowProc(Window, WM_SYSCOMMAND, WParam, LParam);
WinProcess := False;
Application.IntfAppMinimize;

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

@ -134,6 +134,8 @@ type
FOnAsyncSocketMsg: TSocketEvent;
FDotsPatternBitmap: HBitmap;
FLastMainFormState: TWindowState;
function GetDotsPatternBitmap: HBitmap;
{ event handler helper functions }

27
lcl/interfaces/win32/win32object.inc
View File

@ -169,6 +169,14 @@ var
i: Integer;
begin
// issue #26463
if Assigned(Application) and Application.MainFormOnTaskBar
and Assigned(Application.MainForm) and Application.MainForm.HandleAllocated then
begin
HidePopups(Application.MainFormHandle);
FLastMainFormState := Application.MainForm.WindowState;
Application.MainForm.WindowState := wsMinimized;
end
else
if Assigned(Application) and (Application.ModalLevel > 0) then
begin
for i := Screen.CustomFormZOrderCount - 1 downto 0 do
@ -178,9 +186,7 @@ begin
ShowWindow(AForm.Handle, SW_SHOWMINIMIZED);
end;
ShowWindow(Win32WidgetSet.AppHandle, SW_SHOWMINNOACTIVE);
end else
if Assigned(Application) and Application.MainFormOnTaskBar then
Windows.SendMessage(Application.MainFormHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
end
else
Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;
@ -193,11 +199,22 @@ end;
Restore minimized whole application from taskbar
------------------------------------------------------------------------------}
procedure TWin32WidgetSet.AppRestore;
const
SWSHOW: array[TWindowState] of Cardinal = (SW_SHOWNORMAL, SW_SHOWMINIMIZED, SW_SHOWMAXIMIZED, SW_SHOWMAXIMIZED);
var
AForm: TCustomForm;
i: Integer;
begin
// issue #26463
if Assigned(Application) and Application.MainFormOnTaskBar
and Assigned(Application.MainForm) and Application.MainForm.HandleAllocated then
begin
ShowWindow(Application.MainForm.Handle, SWSHOW[FLastMainFormState]);
RestorePopups;
if (Screen.ActiveControl<>nil) and Screen.ActiveControl.HandleAllocated then
SetFocus(Screen.ActiveControl.Handle);
end
else
if Assigned(Application) and (Application.ModalLevel > 0) then
begin
for i := Screen.CustomFormZOrderCount - 1 downto 0 do
@ -209,9 +226,7 @@ begin
end;
end;
ShowWindow(FAppHandle, SW_RESTORE);
end else
if Assigned(Application) and Application.MainFormOnTaskBar then
Windows.SendMessage(Application.MainFormHandle, WM_SYSCOMMAND, SC_RESTORE, 0)
end
else
Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_RESTORE, 0);
end;