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

* corrections from Mantis .

Browse Source 
- tbitmapheader is not a redef, from redef -> struct
     - some -A types had char types that were $ifdef unicode dependent. Fixed.
     - some -A types had char types in numeric form (bchar), where Delphi
	uses Pascal char types (ansichar)  

git-svn-id: trunk@24449 -
This commit is contained in:
marco 2013-05-05 10:23:06 +00:00
parent ea86dcb668
commit 3af8cab1de
2 changed files with 16 additions and 16 deletions
rtl/win/wininc
redef.incstruct.inc

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

@ -69,9 +69,6 @@ type
end;
PMaxLogPalette = ^TMaxLogPalette;
TBitmapFileHeader = BITMAPFILEHEADER;
PBitmapFileHeader = ^TBitmapFileHeader;
TOwnerDrawState = set of (
odSelected,odGrayed,odDisabled,odChecked,
odFocused,odDefault,odHotLight,odInactive,odNoAccel,odNoFocusRect,

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

@ -398,7 +398,10 @@ Const
bfOffBits : DWord;
end;
tagBITMAPFILEHEADER = BITMAPFILEHEADER;
TBitmapFileHeader = BITMAPFILEHEADER;
PBitmapFileHeader = ^TBitmapFileHeader;
BLOB = record
cbSize : ULONG;
pBlobData : ^BYTE;
@ -2027,7 +2030,7 @@ Const
PDEVBROADCASTVOLUME = ^DEV_BROADCAST_VOLUME;
DEVMODEA = record
dmDeviceName : array[0..(CCHDEVICENAME)-1] of BCHAR;
dmDeviceName : array[0..(CCHDEVICENAME)-1] of AnsiChar;
dmSpecVersion : WORD;
dmDriverVersion : WORD;
dmSize : WORD;
@ -2047,7 +2050,7 @@ Const
dmYResolution : SmallInt;
dmTTOption : SmallInt;
dmCollate : SmallInt;
dmFormName : array[0..(CCHFORMNAME)-1] of BCHAR;
dmFormName : array[0..(CCHFORMNAME)-1] of AnsiCHAR;
dmLogPixels : WORD;
dmBitsPerPel : DWORD;
dmPelsWidth : DWORD;
@ -2707,8 +2710,8 @@ Const
EXTLOGFONTA = record
elfLogFont : LOGFONT;
elfFullName : array[0..(LF_FULLFACESIZE)-1] of BCHAR;
elfStyle : array[0..(LF_FACESIZE)-1] of BCHAR;
elfFullName : array[0..(LF_FULLFACESIZE)-1] of AnsiCHAR;
elfStyle : array[0..(LF_FACESIZE)-1] of AnsiCHAR;
elfVersion : DWORD;
elfStyleSize : DWORD;
elfMatch : DWORD;
@ -4827,10 +4830,10 @@ Const
tmOverhang : LONG;
tmDigitizedAspectX : LONG;
tmDigitizedAspectY : LONG;
tmFirstChar : BCHAR;
tmLastChar : BCHAR;
tmDefaultChar : BCHAR;
tmBreakChar : BCHAR;
tmFirstChar : AnsiChar;
tmLastChar : AnsiChar;
tmDefaultChar : AnsiChar;
tmBreakChar : AnsiChar;
tmItalic : BYTE;
tmUnderlined : BYTE;
tmStruckOut : BYTE;
@ -5208,10 +5211,10 @@ Const
tmOverhang : LONG;
tmDigitizedAspectX : LONG;
tmDigitizedAspectY : LONG;
tmFirstChar : BCHAR;
tmLastChar : BCHAR;
tmDefaultChar : BCHAR;
tmBreakChar : BCHAR;
tmFirstChar : AnsiChar;
tmLastChar : AnsiChar;
tmDefaultChar : AnsiChar;
tmBreakChar : AnsiChar;
tmItalic : BYTE;
tmUnderlined : BYTE;
tmStruckOut : BYTE;