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

win32 interface: fixed win64 compilation

Browse Source 
git-svn-id: trunk@14079 -
This commit is contained in:
vincents 2008-02-11 09:04:15 +00:00
parent 1efe09c999
commit e91a929e7a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -235,7 +235,7 @@ end;
* the icon * the icon
* *
*******************************************************************} *******************************************************************}
function EnumChildProc(handle : HWND; lp : Longint): LongBool; stdcall; function EnumChildProc(handle : HWND; lp : LParam): LongBool; stdcall;
var var
s : string; s : string;
l : integer; l : integer;
@ -269,7 +269,7 @@ begin
Windows.GetWindowRect(hWndTaskbar, @TaskbarRect); Windows.GetWindowRect(hWndTaskbar, @TaskbarRect);
{ Then we locate inside the Tray area, which is just a Toolbar control } { Then we locate inside the Tray area, which is just a Toolbar control }
EnumChildWindows(hWndTaskbar, @EnumChildProc, Integer(hWndTray)); EnumChildWindows(hWndTaskbar, @EnumChildProc,LParam(hWndTray));
if hWndTray = 0 then Exit; if hWndTray = 0 then Exit;