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

* fixes from Mantis #20194, derived from patch and description by G. Fink.

Browse Source 
git-svn-id: trunk@19035 -
This commit is contained in:
marco 2011-09-08 20:42:39 +00:00
parent 0c3c8a8745
commit 1f5333a80a
2 changed files with 231 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,8 +69,6 @@ type
end; end;
PMaxLogPalette = ^TMaxLogPalette; PMaxLogPalette = ^TMaxLogPalette;
POSVersionInfoA = POSVERSIONINFO;
TBitmapFileHeader = BITMAPFILEHEADER; TBitmapFileHeader = BITMAPFILEHEADER;
PBitmapFileHeader = ^TBitmapFileHeader; PBitmapFileHeader = ^TBitmapFileHeader;

306
rtl/win/wininc/struct.inc
View File

@ -339,10 +339,10 @@ Const
PBITMAPINFO = ^BITMAPINFO; PBITMAPINFO = ^BITMAPINFO;
TBITMAPINFO = BITMAPINFO; TBITMAPINFO = BITMAPINFO;
FXPT2DOT30 = longint; FXPT2DOT30 = longint;
LPFXPT2DOT30 = ^FXPT2DOT30; LPFXPT2DOT30 = ^FXPT2DOT30;
TPFXPT2DOT30 = FXPT2DOT30; TFXPT2DOT30 = FXPT2DOT30;
PPFXPT2DOT30 = ^FXPT2DOT30; PFXPT2DOT30 = LPFXPT2DOT30;
CIEXYZ = record CIEXYZ = record
ciexyzX : FXPT2DOT30; ciexyzX : FXPT2DOT30;
@ -397,7 +397,8 @@ Const
bfReserved2 : Word; bfReserved2 : Word;
bfOffBits : DWord; bfOffBits : DWord;
end; end;
tagBITMAPFILEHEADER = BITMAPFILEHEADER;
BLOB = record BLOB = record
cbSize : ULONG; cbSize : ULONG;
pBlobData : ^BYTE; pBlobData : ^BYTE;
@ -639,7 +640,7 @@ Const
LPCHOOSECOLOR = ^TCHOOSECOLOR; LPCHOOSECOLOR = ^TCHOOSECOLOR;
PCHOOSECOLOR = ^TCHOOSECOLOR; PCHOOSECOLOR = ^TCHOOSECOLOR;
LOGFONT = record LOGFONTA = record
lfHeight : LONG; lfHeight : LONG;
lfWidth : LONG; lfWidth : LONG;
lfEscapement : LONG; lfEscapement : LONG;
@ -655,11 +656,10 @@ Const
lfPitchAndFamily : BYTE; lfPitchAndFamily : BYTE;
lfFaceName : array[0..(LF_FACESIZE)-1] of TCHAR; lfFaceName : array[0..(LF_FACESIZE)-1] of TCHAR;
end; end;
LPLOGFONT = ^LOGFONT; LPLOGFONTA = ^LOGFONTA;
TLOGFONT = LOGFONT; _LOGFONTA = LOGFONTA;
TLOGFONTA = LOGFONT; TLOGFONTA = LOGFONTA;
PLOGFONT = ^LOGFONT; PLOGFONTA = LPLOGFONTA;
PLOGFONTA = PLOGFONT;
LOGFONTW = record LOGFONTW = record
lfHeight: LONG; lfHeight: LONG;
@ -679,8 +679,23 @@ Const
end; end;
LPLOGFONTW = ^LOGFONTW; LPLOGFONTW = ^LOGFONTW;
NPLOGFONTW = ^LOGFONTW; NPLOGFONTW = ^LOGFONTW;
TLogFontW = LOGFONTW; _LOGFONTW = LOGFONTW;
PLogFontW = ^TLogFontW; TLogFontW = LOGFONTW;
PLogFontW = ^TLOGFONTW;
{$IFNDEF UNICODE}
LOGFONT = LOGFONTA;
LPLOGFONT = ^LOGFONTA;
_LOGFONT = LOGFONTA;
TLOGFONT = LOGFONTA;
PLOGFONT = ^LOGFONTA;
{$ELSE}
LOGFONT = LOGFONTW;
LPLOGFONT = ^LOGFONTW;
_LOGFONT = LOGFONTW;
TLOGFONT = LOGFONTW;
PLOGFONT = ^LOGFONTW;
{$ENDIF}
{CHOOSEFONT = record conflicts with ChosseFont function } {CHOOSEFONT = record conflicts with ChosseFont function }
TCHOOSEFONT = record TCHOOSEFONT = record
@ -1572,21 +1587,6 @@ Const
_CREATE_THREAD_DEBUG_INFO = CREATE_THREAD_DEBUG_INFO; _CREATE_THREAD_DEBUG_INFO = CREATE_THREAD_DEBUG_INFO;
TCREATETHREADDEBUGINFO = CREATE_THREAD_DEBUG_INFO; TCREATETHREADDEBUGINFO = CREATE_THREAD_DEBUG_INFO;
PCREATETHREADDEBUGINFO = ^CREATE_THREAD_DEBUG_INFO; PCREATETHREADDEBUGINFO = ^CREATE_THREAD_DEBUG_INFO;
(*
TODO: sockets
typedef struct _SOCKET_ADDRESS {
LPSOCKADDR lpSockaddr ;
INT iSockaddrLength ;
} SOCKET_ADDRESS, PSOCKET_ADDRESS, LPSOCKET_ADDRESS;
}
{
typedef struct _CSADDR_INFO {
SOCKET_ADDRESS LocalAddr;
SOCKET_ADDRESS RemoteAddr;
INT iSocketType;
INT iProtocol;
} CSADDR_INFO;
*)
CURRENCYFMT = record CURRENCYFMT = record
NumDigits : UINT; NumDigits : UINT;
@ -2026,7 +2026,7 @@ Const
TDEVBROADCASTVOLUME = DEV_BROADCAST_VOLUME; TDEVBROADCASTVOLUME = DEV_BROADCAST_VOLUME;
PDEVBROADCASTVOLUME = ^DEV_BROADCAST_VOLUME; PDEVBROADCASTVOLUME = ^DEV_BROADCAST_VOLUME;
DEVMODE = record DEVMODEA = record
dmDeviceName : array[0..(CCHDEVICENAME)-1] of BCHAR; dmDeviceName : array[0..(CCHDEVICENAME)-1] of BCHAR;
dmSpecVersion : WORD; dmSpecVersion : WORD;
dmDriverVersion : WORD; dmDriverVersion : WORD;
@ -2067,16 +2067,15 @@ Const
); );
end; end;
LPDEVMODE = ^DEVMODE; LPDEVMODEA = ^DEVMODEA;
_devicemode = DEVMODE; _DEVMODEA = DEVMODEA;
devicemode = DEVMODE; TDEVMODEA = DEVMODEA;
tdevicemode = DEVMODE; PDEVMODEA = LPDEVMODEA;
tdevicemodeA = DEVMODE;
PDeviceModeA = LPDEVMODE;
PDeviceMode = LPDEVMODE;
TDEVMODE = DEVMODE;
PDEVMODE = LPDEVMODE;
_devicemodeA = DEVMODEA;
devicemodeA = DEVMODEA;
tdevicemodeA = DEVMODEA;
PDeviceModeA = LPDEVMODEA;
devmodeW = record devmodeW = record
dmDeviceName : array[0.. CCHDEVICENAME-1] of WCHAR; dmDeviceName : array[0.. CCHDEVICENAME-1] of WCHAR;
@ -2116,14 +2115,35 @@ Const
end; end;
LPDEVMODEW = ^DEVMODEW; LPDEVMODEW = ^DEVMODEW;
_DEVMODEW = DEVMODEW;
TDEVMODEW = DEVMODEW;
PDEVMODEW = LPDEVMODEW;
_devicemodeW = DEVMODEW; _devicemodeW = DEVMODEW;
devicemodeW = DEVMODEW; devicemodeW = DEVMODEW;
TDeviceModeW = DEVMODEW; TDeviceModeW = DEVMODEW;
PDeviceModeW = LPDEVMODEW; PDeviceModeW = LPDEVMODEW;
TDEVMODEW = DEVMODEW;
PDEVMODEW = LPDEVMODEW;
{$IFNDEF UNICODE}
DEVMODE = DEVMODEA;
LPDEVMODE = ^DEVMODEA;
_DEVMODE = DEVMODEA;
TDEVMODE = DEVMODEA;
PDEVMODE = ^DEVMODEA;
{$ELSE}
DEVMODE = DEVMODEW;
LPDEVMODE = ^DEVMODEW;
_DEVMODE = DEVMODEW;
TDEVMODE = DEVMODEW;
PDEVMODE = ^DEVMODEW;
{$ENDIF}
_devicemode = DEVMODE;
DeviceMode = DEVMODE;
TDeviceMode = DEVMODE;
PDeviceMode = ^DEVMODE;
DEVNAMES = record DEVNAMES = record
wDriverOffset : WORD; wDriverOffset : WORD;
wDeviceOffset : WORD; wDeviceOffset : WORD;
@ -2685,7 +2705,7 @@ Const
TPANOSE = PANOSE; TPANOSE = PANOSE;
PPANOSE = ^PANOSE; PPANOSE = ^PANOSE;
EXTLOGFONT = record EXTLOGFONTA = record
elfLogFont : LOGFONT; elfLogFont : LOGFONT;
elfFullName : array[0..(LF_FULLFACESIZE)-1] of BCHAR; elfFullName : array[0..(LF_FULLFACESIZE)-1] of BCHAR;
elfStyle : array[0..(LF_FACESIZE)-1] of BCHAR; elfStyle : array[0..(LF_FACESIZE)-1] of BCHAR;
@ -2697,9 +2717,42 @@ Const
elfCulture : DWORD; elfCulture : DWORD;
elfPanose : PANOSE; elfPanose : PANOSE;
end; end;
tagEXTLOGFONT = EXTLOGFONT; LPEXTLOGFONTA = ^EXTLOGFONTA;
TEXTLOGFONT = EXTLOGFONT; tagEXTLOGFONTA = EXTLOGFONTA;
PEXTLOGFONT = ^EXTLOGFONT; TEXTLOGFONTA = EXTLOGFONTA;
PEXTLOGFONTA = LPEXTLOGFONTA;
EXTLOGFONTW = record
elfLogFont :LOGFONTW;
elfFullName :array[0..(LF_FULLFACESIZE) - 1] of WCHAR;
elfStyle :array[0..(LF_FACESIZE) - 1] of WCHAR;
elfVersion :DWORD;
elfStyleSize :DWORD;
elfMatch :DWORD;
elfReserved :DWORD;
elfVendorId :array[0..(ELF_VENDOR_SIZE) - 1] of Byte;
elfCulture :DWORD;
elfPanose :PANOSE;
end;
LPEXTLOGFONTW = ^EXTLOGFONTW;
tagEXTLOGFONTW = EXTLOGFONTW;
TEXTLOGFONTW = EXTLOGFONTW;
PEXTLOGFONTW = ^EXTLOGFONTW;
{$IFNDEF UNICODE}
EXTLOGFONT = EXTLOGFONTA;
LPEXTLOGFONT = ^EXTLOGFONTA;
tagEXTLOGFONT = EXTLOGFONTA;
TEXTLOGFONT = EXTLOGFONTA;
PEXTLOGFONT = ^EXTLOGFONTA;
{$ELSE}
EXTLOGFONT = EXTLOGFONTW;
LPEXTLOGFONT = ^EXTLOGFONTW;
tagEXTLOGFONT = EXTLOGFONTW;
TEXTLOGFONT = EXTLOGFONTW;
PEXTLOGFONT = ^EXTLOGFONTW;
{$ENDIF}
EMREXTCREATEFONTINDIRECTW = record EMREXTCREATEFONTINDIRECTW = record
emr : EMR; emr : EMR;
@ -2710,7 +2763,6 @@ Const
TEMREXTCREATEFONTINDIRECTW = EMREXTCREATEFONTINDIRECTW; TEMREXTCREATEFONTINDIRECTW = EMREXTCREATEFONTINDIRECTW;
PEMREXTCREATEFONTINDIRECTW = ^EMREXTCREATEFONTINDIRECTW; PEMREXTCREATEFONTINDIRECTW = ^EMREXTCREATEFONTINDIRECTW;
EXTLOGPEN = record EXTLOGPEN = record
elpPenStyle : UINT; elpPenStyle : UINT;
elpWidth : UINT; elpWidth : UINT;
@ -4763,7 +4815,7 @@ Const
TNEWCPLINFO = NEWCPLINFO; TNEWCPLINFO = NEWCPLINFO;
PNEWCPLINFO = ^NEWCPLINFO; PNEWCPLINFO = ^NEWCPLINFO;
NEWTEXTMETRIC = record NEWTEXTMETRICA = record
tmHeight : LONG; tmHeight : LONG;
tmAscent : LONG; tmAscent : LONG;
tmDescent : LONG; tmDescent : LONG;
@ -4789,18 +4841,94 @@ Const
ntmCellHeight : UINT; ntmCellHeight : UINT;
ntmAvgWidth : UINT; ntmAvgWidth : UINT;
end; end;
tagNEWTEXTMETRIC = NEWTEXTMETRIC; LPNEWTEXTMETRICA = ^NEWTEXTMETRICA;
TNEWTEXTMETRIC = NEWTEXTMETRIC; tagNEWTEXTMETRICA = NEWTEXTMETRICA;
PNEWTEXTMETRIC = ^NEWTEXTMETRIC; _NEWTEXTMETRICA = NEWTEXTMETRICA;
TNEWTEXTMETRICA = NEWTEXTMETRICA;
PNEWTEXTMETRICA = ^NEWTEXTMETRICA;
NEWTEXTMETRICW = record
tmHeight :LONG;
tmAscent :LONG;
tmDescent :LONG;
tmInternalLeading :LONG;
tmExternalLeading :LONG;
tmAveCharWidth :LONG;
tmMaxCharWidth :LONG;
tmWeight :LONG;
tmOverhang :LONG;
tmDigitizedAspectX :LONG;
tmDigitizedAspectY :LONG;
tmFirstChar :WCHAR;
tmLastChar :WCHAR;
tmDefaultChar :WCHAR;
tmBreakChar :WCHAR;
tmItalic :Byte;
tmUnderlined :Byte;
tmStruckOut :Byte;
tmPitchAndFamily :Byte;
tmCharSet :Byte;
ntmFlags :DWORD;
ntmSizeEM :UINT;
ntmCellHeight :UINT;
ntmAvgWidth :UINT;
end;
LPNEWTEXTMETRICW = ^NEWTEXTMETRICW;
tagNEWTEXTMETRICW = NEWTEXTMETRICW;
_NEWTEXTMETRICW = NEWTEXTMETRICW;
TNEWTEXTMETRICW = NEWTEXTMETRICW;
PNEWTEXTMETRICW = ^NEWTEXTMETRICW;
{$IFNDEF UNICODE}
LPNEWTEXTMETRIC = ^NEWTEXTMETRICA;
_NEWTEXTMETRIC = NEWTEXTMETRICA;
tagNEWTEXTMETRIC = NEWTEXTMETRICA;
TNEWTEXTMETRIC = NEWTEXTMETRICA;
PNEWTEXTMETRIC = ^NEWTEXTMETRICA;
NEWTEXTMETRIC = NEWTEXTMETRICA;
{$ELSE}
LPNEWTEXTMETRIC = ^NEWTEXTMETRICW;
_NEWTEXTMETRIC = NEWTEXTMETRICW;
tagNEWTEXTMETRIC = NEWTEXTMETRICW;
TNEWTEXTMETRIC = NEWTEXTMETRICW;
PNEWTEXTMETRIC = ^NEWTEXTMETRICW;
NEWTEXTMETRIC = NEWTEXTMETRICW;
{$ENDIF}
NEWTEXTMETRICEX = record NEWTEXTMETRICEXA = record
ntmentm : NEWTEXTMETRIC; ntmentm : NEWTEXTMETRICA;
ntmeFontSignature : FONTSIGNATURE; ntmeFontSignature : FONTSIGNATURE;
end; end;
tagNEWTEXTMETRICEX = NEWTEXTMETRICEX; LPNEWTEXTMETRICEXA = ^NEWTEXTMETRICEXA;
TNEWTEXTMETRICEX = NEWTEXTMETRICEX; tagNEWTEXTMETRICEXA = NEWTEXTMETRICEXA;
PNEWTEXTMETRICEX = ^NEWTEXTMETRICEX; TNEWTEXTMETRICEXA = NEWTEXTMETRICEXA;
PNEWTEXTMETRICEXA = ^NEWTEXTMETRICEXA;
NEWTEXTMETRICEXW = record
ntmentm :NEWTEXTMETRICW;
ntmeFontSignature :FONTSIGNATURE;
end;
LPNEWTEXTMETRICEXW = ^NEWTEXTMETRICEXW;
tagNEWTEXTMETRICEXW = NEWTEXTMETRICEXW;
TNEWTEXTMETRICEXW = NEWTEXTMETRICEXW;
PNEWTEXTMETRICEXW = ^NEWTEXTMETRICEXW;
{$IFNDEF UNICODE}
LPNEWTEXTMETRICEX = ^NEWTEXTMETRICEXA;
_NEWTEXTMETRICEX = NEWTEXTMETRICEXA;
tagNEWTEXTMETRICEX = NEWTEXTMETRICEXA;
TNEWTEXTMETRICEX = NEWTEXTMETRICEXA;
PNEWTEXTMETRICEX = ^NEWTEXTMETRICEXA;
NEWTEXTMETRICEX = NEWTEXTMETRICEXA;
{$ELSE}
LPNEWTEXTMETRICEX = ^NEWTEXTMETRICEXW;
_NEWTEXTMETRICEX = NEWTEXTMETRICEXW;
tagNEWTEXTMETRICEX = NEWTEXTMETRICEXW;
TNEWTEXTMETRICEX = NEWTEXTMETRICEXW;
PNEWTEXTMETRICEX = ^NEWTEXTMETRICEXW;
NEWTEXTMETRICEX = NEWTEXTMETRICEXW;
{$ENDIF}
NM_LISTVIEW = record NM_LISTVIEW = record
hdr : NMHDR; hdr : NMHDR;
iItem : longint; iItem : longint;
@ -5025,7 +5153,7 @@ Const
TOFNOTIFY = OFNOTIFY; TOFNOTIFY = OFNOTIFY;
POFNOTIFY = ^OFNOTIFY; POFNOTIFY = ^OFNOTIFY;
OSVERSIONINFO = record OSVERSIONINFOA = record
dwOSVersionInfoSize : DWORD; dwOSVersionInfoSize : DWORD;
dwMajorVersion : DWORD; dwMajorVersion : DWORD;
dwMinorVersion : DWORD; dwMinorVersion : DWORD;
@ -5033,10 +5161,10 @@ Const
dwPlatformId : DWORD; dwPlatformId : DWORD;
szCSDVersion : array[0..127] of TCHAR; szCSDVersion : array[0..127] of TCHAR;
end; end;
LPOSVERSIONINFO = ^OSVERSIONINFO; LPOSVERSIONINFOA= ^OSVERSIONINFOA;
_OSVERSIONINFO = OSVERSIONINFO; _OSVERSIONINFOA = OSVERSIONINFOA;
TOSVERSIONINFO = OSVERSIONINFO; TOSVERSIONINFOA = OSVERSIONINFOA;
POSVERSIONINFO = ^OSVERSIONINFO; POSVERSIONINFOA = LPOSVERSIONINFOA;
OSVERSIONINFOW = record OSVERSIONINFOW = record
dwOSVersionInfoSize : DWORD; dwOSVersionInfoSize : DWORD;
@ -5049,13 +5177,26 @@ Const
LPOSVERSIONINFOW = ^OSVERSIONINFOW; LPOSVERSIONINFOW = ^OSVERSIONINFOW;
_OSVERSIONINFOW = OSVERSIONINFOW; _OSVERSIONINFOW = OSVERSIONINFOW;
TOSVERSIONINFOW = OSVERSIONINFOW; TOSVERSIONINFOW = OSVERSIONINFOW;
POSVERSIONINFOW = ^OSVERSIONINFOW; POSVERSIONINFOW = LPOSVERSIONINFOW;
{$IFNDEF UNICODE}
LPOSVERSIONINFO = ^OSVERSIONINFOA;
_OSVERSIONINFO = OSVERSIONINFOA;
TOSVERSIONINFO = OSVERSIONINFOA;
POSVERSIONINFO = ^OSVERSIONINFOA;
OSVERSIONINFO = OSVERSIONINFOA;
{$ELSE}
LPOSVERSIONINFO = ^OSVERSIONINFOW;
_OSVERSIONINFO = OSVERSIONINFOW;
TOSVERSIONINFO = OSVERSIONINFOW;
POSVERSIONINFO = ^OSVERSIONINFOW;
OSVERSIONINFO = OSVERSIONINFOW;
{$ENDIF}
{$push} {$push}
{$packrecords 4} {$packrecords 4}
TEXTMETRIC = record TEXTMETRICA = record
tmHeight : LONG; tmHeight : LONG;
tmAscent : LONG; tmAscent : LONG;
tmDescent : LONG; tmDescent : LONG;
@ -5077,15 +5218,11 @@ Const
tmPitchAndFamily : BYTE; tmPitchAndFamily : BYTE;
tmCharSet : BYTE; tmCharSet : BYTE;
end; end;
LPTEXTMETRIC = ^TEXTMETRIC; LPTEXTMETRICA = ^TEXTMETRICA;
tagTEXTMETRIC = TEXTMETRIC;
TTEXTMETRIC = TEXTMETRIC;
PTEXTMETRIC = ^TEXTMETRIC;
TEXTMETRICA = TEXTMETRIC;
LPTEXTMETRICA = ^TEXTMETRICA;
tagTEXTMETRICA = TEXTMETRICA; tagTEXTMETRICA = TEXTMETRICA;
TTEXTMETRICA = TEXTMETRICA; _TEXTMETRICA = TEXTMETRICA;
PTEXTMETRICA = ^TEXTMETRICA; TTEXTMETRICA = TEXTMETRICA;
PTEXTMETRICA = LPTEXTMETRICA;
TEXTMETRICW = record TEXTMETRICW = record
tmHeight : LONG; tmHeight : LONG;
@ -5111,13 +5248,31 @@ Const
end; end;
LPTEXTMETRICW = ^TEXTMETRICW; LPTEXTMETRICW = ^TEXTMETRICW;
tagTEXTMETRICW = TEXTMETRICW; tagTEXTMETRICW = TEXTMETRICW;
_TEXTMETRICW = TEXTMETRICW;
TTEXTMETRICW = TEXTMETRICW; TTEXTMETRICW = TEXTMETRICW;
PTEXTMETRICW = ^TEXTMETRICW; PTEXTMETRICW = ^TEXTMETRICW;
{$IFNDEF UNICODE}
LPTEXTMETRIC = ^TEXTMETRICA;
_TEXTMETRIC = TEXTMETRICA;
tagTEXTMETRIC = TEXTMETRICA;
TTEXTMETRIC = TEXTMETRICA;
PTEXTMETRIC = ^TEXTMETRICA;
TEXTMETRIC = TEXTMETRICA;
{$ELSE}
LPTEXTMETRIC = ^TEXTMETRICW;
_TEXTMETRIC = TEXTMETRICW;
tagTEXTMETRIC = TEXTMETRICW;
TTEXTMETRIC = TEXTMETRICW;
PTEXTMETRIC = ^TEXTMETRICW;
TEXTMETRIC = TEXTMETRICW;
{$ENDIF}
{$PACKRECORDS C} {$PACKRECORDS C}
OUTLINETEXTMETRICA = record OUTLINETEXTMETRICA = record
otmSize : UINT; otmSize : UINT;
otmTextMetrics : TEXTMETRIC; otmTextMetrics : TEXTMETRICA;
otmFiller : BYTE; otmFiller : BYTE;
otmPanoseNumber : PANOSE; otmPanoseNumber : PANOSE;
otmfsSelection : UINT; otmfsSelection : UINT;
@ -5191,21 +5346,22 @@ Const
LPOUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW; LPOUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW;
_OUTLINETEXTMETRICW = OUTLINETEXTMETRICW; _OUTLINETEXTMETRICW = OUTLINETEXTMETRICW;
TOUTLINETEXTMETRICW = OUTLINETEXTMETRICW; TOUTLINETEXTMETRICW = OUTLINETEXTMETRICW;
POUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW; POUTLINETEXTMETRICW = LPOUTLINETEXTMETRICW;
{$ifdef Unicode} {$ifdef Unicode}
LPOUTLINETEXTMETRIC = ^OUTLINETEXTMETRICW; LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICW;
_OUTLINETEXTMETRIC = OUTLINETEXTMETRICW; _OUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
TOUTLINETEXTMETRIC = OUTLINETEXTMETRICW; TOUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
POUTLINETEXTMETRIC = ^OUTLINETEXTMETRICW; POUTLINETEXTMETRIC = LPOUTLINETEXTMETRICW;
OUTLINETEXTMETRIC = OUTLINETEXTMETRICW; OUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
{$else} {$else}
LPOUTLINETEXTMETRIC = ^OUTLINETEXTMETRICA; LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICA;
_OUTLINETEXTMETRIC = OUTLINETEXTMETRICA; _OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
TOUTLINETEXTMETRIC = OUTLINETEXTMETRICA; TOUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
POUTLINETEXTMETRIC = ^OUTLINETEXTMETRICA; POUTLINETEXTMETRIC = LPOUTLINETEXTMETRICA;
OUTLINETEXTMETRIC = OUTLINETEXTMETRICA; OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
{$endif} {$endif}
{$POP} {$POP}
OVERLAPPED = record OVERLAPPED = record
Internal : ULONG_PTR; Internal : ULONG_PTR;