paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

revert change of revision 9245 #05851e1114

Browse Source 
git-svn-id: trunk@9246 -
This commit is contained in:
vincents 2006-05-07 19:29:15 +00:00
parent 05851e1114
commit d20298fe3f
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 win32}
{$ifdef ver2_0}
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 win32}
{$ifdef ver2_0}
Result := Windows.SetWindowLong(Handle, Idx, NewLong);
{$else}
Result := Windows.SetWindowLongPtr(Handle, Idx, NewLong);