paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 09:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

The taskbar button is now hidden, if the main form is hidden

Browse Source 
git-svn-id: trunk@5805 -
This commit is contained in:
vincents 2004-08-16 18:15:28 +00:00
parent 982e47e25a
commit be9999fa84
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -843,6 +843,16 @@ Begin
Show := WParam <> 0; Show := WParam <> 0;
Status := LParam; Status := LParam;
End; End;
if (assigned(Application.MainForm) and
(Application.MainForm.Handle=Window)) then begin
if WParam=0 then
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle,
SW_HIDE)
else
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle,
SW_SHOW)
end;
End; End;
WM_SYSKEYDOWN: WM_SYSKEYDOWN:
Begin Begin
@ -1314,6 +1324,9 @@ end;
{ {
$Log$ $Log$
Revision 1.132 2004/08/16 18:15:28 vincents
The taskbar button is now hidden, if the main form is hidden
Revision 1.131 2004/08/04 07:32:01 micha Revision 1.131 2004/08/04 07:32:01 micha
fix win32 keyhandling, send cn_char fix win32 keyhandling, send cn_char