+ Added trackmouseevent call and structures

rtl/win32/wininc/redef.inc

@@ -837,7 +837,9 @@ function TabbedTextOutW(hDC: HDC; X, Y: Integer; lpString: LPWSTR; nCount, nTabP
 //function ToAscii(uVirtKey, uScanCode: UINT; const KeyState: TKeyboardState; lpChar: PChar; uFlags: UINT): Integer; external 'user32' name 'ToAscii';
 //function ToAsciiEx(uVirtKey: UINT; uScanCode: UINT; const KeyState: TKeyboardState; lpChar: PChar; uFlags: UINT; dwhkl: HKL): Integer; external 'user32' name 'ToAsciiEx';
 //function ToUnicode(wVirtKey, wScanCode: UINT; const KeyState: TKeyboardState; var pwszBuff; cchBuff: Integer; wFlags: UINT): Integer; external 'user32' name 'ToUnicode';
-//function TrackMouseEvent(var EventTrack: TTrackMouseEvent): BOOL;external 'user32' name 'TrackMouseEvent';
+// Careful, NT and higher only.
+function TrackMouseEvent(var EventTrack: TTrackMouseEvent): BOOL;external 'user32' name 'TrackMouseEvent';
+function TrackMouseEvent(lpEventTrack: PTrackMouseEvent): BOOL;external 'user32' name 'TrackMouseEvent';
 function TransactNamedPipe(hNamedPipe: THandle; lpInBuffer: Pointer; nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD; var lpBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; external 'kernel32' name 'TransactNamedPipe';
 function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer;external 'user32' name 'TranslateAcceleratorA';
 function TranslateAcceleratorA(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; external 'user32' name 'TranslateAcceleratorA';
@@ -1060,7 +1062,10 @@ end;
 
 {
   $Log$
-  Revision 1.23  2004-05-09 10:46:34  peter
+  Revision 1.24  2004-07-26 06:48:30  michael
+  + Added trackmouseevent call and structures
+
+  Revision 1.23  2004/05/09 10:46:34  peter
   fix compile with 1.0.x
 
   Revision 1.22  2004/05/07 13:26:31  marco
@@ -1112,4 +1117,4 @@ end;
    * Some macro functions fixed. Didn't commit win32platform first because
       of mandatory init.
 
-}
+}

rtl/win32/wininc/struct.inc

@@ -6559,6 +6559,15 @@ type
   TWIN32FILEATTRIBUTEDATA     = _WIN32_FILE_ATTRIBUTE_DATA ;  
   PWIN32FILEATTRIBUTEDATA     = ^_WIN32_FILE_ATTRIBUTE_DATA;
 
+  // TrackMouseEvent. NT or higher only.
+  TTrackMouseEvent = Record
+    cbize : DWORD;
+    dwFlags : DWORD;
+    hwndTrack : HWND;
+    dwHoverTime : DWORD;
+  end;
+  PTrackMouseEvent = ^TTrackMouseEvent;
+
 {$endif read_interface}
 
 
@@ -7028,7 +7037,10 @@ type
 
 {
   $Log$
-  Revision 1.24  2004-05-04 10:34:29  marco
+  Revision 1.25  2004-07-26 06:48:30  michael
+  + Added trackmouseevent call and structures
+
+  Revision 1.24  2004/05/04 10:34:29  marco
    * pcritical section missed a ^
 
   Revision 1.23  2004/03/10 15:08:10  marco
@@ -7071,4 +7083,4 @@ type
   Revision 1.11  2002/01/19 11:58:21  peter
     * more functions from webbugs
 
-}
+}