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

win32 interface: clean up SC_RESTORE handling from Boguslaw

Browse Source 
git-svn-id: trunk@10290 -
This commit is contained in:
vincents 2006-12-04 10:12:46 +00:00
parent 84eb5a5a3f
commit e2b9e5adbd
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -745,28 +745,17 @@ Var
Application.MainForm.HandleAllocated then
begin
//DebugLn('SC_MINIMIZE');
//LMessage.Msg := LM_NULL;
Application.IntfAppMinimize();
//LMessage.Result := 0;
end;
end;
end;
SC_RESTORE:
begin
if (Application <> nil) and (lWinControl<> nil) and
(Application.MainForm = lWinControl) then
Window := TWin32WidgetSet(WidgetSet).AppHandle;
if Window = TWin32WidgetSet(WidgetSet).AppHandle then
begin
if (Application <> nil) and (Application.MainForm <> nil) and
Application.MainForm.HandleAllocated then
begin
if Window = TWin32WidgetSet(WidgetSet).AppHandle then
begin
//DebugLn('SC_RESTORE');
//LMessage.Msg := LM_NULL;
Application.IntfAppRestore();
//LMessage.Result := 0;
end;
end;
end;
end;