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

+ several missing constants, functions and structures added

Browse Source 
git-svn-id: trunk@7801 -
This commit is contained in:
florian 2007-06-24 20:29:40 +00:00
parent 728055586a
commit 40fde13aa4
3 changed files with 123 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win/wininc/defines.inc
View File

@ -487,10 +487,10 @@
MEM_RELEASE = 32768; MEM_RELEASE = 32768;
MEM_TOP_DOWN = 1048576; MEM_TOP_DOWN = 1048576;
MEM_RESET = $80000; MEM_RESET = $80000;
MEM_WRITE_WATCH = $200000; MEM_WRITE_WATCH = $200000;
MEM_PHYSICAL = $400000; MEM_PHYSICAL = $400000;
MEM_LARGE_PAGES = $20000000; MEM_LARGE_PAGES = $20000000;
MEM_4MB_PAGES = dword($80000000); MEM_4MB_PAGES = dword($80000000);
EXCEPTION_GUARD_PAGE = $80000001; EXCEPTION_GUARD_PAGE = $80000001;
SECTION_EXTEND_SIZE = $10; SECTION_EXTEND_SIZE = $10;
@ -2270,7 +2270,7 @@
HKEY_LOCAL_MACHINE = HKEY($80000002); HKEY_LOCAL_MACHINE = HKEY($80000002);
HKEY_USERS = HKEY($80000003); HKEY_USERS = HKEY($80000003);
HKEY_PERFORMANCE_DATA = HKEY($80000004); HKEY_PERFORMANCE_DATA = HKEY($80000004);
HKEY_CURRENT_CONFIG = HKEY($80000005); HKEY_CURRENT_CONFIG = HKEY($80000005);
HKEY_DYN_DATA = HKEY($80000006); HKEY_DYN_DATA = HKEY($80000006);
{ RegCreateKeyEx } { RegCreateKeyEx }
@ -2819,6 +2819,7 @@
HELP_CONTEXTMENU = $a; HELP_CONTEXTMENU = $a;
HELP_FINDER = $b; HELP_FINDER = $b;
HELP_WM_HELP = $c; HELP_WM_HELP = $c;
HELP_SETPOPUP_POS = $d;
HELP_TCARD = $8000; HELP_TCARD = $8000;
HELP_TCARD_DATA = $10; HELP_TCARD_DATA = $10;
HELP_TCARD_OTHER_CALLER = $11; HELP_TCARD_OTHER_CALLER = $11;
@ -3050,7 +3051,7 @@
WIZ_CXDLG = 276; WIZ_CXDLG = 276;
WIZ_CYDLG = 140; WIZ_CYDLG = 140;
{ VX_FIXEDFILEINFO structure } { VX_FIXEDFILEINFO structure }
VS_FILE_INFO = MAKEINTRESOURCE(16); VS_FILE_INFO = MAKEINTRESOURCE(16);
const const
@ -3579,7 +3580,7 @@
HHT_TOLEFT = 2048; HHT_TOLEFT = 2048;
HHT_TORIGHT = 1024; HHT_TORIGHT = 1024;
{ TBADDBITMAP structure } { TBADDBITMAP structure }
HINST_COMMCTRL = HINST(-1); HINST_COMMCTRL = HINST(-1);
const const
IDB_STD_LARGE_COLOR = 1; IDB_STD_LARGE_COLOR = 1;

194
rtl/win/wininc/messages.inc
View File

