mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-26 20:40:36 +02:00
win32 interface: fixed win64 compilation
git-svn-id: trunk@14079 -
This commit is contained in:
parent
1efe09c999
commit
e91a929e7a
@ -235,7 +235,7 @@ end;
|
||||
* the icon
|
||||
*
|
||||
*******************************************************************}
|
||||
function EnumChildProc(handle : HWND; lp : Longint): LongBool; stdcall;
|
||||
function EnumChildProc(handle : HWND; lp : LParam): LongBool; stdcall;
|
||||
var
|
||||
s : string;
|
||||
l : integer;
|
||||
@ -269,7 +269,7 @@ begin
|
||||
Windows.GetWindowRect(hWndTaskbar, @TaskbarRect);
|
||||
|
||||
{ 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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user