paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 13:39:17 +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;
if not(csDesigning in ComponentState) then
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self)
else
if not(csDesigning in ComponentState) then begin
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self);
FVisible := not Result;
end else
Result := false;
end;
@ -115,9 +116,10 @@ begin
FVisible := True;
if not(csDesigning in ComponentState) then
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self)
else
if not(csDesigning in ComponentState) then begin
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
FVisible := Result;
end else
Result := false;
end;