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

LCL: make sure Application is assigned in UpdateShowInTaskBar. Part of issue #18934.

Browse Source 
git-svn-id: trunk@29892 -
This commit is contained in:
juha 2011-03-17 14:35:06 +00:00
parent 039dfbebfe
commit 8901a0b14d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customform.inc
View File

@ -827,8 +827,9 @@ procedure TCustomForm.UpdateShowInTaskBar;
var
Value: TShowInTaskBar;
begin
if (Application.MainForm = Self) or (not HandleAllocated) or
Assigned(Parent) or (FormStyle = fsMDIChild) or not Showing then Exit;
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