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

take windowstate into account when showing window

Browse Source 
git-svn-id: trunk@6472 -
This commit is contained in:
micha 2005-01-03 16:29:48 +00:00
parent 8a978ff3c6
commit b632390f1e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -635,6 +635,7 @@ Procedure TWin32WidgetSet.ShowHide(Sender: TObject);
Var
Handle: HWND;
ParentPanel: HWND;
Flags: dword;
Begin
If (TControl(Sender).FCompStyle = csPage) or (TControl(Sender).FCompStyle = csToolButton) then exit;
Handle := ObjectToHWND(Sender);
@ -648,7 +649,13 @@ Begin
begin
Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
end else begin
Windows.ShowWindow(Handle, SW_SHOW);
Flags := SW_SHOW;
if TControl(Sender) is TCustomForm then
case TCustomForm(Sender).WindowState of
wsMaximized: Flags := SW_SHOWMAXIMIZED;
wsMinimized: Flags := SW_SHOWMINIMIZED;
end;
Windows.ShowWindow(Handle, Flags);
end;
If (Sender Is TCustomForm) Then
SetClassLong(Handle, GCL_HICON, LONG(TCustomForm(Sender).GetIconHandle));
@ -710,6 +717,9 @@ end;
{
$Log$
Revision 1.304 2005/01/03 16:29:48 micha
take windowstate into account when showing window
Revision 1.303 2005/01/01 18:56:47 mattias
implemented TTIProgressBar