From 05851e1114c816f4ea810c01ea5de0b4d6ff9a3f Mon Sep 17 00:00:00 2001 From: vincents Date: Sun, 7 May 2006 10:50:13 +0000 Subject: [PATCH] don't use {get|set}windowlongptr on win32 git-svn-id: trunk@9245 - --- lcl/interfaces/win32/win32winapi.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc index 61b79697f8..acb480afcf 100644 --- a/lcl/interfaces/win32/win32winapi.inc +++ b/lcl/interfaces/win32/win32winapi.inc @@ -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);