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

lcl: forms: don't check for old value in UpdateShowInTaskBar. Issue #31248, patch by Michl

Browse Source 
git-svn-id: trunk@54722 -
This commit is contained in:
ondrej 2017-04-25 08:14:10 +00:00
parent a37042e344
commit d40aae2903
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -471,7 +471,6 @@ type
FOnShow: TNotifyEvent;
FOnWindowStateChange: TNotifyEvent;
FPosition: TPosition;
FRealizedShowInTaskBar: TShowInTaskbar;
FRestoredLeft: integer;
FRestoredTop: integer;
FRestoredWidth: integer;

9
lcl/include/customform.inc
View File

@ -892,18 +892,11 @@ begin
end;
procedure TCustomForm.UpdateShowInTaskBar;
var
Value: TShowInTaskBar;
begin
if (Assigned(Application) and (Application.MainForm = Self)) or
(not HandleAllocated) or Assigned(Parent) or
(FormStyle = fsMDIChild) or not Showing then Exit;
Value := GetEffectiveShowInTaskBar;
if FRealizedShowInTaskBar <> Value then
begin
FRealizedShowInTaskBar := Value;
TWSCustomFormClass(WidgetSetClass).SetShowInTaskbar(Self, Value);
end;
TWSCustomFormClass(WidgetSetClass).SetShowInTaskbar(Self, GetEffectiveShowInTaskBar);
end;
class procedure TCustomForm.WSRegisterClass;