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

fix taskbar button being removed and reinserted when minimizing mainform

Browse Source 
git-svn-id: trunk@7075 -
This commit is contained in:
micha 2005-04-13 17:17:16 +00:00
parent f0f06564f4
commit 66da3891a0
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -141,6 +141,7 @@ Var
eraseBkgndCommand: TEraseBkgndCommand;
winClassName: array[0..19] of char;
WindowInfo: PWindowInfo;
Flags: dword;
LMInsertText: TLMInsertText; // used by CB_INSERTSTRING, LB_INSERTSTRING
LMScroll: TLMScroll; // used by WM_HSCROLL
@ -1122,14 +1123,15 @@ Begin
Status := LParam;
End;
if assigned(lWinControl) and
(lWinControl=Application.MainForm) then begin
if assigned(lWinControl) and ((WParam<>0) or not lWinControl.Visible)
and ((WParam=0) or lWinControl.Visible)
and (Application<>nil) and (lWinControl=Application.MainForm) then
begin
if WParam=0 then
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle,
SW_HIDE)
Flags := SW_HIDE
else
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle,
SW_SHOW)
Flags := SW_SHOW;
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle, Flags);
end;
End;
WM_SYSCHAR:
@ -1536,6 +1538,9 @@ end;
{
$Log$
Revision 1.200 2005/04/13 17:17:16 micha
fix taskbar button being removed and reinserted when minimizing mainform
Revision 1.199 2005/04/08 16:59:37 micha
fix bug 684 properly, opendialog closes automatically after messagedlg (much thanks to uberto)