paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +02: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;
Status := LParam;
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;
WM_SYSKEYDOWN:
Begin
@ -1314,6 +1324,9 @@ end;
{
$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
fix win32 keyhandling, send cn_char