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

Patch from Salvatore Coppola. TTrayIcon does not active at design time.

Browse Source 
git-svn-id: trunk@16983 -
This commit is contained in:
sekelsenmat 2008-10-13 11:46:11 +00:00
parent 416ced6947
commit d0d5cd769a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customtrayicon.inc
View File

@ -91,7 +91,10 @@ begin
FVisible := False;
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self);
if not(csDesigning in ComponentState) then
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self)
else
Result := false;
end;
{*******************************************************************
@ -110,7 +113,10 @@ begin
FVisible := True;
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
if not(csDesigning in ComponentState) then
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self)
else
Result := false;
end;
{*******************************************************************