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

LCL: changed TCustomTrayIcon.Handle from PtrInt to HWND since it's correct.

Browse Source 
Qt,Gtk2,Carbon: changed type cast from PtrInt() to HWND() for trayicon handle.

git-svn-id: trunk@27789 -
This commit is contained in:
zeljko 2010-10-21 11:10:57 +00:00
parent e6a8e1e2a4
commit 0ef33b2c49
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extctrls.pp
View File

@ -1325,7 +1325,7 @@ type
class procedure WSRegisterClass; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
Handle: PtrInt;
Handle: HWND;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function Hide: Boolean;

2
lcl/interfaces/carbon/carbontrayicon.inc
View File

@ -477,7 +477,7 @@ begin
APrivateTrayIcon.bar := NSStatusBar.systemStatusBar();
APrivateTrayIcon.LCLTrayIcon := ATrayIcon;
ATrayIcon.Handle := PtrInt(APrivateTrayIcon);
ATrayIcon.Handle := HWND(APrivateTrayIcon);
{ Converts the icon to NSImage }

2
lcl/interfaces/gtk2/gtk2trayicon.inc
View File

@ -474,7 +474,7 @@ begin
Result := False;
TrayIconHandle := TGtk2TrayIconHandle.Create(ATrayIcon);
ATrayIcon.Handle := PtrInt(TrayIconHandle);
ATrayIcon.Handle := HWND(TrayIconHandle);
{*******************************************************************
* Now shows the GtkPlug
*******************************************************************}

2
lcl/interfaces/qt/qtwsextctrls.pp
View File

@ -554,7 +554,7 @@ begin
SystemTrayIcon := TQtSystemTrayIcon.Create(IconH);
SystemTrayIcon.FTrayIcon := ATrayIcon;
ATrayIcon.Handle := PtrInt(SystemTrayIcon);
ATrayIcon.Handle := HWND(SystemTrayIcon);
Text := UTF8ToUTF16(ATrayIcon.Hint);
SystemTrayIcon.setToolTip(Text);