paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 19:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes in wince windows unit.

Browse Source 
git-svn-id: trunk@6136 -
This commit is contained in:
yury 2007-01-22 23:55:34 +00:00
parent 13b6444b07
commit 128e4d3c2a
2 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/wince/wininc/defines.inc
View File

@ -5089,20 +5089,16 @@ Const
MK_RBUTTON = 2;
MK_SHIFT = 4;
{ WNDCLASS structure }
CS_BYTEALIGNCLIENT = 4096;
CS_BYTEALIGNWINDOW = 8192;
CS_CLASSDC = 64;
CS_DBLCLKS = 8;
CS_GLOBALCLASS = 16384;
CS_HREDRAW = 2;
CS_KEYCVTWINDOW = 4;
CS_NOCLOSE = 512;
CS_NOKEYCVT = 256;
CS_OWNDC = 32;
CS_PARENTDC = 128;
CS_SAVEBITS = 2048;
CS_VREDRAW = 1;
DLGWINDOWEXTRA = 30;
CS_HREDRAW = 2;
CS_DBLCLKS = 8;
CS_PARENTDC = 128;
CS_NOCLOSE = 512;
CS_SAVEBITS = 2048;
CS_GLOBALCLASS = 16384;
CS_IME = $10000;
DLGWINDOWEXTRA = 32;
{ ACCEL structure }
FALT = 16;
FCONTROL = 8;

14
rtl/wince/wininc/redef.inc
View File

@ -178,8 +178,8 @@ function GetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoW)
function GetMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax: UINT): BOOL;external KernelDLL name 'GetMessageW';
function GetScrollInfo(hWnd: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): BOOL; external KernelDLL name 'GetScrollInfo';
procedure GetSystemTime(var lpSystemTime:SYSTEMTIME); external KernelDLL name 'GetSystemTime';
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL; external KernelDLL name 'GetTextExtentPoint32W';
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL; external KernelDLL name 'GetTextExtentPoint32W';
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL;external KernelDLL name 'GetVersionExW';
function GetVersionExW(var lpVersionInformation: TOSVersionInfoW): BOOL; external KernelDLL name 'GetVersionExW';
function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'GetWindowRect';
@ -1067,6 +1067,16 @@ begin
MsgWaitForMultipleObjects:=MsgWaitForMultipleObjectsEx(nCount,@pHandles,dwMilliseconds,dwWakeMask,0);
end;
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
(*
//begin win32 or wince not checked
function Succeeded(Status : HRESULT) : BOOL;