@ -1139,6 +1139,7 @@
WM_SYSKEYDOWN = 260; WM_SYSKEYDOWN = 260;
WM_SYSKEYUP = 261; WM_SYSKEYUP = 261;
WM_TCARD = 82; WM_TCARD = 82;
WM_THEMECHANGED = $031A;
WM_TIMECHANGE = 30; WM_TIMECHANGE = 30;
WM_TIMER = 275; WM_TIMER = 275;
WM_UNDO = 772; WM_UNDO = 772;
@ -1180,6 +1181,7 @@
TWMSetFont = Windows.TWMSetFont; TWMSetFont = Windows.TWMSetFont;
TWMShowWindow = Windows.TWMShowWindow; TWMShowWindow = Windows.TWMShowWindow;
TWMEraseBkgnd = Windows.TWMEraseBkgnd; TWMEraseBkgnd = Windows.TWMEraseBkgnd;
TWMIconEraseBkgnd = TWMEraseBkgnd;
LPMSG = Windows.MSG; LPMSG = Windows.MSG;
tagMSG = Windows.tagMSG; tagMSG = Windows.tagMSG;
TMSG = Windows.TMSG; TMSG = Windows.TMSG;
@ -1647,7 +1649,7 @@
TWMNCPaint = record TWMNCPaint = record
Msg : UINT; Msg : UINT;
RGN : HRGN; RGN : HRGN;
Unused : Longint; Unused : WPARAM;
Result : LRESULT; Result : LRESULT;
end; end;
@ -1658,93 +1660,109 @@
Result : LRESULT; Result : LRESULT;
end; end;
TWMSizeClipboard = record TWMSizeClipboard = record
Msg: UINT; Msg: UINT;
Viewer: HWND; Viewer: HWND;
RC: THandle; RC: THandle;
Result: LRESULT; Result: LRESULT;
end; end;
TWMSpoolerStatus = record TWMSpoolerStatus = record
Msg: UINT; Msg: UINT;
JobStatus: LPARAM; JobStatus: LPARAM;
JobsLeft: WPARAM; JobsLeft: WPARAM;
Unused: WPARAM; Unused: WPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMStyleChange = record TWMStyleChange = record
Msg: UINT; Msg: UINT;
StyleType: LPARAM; StyleType: LPARAM;
StyleStruct: PStyleStruct; StyleStruct: PStyleStruct;
Result: LRESULT; Result: LRESULT;
end; end;
TWMStyleChanged = TWMStyleChange; TWMStyleChanged = TWMStyleChange;
TWMStyleChanging = TWMStyleChange; TWMStyleChanging = TWMStyleChange;
TWMSysDeadChar = record TWMSysDeadChar = record
Msg: UINT; Msg: UINT;
CharCode: WPARAM; CharCode: WPARAM;
Unused: WPARAM; Unused: WPARAM;
KeyData: LPARAM; KeyData: LPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMSystemError = record TWMSystemError = record
Msg: UINT; Msg: UINT;
ErrSpec: WPARAM; ErrSpec: WPARAM;
Unused: LPARAM; Unused: LPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMTimeChange = TWMNoParams; TWMTimeChange = TWMNoParams;
TWMTimer = record TWMTimer = record
Msg: UINT; Msg: UINT;
TimerID: LPARAM; TimerID: LPARAM;
TimerProc: TFarProc; TimerProc: TFarProc;
Result: LRESULT; Result: LRESULT;
end; end;
TWMUndo = TWMNoParams; TWMUndo = TWMNoParams;
TWMVScrollClipboard = record TWMVScrollClipboard = record
Msg: UINT; Msg: UINT;
Viewer: HWND; Viewer: HWND;
ScollCode: WPARAM; ScollCode: WPARAM;
ThumbPos: WPARAM; ThumbPos: WPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMDisplayChange = record TWMDisplayChange = record
Msg: UINT; Msg: UINT;
BitsPerPixel: Integer; BitsPerPixel: Integer;
Width: WPARAM; Width: WPARAM;
Height: WPARAM; Height: WPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMDropFiles = record TWMDropFiles = record
Msg: UINT; Msg: UINT;
Drop: THANDLE; Drop: THANDLE;
Unused: LPARAM; Unused: LPARAM;
Result: LRESULT; Result: LRESULT;
end; end;
TWMEnable = packed record
Msg: Cardinal; TWMEnable = record
Enabled: LongBool; Msg: UINT;
Unused: Longint; Enabled: BOOL;
Result: Longint; Unused: LPARAM;
end; Result: LRESULT;
TWMMouseActivate = packed record end;
Msg: Cardinal;
TopLevel: HWND; TWMMouseActivate = record
HitTestCode: Word; Msg: UINT;
MouseMsg: Word; TopLevel: HWND;
Result: Longint; HitTestCode: Word;
end; MouseMsg: Word;
Result: LRESULT;
end;
TWMEndSession = record
Msg: UINT;
EndSession: BOOL;
Unused: LPARAM;
Result: LRESULT;
end;
TWMActivateApp = record
Msg: UINT;
Active: BOOL;
ThreadId: WPARAM;
Result: LRESULT;
end;
{$endif messagesunit} {$endif messagesunit}
{$endif read_interface} {$endif read_interface}

