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

Removed the ShowHint property from TrayIcon because it can be determined by Hint <> ''

Browse Source 
git-svn-id: trunk@12104 -
This commit is contained in:
sekelsenmat 2007-09-21 07:15:35 +00:00
parent 05240ab420
commit 0f85639748
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/extctrls.pp
View File

@ -1069,7 +1069,7 @@ type
FPopUpMenu: TPopupMenu;
FIcon: TIcon;
FHint: string;
FVisible, FShowIcon, FShowHint: Boolean;
FVisible, FShowIcon: Boolean;
FOnPaint, FOnClick, FOnDblClick: TNotifyEvent;
FOnMouseDown, FOnMouseUp: TMouseEvent;
FOnMouseMove: TMouseMoveEvent;
@ -1087,7 +1087,6 @@ type
property PopUpMenu: TPopupMenu read FPopUpMenu write FPopUpMenu;
property Icon: TIcon read FIcon write FIcon;
property Hint: string read FHint write FHint;
property ShowHint: Boolean read FShowHint write FShowHint;
property ShowIcon: Boolean read FShowIcon write FShowIcon;
property Visible: Boolean read FVisible write SetVisible;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
@ -1105,8 +1104,6 @@ type
property PopUpMenu;
property Icon;
property Hint;
property ShowHint;
property ShowIcon;
property Visible;
property OnClick;
property OnDblClick;

2
lcl/interfaces/win32/win32trayicon.inc
View File

@ -183,7 +183,7 @@ begin
tnid.hWnd := ATrayIcon.Handle;
tnid.uID := uIDTrayIcon;
tnid.uFlags := NIF_MESSAGE or NIF_ICON;
if ATrayIcon.ShowHint then tnid.uFlags := tnid.uFlags or NIF_TIP;
if (ATrayIcon.Hint <> '') then tnid.uFlags := tnid.uFlags or NIF_TIP;
tnid.uCallbackMessage := WM_USER + uIDTrayIcon;
tnid.hIcon := ATrayIcon.Icon.Handle;
buffer := PChar(ATrayIcon.Hint);