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

Patch from mazen for trayicon. Updates Visible if changing the state of the trayicon fails.

Browse Source 
git-svn-id: trunk@17854 -
This commit is contained in:
sekelsenmat 2008-12-17 14:11:48 +00:00
parent 2beaaa8625
commit 09455e27ba
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/customtrayicon.inc
View File

@ -93,9 +93,10 @@ begin
FVisible := False; FVisible := False;
if not(csDesigning in ComponentState) then if not(csDesigning in ComponentState) then begin
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self) Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self);
else FVisible := not Result;
end else
Result := false; Result := false;
end; end;
@ -115,9 +116,10 @@ begin
FVisible := True; FVisible := True;
if not(csDesigning in ComponentState) then if not(csDesigning in ComponentState) then begin
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self) Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
else FVisible := Result;
end else
Result := false; Result := false;
end; end;