Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fix return type of GetClassLong

git-svn-id: trunk@3334 -
peter 19 years ago
parent
3ff142908f
commit
f268ce71e3
2 changed files with 3 additions and 3 deletions
Split View Show Diff Stats
  1. 2 2
      rtl/win/wininc/ascdef.inc
  2. 1 1
      rtl/win/wininc/ascfun.inc

+ 2 - 2
rtl/win/wininc/ascdef.inc
View File 

@@ -258,8 +258,8 @@ function GetWindowLong(hWnd:HWND; nIndex:longint):LONG; external 'user32' name '
 
 function SetWindowLong(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG; external 'user32' name 'SetWindowLongA';
 
 function GetWindowLongPtr(hWnd:HWND; nIndex:longint):LONG_PTR; external 'user32' name 'GetWindowLongPtrA';
 
 function SetWindowLongPtr(hWnd:HWND; nIndex:longint; dwNewLong:LONG_PTR):LONG_PTR; external 'user32' name 'SetWindowLongPtrA';
 
-function GetClassLong(hWnd:HWND; nIndex:longint):LONG_PTR; external 'user32' name 'GetClassLongA';
 
-function SetClassLong(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG_PTR; external 'user32' name 'SetClassLongA';
 
+function GetClassLong(hWnd:HWND; nIndex:longint):DWORD; external 'user32' name 'GetClassLongA';
 
+function SetClassLong(hWnd:HWND; nIndex:longint; dwNewLong:LONG):DWORD; external 'user32' name 'SetClassLongA';
 
 function GetClassLongPtr(hWnd:HWND; nIndex:longint):DWORD; external 'user32' name 'GetClassLongPtrA';
 
 function SetClassLongPtr(hWnd:HWND; nIndex:longint; dwNewLong:LONG_PTR):LONG_PTR; external 'user32' name 'SetClassLongPtrA';
 
 function FindWindow(lpClassName:LPCSTR; lpWindowName:LPCSTR):HWND; external 'user32' name 'FindWindowA';

+ 1 - 1
rtl/win/wininc/ascfun.inc
View File 

@@ -261,7 +261,7 @@ function GetWindowLongA(hWnd:HWND; nIndex:longint):LONG; external 'user32' name
 
 function SetWindowLongA(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG; external 'user32' name 'SetWindowLongA';
 
 function GetWindowLongPtrA(hWnd:HWND; nIndex:longint):LONG_PTR; external 'user32' name 'GetWindowLongPtrA';
 
 function SetWindowLongPtrA(hWnd:HWND; nIndex:longint; dwNewLong:LONG_PTR):LONG_PTR; external 'user32' name 'SetWindowLongPtrA';
 
-function GetClassLongA(hWnd:HWND; nIndex:longint):LONG_PTR; external 'user32' name 'GetClassLongA';
 
+function GetClassLongA(hWnd:HWND; nIndex:longint):DWORD; external 'user32' name 'GetClassLongA';
 
 function SetClassLongA(hWnd:HWND; nIndex:longint; dwNewLong:LONG):DWORD; external 'user32' name 'SetClassLongA';
 
 function GetClassLongPtrA(hWnd:HWND; nIndex:longint):LONG_PTR; external 'user32' name 'GetClassLongPtrA';
 
 function SetClassLongPtrA(hWnd:HWND; nIndex:longint; dwNewLong:LONG_PTR):LONG_PTR; external 'user32' name 'SetClassLongPtrA';