paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added trackmouseevent call and structures

Browse Source
This commit is contained in:
michael 2004-07-26 06:48:30 +00:00
parent 72556ae39f
commit c70b07e9f3
2 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/wininc/redef.inc
View File

@ -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.
}
}

16
rtl/win32/wininc/struct.inc
View File

@ -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
}
}