paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:49:15 +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_FINDER = $b;
HELP_WM_HELP = $c;
HELP_SETPOPUP_POS = $d;
HELP_TCARD = $8000;
HELP_TCARD_DATA = $10;
HELP_TCARD_OTHER_CALLER = $11;

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

@ -1139,6 +1139,7 @@
WM_SYSKEYDOWN = 260;
WM_SYSKEYUP = 261;
WM_TCARD = 82;
WM_THEMECHANGED = $031A;
WM_TIMECHANGE = 30;
WM_TIMER = 275;
WM_UNDO = 772;
@ -1180,6 +1181,7 @@
TWMSetFont = Windows.TWMSetFont;
TWMShowWindow = Windows.TWMShowWindow;
TWMEraseBkgnd = Windows.TWMEraseBkgnd;
TWMIconEraseBkgnd = TWMEraseBkgnd;
LPMSG = Windows.MSG;
tagMSG = Windows.tagMSG;
TMSG = Windows.TMSG;
@ -1647,7 +1649,7 @@
TWMNCPaint = record
Msg : UINT;
RGN : HRGN;
Unused : Longint;
Unused : WPARAM;
Result : LRESULT;
end;
@ -1732,18 +1734,34 @@
Unused: LPARAM;
Result: LRESULT;
end;
TWMEnable = packed record
Msg: Cardinal;
Enabled: LongBool;
Unused: Longint;
Result: Longint;
TWMEnable = record
Msg: UINT;
Enabled: BOOL;
Unused: LPARAM;
Result: LRESULT;
end;
TWMMouseActivate = packed record
Msg: Cardinal;
TWMMouseActivate = record
Msg: UINT;
TopLevel: HWND;
HitTestCode: Word;
MouseMsg: Word;
Result: Longint;
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}

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

@ -202,6 +202,8 @@ function HResultFromNT(x : Longint) : HRESULT;
function SmallPointToPoint(const P: TSmallPoint): TPoint;
function PointToSmallPoint(const P: TPoint): TSmallPoint;
function GetCurrentTime: Longint;inline;
procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection';
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
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 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 EnumFontFamiliesEx(DC: HDC; var p2: TLogFont; p3: TFNFontEnumProc; 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 EnumFontFamiliesExW(DC: HDC; var p2: TLogFontW; p3: TFNFontEnumProcW; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExW';
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: FONTENUMEXPROC; p4: LPARAM; p5: DWORD): BOOL; external 'gdi32' name 'EnumFontFamiliesExA';
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 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';
@ -1112,5 +1114,9 @@ begin
Result.Y:=P.Y;
end;
function GetCurrentTime: Longint;inline;
begin
Result:=GetTickCount;
end;
{$endif read_implementation}