Browse Source

* missing items

peter 22 years ago
parent
commit
6eba17c1c9
4 changed files with 34 additions and 19 deletions
  1. 5 2
      rtl/win32/wininc/func.inc
  2. 8 2
      rtl/win32/wininc/messages.inc
  3. 5 1
      rtl/win32/wininc/redef.inc
  4. 16 14
      rtl/win32/wininc/struct.inc

+ 5 - 2
rtl/win32/wininc/func.inc

@@ -572,7 +572,7 @@ function ShowCursor(bShow:WINBOOL):longint; external 'user32' name 'ShowCursor';
 function SetCursorPos(X:longint; Y:longint):WINBOOL; external 'user32' name 'SetCursorPos';
 function SetCursor(hCursor:HCURSOR):HCURSOR; external 'user32' name 'SetCursor';
 function GetCursorPos(lpPoint:LPPOINT):WINBOOL; external 'user32' name 'GetCursorPos';
-function ClipCursor(var lpRect:RECT):WINBOOL; external 'user32' name 'ClipCursor';
+function ClipCursor(lpRect:LPRECT):WINBOOL; external 'user32' name 'ClipCursor';
 function GetClipCursor(lpRect:LPRECT):WINBOOL; external 'user32' name 'GetClipCursor';
 function GetCursor:HCURSOR; external 'user32' name 'GetCursor';
 function CreateCaret(hWnd:HWND; hBitmap:HBITMAP; nWidth:longint; nHeight:longint):WINBOOL; external 'user32' name 'CreateCaret';
@@ -2331,7 +2331,10 @@ end;
 
 {
   $Log$
-  Revision 1.17  2002-12-27 18:13:38  peter
+  Revision 1.18  2003-01-02 22:07:00  peter
+    * missing items
+
+  Revision 1.17  2002/12/27 18:13:38  peter
     * fix ChoosePixelFormat
 
   Revision 1.16  2002/12/15 20:24:17  peter

+ 8 - 2
rtl/win32/wininc/messages.inc

@@ -1057,6 +1057,9 @@
      WM_MENUSELECT = 287;
      WM_MOUSEACTIVATE = 33;
      WM_MOUSEMOVE = 512;
+     WM_MOUSEWHEEL = 522;
+     WM_MOUSEHOVER = 673;
+     WM_MOUSELEAVE = 675;
      WM_MOVE = 3;
      WM_MOVING = 534;
      WM_NCACTIVATE = 134;
@@ -1147,7 +1150,7 @@
      WM_KEYFIRST = 256;
      WM_KEYLAST = 264;
      WM_MOUSEFIRST = 512;
-     WM_MOUSELAST = 521;
+     WM_MOUSELAST = 522;
 
 Type
 
@@ -1189,7 +1192,10 @@ Type
 
 {
   $Log$
-  Revision 1.4  2002-11-04 12:17:42  marco
+  Revision 1.5  2003-01-02 22:07:00  peter
+    * missing items
+
+  Revision 1.4  2002/11/04 12:17:42  marco
    * Added some of the tmsg/tmessage records.
 
   Revision 1.3  2002/09/07 16:01:31  peter

+ 5 - 1
rtl/win32/wininc/redef.inc

@@ -197,6 +197,7 @@ function ChangeDisplaySettingsExA(lpszDeviceName: LPCSTR; var lpDevMode: TDevice
 function ChoosePixelFormat(_para1:HDC; var _para2:PIXELFORMATDESCRIPTOR):longint; external 'gdi32' name 'ChoosePixelFormat';
 function ClearCommError(hFile: THandle; var lpErrors: DWORD; lpStat: PComStat): BOOL; external 'kernel32' name 'ClearCommError';
 function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; external 'user32' name 'ClientToScreen';
+function ClipCursor(var lpRect:RECT):WINBOOL; external 'user32' name 'ClipCursor';
 //function CombineTransform(var p1: TXForm; const p2, p3: TXForm): BOOL; external 'gdi32' name 'CombineTransform';
 function CommConfigDialog(lpszName: PChar; hWnd: HWND; var lpCC: TCommConfig): BOOL;external 'kernel32' name 'CommConfigDialogA';
 function CommConfigDialogA(lpszName: LPCSTR; hWnd: HWND; var lpCC: TCommConfig): BOOL; external 'kernel32' name 'CommConfigDialogA';
@@ -926,7 +927,10 @@ function HResultFromNT(x : Longint) : HRESULT;
 
 {
   $Log$
-  Revision 1.11  2002-12-27 18:13:38  peter
+  Revision 1.12  2003-01-02 22:07:00  peter
+    * missing items
+
+  Revision 1.11  2002/12/27 18:13:38  peter
     * fix ChoosePixelFormat
 
   Revision 1.10  2002/12/15 20:24:17  peter

+ 16 - 14
rtl/win32/wininc/struct.inc

@@ -212,11 +212,19 @@
      TANIMATIONINFO = ANIMATIONINFO;
      PANIMATIONINFO = ^ANIMATIONINFO;
 
+     POINT = record
+          x : LONG;
+          y : LONG;
+       end;
+     LPPOINT = ^POINT;
+     tagPOINT = POINT;
+     TPOINT = POINT;
+     PPOINT = ^POINT;
+
      RECT = record
-          left : LONG;
-          top : LONG;
-          right : LONG;
-          bottom : LONG;
+          case Integer of
+             0: (Left,Top,Right,Bottom : Longint);
+             1: (TopLeft,BottomRight : TPoint);
        end;
      LPRECT = ^RECT;
      _RECT = RECT;
@@ -464,15 +472,6 @@
      TFIXED = FIXED;
      PFIXED = ^FIXED;
 
-     POINT = record
-          x : LONG;
-          y : LONG;
-       end;
-     LPPOINT = ^POINT;
-     tagPOINT = POINT;
-     TPOINT = POINT;
-     PPOINT = ^POINT;
-
      POINTFX = record
           x : FIXED;
           y : FIXED;
@@ -7015,7 +7014,10 @@ type
 
 {
   $Log$
-  Revision 1.19  2002-12-15 20:24:17  peter
+  Revision 1.20  2003-01-02 22:07:00  peter
+    * missing items
+
+  Revision 1.19  2002/12/15 20:24:17  peter
     * some more C style functions
 
   Revision 1.18  2002/12/12 17:34:35  peter