paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* missing items

Browse Source
This commit is contained in:
peter 2003-01-02 22:07:00 +00:00
parent dfcb814ca5
commit 6eba17c1c9
4 changed files with 34 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/wininc/func.inc
View File

@ -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 SetCursorPos(X:longint; Y:longint):WINBOOL; external 'user32' name 'SetCursorPos';
function SetCursor(hCursor:HCURSOR):HCURSOR; external 'user32' name 'SetCursor'; function SetCursor(hCursor:HCURSOR):HCURSOR; external 'user32' name 'SetCursor';
function GetCursorPos(lpPoint:LPPOINT):WINBOOL; external 'user32' name 'GetCursorPos'; 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 GetClipCursor(lpRect:LPRECT):WINBOOL; external 'user32' name 'GetClipCursor';
function GetCursor:HCURSOR; external 'user32' name 'GetCursor'; function GetCursor:HCURSOR; external 'user32' name 'GetCursor';
function CreateCaret(hWnd:HWND; hBitmap:HBITMAP; nWidth:longint; nHeight:longint):WINBOOL; external 'user32' name 'CreateCaret'; function CreateCaret(hWnd:HWND; hBitmap:HBITMAP; nWidth:longint; nHeight:longint):WINBOOL; external 'user32' name 'CreateCaret';
@ -2331,7 +2331,10 @@ end;
{ {
$Log$ $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 * fix ChoosePixelFormat
Revision 1.16 2002/12/15 20:24:17 peter Revision 1.16 2002/12/15 20:24:17 peter

10
rtl/win32/wininc/messages.inc
View File

@ -1057,6 +1057,9 @@
WM_MENUSELECT = 287; WM_MENUSELECT = 287;
WM_MOUSEACTIVATE = 33; WM_MOUSEACTIVATE = 33;
WM_MOUSEMOVE = 512; WM_MOUSEMOVE = 512;
WM_MOUSEWHEEL = 522;
WM_MOUSEHOVER = 673;
WM_MOUSELEAVE = 675;
WM_MOVE = 3; WM_MOVE = 3;
WM_MOVING = 534; WM_MOVING = 534;
WM_NCACTIVATE = 134; WM_NCACTIVATE = 134;
@ -1147,7 +1150,7 @@
WM_KEYFIRST = 256; WM_KEYFIRST = 256;
WM_KEYLAST = 264; WM_KEYLAST = 264;
WM_MOUSEFIRST = 512; WM_MOUSEFIRST = 512;
WM_MOUSELAST = 521; WM_MOUSELAST = 522;
Type Type
@ -1189,7 +1192,10 @@ Type
{ {
$Log$ $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. * Added some of the tmsg/tmessage records.
Revision 1.3 2002/09/07 16:01:31 peter Revision 1.3 2002/09/07 16:01:31 peter

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

@ -197,6 +197,7 @@ function ChangeDisplaySettingsExA(lpszDeviceName: LPCSTR; var lpDevMode: TDevice
function ChoosePixelFormat(_para1:HDC; var _para2:PIXELFORMATDESCRIPTOR):longint; external 'gdi32' name 'ChoosePixelFormat'; 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 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 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 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 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'; function CommConfigDialogA(lpszName: LPCSTR; hWnd: HWND; var lpCC: TCommConfig): BOOL; external 'kernel32' name 'CommConfigDialogA';
@ -926,7 +927,10 @@ function HResultFromNT(x : Longint) : HRESULT;
{ {
$Log$ $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 * fix ChoosePixelFormat
Revision 1.10 2002/12/15 20:24:17 peter Revision 1.10 2002/12/15 20:24:17 peter

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

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