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

win32: fix minimize of application where there is no main form or it has not handle yet

Browse Source 
git-svn-id: trunk@22781 -
This commit is contained in:
paul 2009-11-26 04:20:03 +00:00
parent c00da14b3c
commit dfb5d67e48
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2486,10 +2486,13 @@ begin
Msg := LM_SIZE;
SizeType := WParam or Size_SourceIsInterface;
if Window = TWin32WidgetSet(WidgetSet).AppHandle then
begin
if Assigned(Application.MainForm) and Application.MainForm.HandleAllocated then
begin
lWinControl := Application.MainForm;
Window := Application.MainForm.Handle;
end;
end;
if IsIconic(Window) then
begin
GetWindowPlacement(Window, @WindowPlacement);