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

don't use {get|set}windowlongptr on win32

Browse Source 
git-svn-id: trunk@9245 -
This commit is contained in:
vincents 2006-05-07 10:50:13 +00:00
parent 4aa25b34df
commit 05851e1114
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/win32winapi.inc
View File

@ -2067,7 +2067,7 @@ Function TWin32WidgetSet.GetWindowLong(Handle: HWND; Int: Integer): PtrInt;
Begin
//TODO:Started but not finished
Assert(False, Format('Trace:> [TWin32WidgetSet.GETWINDOWLONG] HWND: 0x%x, int: 0x%x (%d)', [Handle, int, int]));
{$ifdef ver2_0}
{$ifdef win32}
Result := Windows.GetWindowLong(Handle, int);
{$else}
Result := Windows.GetWindowLongPtr(Handle, int);
@ -3020,7 +3020,7 @@ Function TWin32WidgetSet.SetWindowLong(Handle: HWND; Idx: Integer; NewLong: PtrI
Begin
//TODO: Finish this;
Assert(False, Format('Trace:> [TWin32WidgetSet.SetWindowLong] HWND: 0x%x, Idx: 0x%x(%d), Value: 0x%x(%d)', [Handle, Idx, Idx, NewLong, NewLong]));
{$ifdef ver2_0}
{$ifdef win32}
Result := Windows.SetWindowLong(Handle, Idx, NewLong);
{$else}
Result := Windows.SetWindowLongPtr(Handle, Idx, NewLong);