paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:49:09 +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

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

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

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