paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-15 19:59:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: optimized TCustomForm.UpdateShowInTaskBar

Browse Source 
git-svn-id: trunk@24750 -
This commit is contained in:
mattias 2010-04-20 18:22:49 +00:00
parent 686b6e177b
commit 81a5b44f7b
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -437,6 +437,7 @@ type
FOnWindowStateChange: TNotifyEvent;
FPixelsPerInch: Longint;
FPosition: TPosition;
FRealizedShowInTaskBar: TShowInTaskbar;
FRestoredLeft: integer;
FRestoredTop: integer;
FRestoredWidth: integer;

11
lcl/include/customform.inc
View File

@ -771,8 +771,8 @@ procedure TCustomForm.UpdateShowInTaskBar;
var
Value: TShowInTaskBar;
begin
if (Application.MainForm = Self) or (not HandleAllocated)
or (FormStyle = fsMDIChild) then Exit;
if (Application.MainForm = Self) or (not HandleAllocated) or (Parent<>nil)
or (FormStyle = fsMDIChild) or (not Showing) then Exit;
Value := ShowInTaskBar;
if (Value = stDefault) or (csDesigning in ComponentState) then
case Application.TaskBarBehavior of
@ -780,7 +780,10 @@ begin
tbMultiButton: Value := stAlways;
else // nothing
end;
TWSCustomFormClass(WidgetSetClass).SetShowInTaskbar(Self, Value);
if FRealizedShowInTaskBar<>Value then begin
FRealizedShowInTaskBar:=Value;
TWSCustomFormClass(WidgetSetClass).SetShowInTaskbar(Self, Value);
end;
end;
class procedure TCustomForm.WSRegisterClass;
@ -2316,7 +2319,6 @@ begin
Assert(False, 'Trace:[TCustomForm.CreateWnd] FMenu.HandleNeeded');
UpdateMenu;
UpdateShowInTaskBar;
{$IFDEF OldAutoSize}
// activate focus if visible
@ -2453,6 +2455,7 @@ begin
{$ENDIF}
LCLIntf.SetFocus(FActiveControl.Handle);
end;
UpdateShowInTaskBar;
end;
{$ENDIF}
end;