12
rtl/win/wininc/redef.inc
View File

@ -202,6 +202,8 @@ function HResultFromNT(x : Longint) : HRESULT;
function SmallPointToPoint(const P: TSmallPoint): TPoint; function SmallPointToPoint(const P: TSmallPoint): TPoint;
function PointToSmallPoint(const P: TPoint): TSmallPoint; function PointToSmallPoint(const P: TPoint): TSmallPoint;
function GetCurrentTime: Longint;inline;
procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection'; procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection';
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection'; procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection'; procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection';
@ -389,9 +391,9 @@ function EnumDisplaySettings(lpszDeviceName: PChar; iModeNum: DWORD; var lpDevMo
function EnumDisplaySettingsA(lpszDeviceName: LPCSTR; iModeNum: DWORD; var lpDevMode: TDeviceModeA): BOOL; external 'user32' name 'EnumDisplaySettingsA'; function EnumDisplaySettingsA(lpszDeviceName: LPCSTR; iModeNum: DWORD; var lpDevMode: TDeviceModeA): BOOL; external 'user32' name 'EnumDisplaySettingsA';
function EnumDisplaySettingsW(lpszDeviceName: LPWSTR; iModeNum: DWORD; var lpDevMode: TDeviceModeW): BOOL; external 'user32' name 'EnumDisplaySettingsW'; function EnumDisplaySettingsW(lpszDeviceName: LPWSTR; iModeNum: DWORD; var lpDevMode: TDeviceModeW): BOOL; external 'user32' name 'EnumDisplaySettingsW';
//function EnumEnhMetaFile(DC: HDC; p2: HENHMETAFILE; p3: TFNEnhMFEnumProc; p4: Pointer; const p5: TRect): BOOL; external 'gdi32' name 'EnumEnhMetaFile'; //function EnumEnhMetaFile(DC: HDC; p2: HENHMETAFILE; p3: TFNEnhMFEnumProc; p4: Pointer; const p5: TRect): BOOL; external 'gdi32' name 'EnumEnhMetaFile';
//function EnumFontFamiliesEx(DC: HDC; var p2: TLogFont; p3: TFNFontEnumProc; p4: LPARAM; p5: DWORD): BOOL;external 'gdi32' name 'EnumFontFamiliesExA'; function EnumFontFamiliesEx(DC: HDC; var p2: TLogFont; p3: FONTENUMEXPROC; p4: LPARAM; p5: DWORD): BOOL;external 'gdi32' name 'EnumFontFamiliesExA';
//function EnumFontFamiliesExA(DC: HDC; var p2: TLogFontA; p3: TFNFontEnumProcA; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExA'; function EnumFontFamiliesExA(DC: HDC; var p2: TLogFontA; p3: FONTENUMEXPROC; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExA';
//function EnumFontFamiliesExW(DC: HDC; var p2: TLogFontW; p3: TFNFontEnumProcW; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExW'; function EnumFontFamiliesExW(DC: HDC; var p2: TLogFontW; p3: FONTENUMEXPROC; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExW';
//function EqualRect(const lprc1, lprc2: TRect): BOOL; external 'user32' name 'EqualRect'; //function EqualRect(const lprc1, lprc2: TRect): BOOL; external 'user32' name 'EqualRect';
function ExtCreatePen(PenStyle, Width: DWORD; const Brush: TLogBrush; StyleCount: DWORD; Style: Pointer): HPEN; external 'gdi32' name 'ExtCreatePen'; function ExtCreatePen(PenStyle, Width: DWORD; const Brush: TLogBrush; StyleCount: DWORD; Style: Pointer): HPEN; external 'gdi32' name 'ExtCreatePen';
function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; external 'gdi32' name 'ExtCreateRegion'; function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; external 'gdi32' name 'ExtCreateRegion';
@ -1112,5 +1114,9 @@ begin
Result.Y:=P.Y; Result.Y:=P.Y;
end; end;
function GetCurrentTime: Longint;inline;
begin
Result:=GetTickCount;
end;
{$endif read_implementation} {$endif read_implementation}