mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 10:19:30 +02:00
* Iconinfo type & constants added
This commit is contained in:
yuri
parent
1b26040053
commit
ca72a28a29
@ -25,7 +25,7 @@ const
|
||||
Severity_Error = $8;
|
||||
Severity_Severe = $C;
|
||||
Severity_Unrecoverable = $10;
|
||||
|
||||
|
||||
WinErr_Base = $1000;
|
||||
GPIErr_Base = $2000;
|
||||
DevErr_Base = $3000;
|
||||
@ -55,7 +55,7 @@ const
|
||||
FAttr_FontUse_Outline = $0004;
|
||||
FAttr_FontUse_Transformable = $0008;
|
||||
FaceSize = 32;
|
||||
|
||||
|
||||
FM_Type_Fixed = $0001;
|
||||
FM_Type_Licensed = $0002;
|
||||
FM_Type_Kerning = $0004;
|
||||
@ -84,55 +84,55 @@ const
|
||||
PShortint = ^shortint;
|
||||
PPointer = ^pointer;
|
||||
PByte = ^byte;
|
||||
|
||||
|
||||
PointL = record
|
||||
X: longint;
|
||||
Y: longint;
|
||||
X: longint;
|
||||
Y: longint;
|
||||
end;
|
||||
|
||||
PPointL = ^PointL;
|
||||
|
||||
PointS = record
|
||||
X: integer;
|
||||
Y: integer;
|
||||
X: integer;
|
||||
Y: integer;
|
||||
end;
|
||||
|
||||
|
||||
PPointS = ^PointS;
|
||||
|
||||
|
||||
RectL = record
|
||||
xLeft: longint;
|
||||
yBottom: longint;
|
||||
xRight: longint;
|
||||
yTop: longint;
|
||||
xLeft: longint;
|
||||
yBottom: longint;
|
||||
xRight: longint;
|
||||
yTop: longint;
|
||||
end;
|
||||
|
||||
PRectL = ^RectL;
|
||||
|
||||
NPrectL = ^RectL;
|
||||
|
||||
|
||||
Str8 = array[0..7] of char;
|
||||
|
||||
PStr8 = ^Str8;
|
||||
|
||||
DrivData = record
|
||||
cb: longint;
|
||||
lVersion: longint;
|
||||
szDeviceName: array[0..31] of char;
|
||||
abGeneralData: array[0..0] of char;
|
||||
cb: longint;
|
||||
lVersion: longint;
|
||||
szDeviceName: array[0..31] of char;
|
||||
abGeneralData: array[0..0] of char;
|
||||
end;
|
||||
|
||||
PDrivData = ^DrivData;
|
||||
|
||||
DevOpenStruc = record
|
||||
pszLogAddress: PChar;
|
||||
pszDriverName: PChar;
|
||||
pdriv: PDrivData;
|
||||
pszDataType: PChar;
|
||||
pszComment: PChar;
|
||||
pszQueueProcName: PChar;
|
||||
pszQueueProcParams: PChar;
|
||||
pszSpoolerParams: PChar;
|
||||
pszNetworkParams: PChar;
|
||||
pszLogAddress: PChar;
|
||||
pszDriverName: PChar;
|
||||
pdriv: PDrivData;
|
||||
pszDataType: PChar;
|
||||
pszComment: PChar;
|
||||
pszQueueProcName: PChar;
|
||||
pszQueueProcParams: PChar;
|
||||
pszSpoolerParams: PChar;
|
||||
pszNetworkParams: PChar;
|
||||
end;
|
||||
|
||||
PDevOpenStruc = ^DevOpenStruc;
|
||||
@ -140,119 +140,119 @@ const
|
||||
PDevOpenData = PDevOpenStruc;
|
||||
|
||||
PrintDest = record
|
||||
cb: cardinal;
|
||||
lType: longint;
|
||||
pszToken: PChar;
|
||||
lCount: longint;
|
||||
pdopData: PDevOpenData;
|
||||
fl: cardinal;
|
||||
pszPrinter: PChar;
|
||||
cb: cardinal;
|
||||
lType: longint;
|
||||
pszToken: PChar;
|
||||
lCount: longint;
|
||||
pdopData: PDevOpenData;
|
||||
fl: cardinal;
|
||||
pszPrinter: PChar;
|
||||
end;
|
||||
|
||||
PPrintDest = ^PrintDest;
|
||||
|
||||
|
||||
FAttrs = record
|
||||
usRecordLength: word;
|
||||
fsSelection: word;
|
||||
lMatch: longint;
|
||||
szFacename: array[0..FaceSize-1] of char;
|
||||
idRegistry: word;
|
||||
usCodePage: word;
|
||||
lMaxBaselineExt: longint;
|
||||
lAveCharWidth: longint;
|
||||
fsType: word;
|
||||
fsFontUse: word;
|
||||
usRecordLength: word;
|
||||
fsSelection: word;
|
||||
lMatch: longint;
|
||||
szFacename: array[0..FaceSize-1] of char;
|
||||
idRegistry: word;
|
||||
usCodePage: word;
|
||||
lMaxBaselineExt: longint;
|
||||
lAveCharWidth: longint;
|
||||
fsType: word;
|
||||
fsFontUse: word;
|
||||
end;
|
||||
|
||||
PFAttrs = ^FAttrs;
|
||||
|
||||
|
||||
Panose = record
|
||||
bFamilyType: byte;
|
||||
bSerifStyle: byte;
|
||||
bWeight: byte;
|
||||
bProportion: byte;
|
||||
bContrast: byte;
|
||||
bStrokeVariation: byte;
|
||||
bArmStyle: byte;
|
||||
bLetterform: byte;
|
||||
bMidline: byte;
|
||||
bXHeight: byte;
|
||||
abReserved: array[0..1] of byte;
|
||||
bFamilyType: byte;
|
||||
bSerifStyle: byte;
|
||||
bWeight: byte;
|
||||
bProportion: byte;
|
||||
bContrast: byte;
|
||||
bStrokeVariation: byte;
|
||||
bArmStyle: byte;
|
||||
bLetterform: byte;
|
||||
bMidline: byte;
|
||||
bXHeight: byte;
|
||||
abReserved: array[0..1] of byte;
|
||||
end;
|
||||
|
||||
FontMetrics = record
|
||||
szFamilyname: array[0..FaceSize-1] of char;
|
||||
szFacename: array[0..FaceSize-1] of char;
|
||||
idRegistry: word;
|
||||
usCodePage: word;
|
||||
lEmHeight: longint;
|
||||
lXHeight: longint;
|
||||
lMaxAscender: longint;
|
||||
lMaxDescender: longint;
|
||||
lLowerCaseAscent: longint;
|
||||
lLowerCaseDescent: longint;
|
||||
lInternalLeading: longint;
|
||||
lExternalLeading: longint;
|
||||
lAveCharWidth: longint;
|
||||
lMaxCharInc: longint;
|
||||
lEmInc: longint;
|
||||
lMaxBaselineExt: longint;
|
||||
sCharSlope: integer;
|
||||
sInlineDir: integer;
|
||||
sCharRot: integer;
|
||||
usWeightClass: word;
|
||||
usWidthClass: word;
|
||||
sXDeviceRes: integer;
|
||||
sYDeviceRes: integer;
|
||||
sFirstChar: integer;
|
||||
sLastChar: integer;
|
||||
sDefaultChar: integer;
|
||||
sBreakChar: integer;
|
||||
sNominalPointSize: integer;
|
||||
sMinimumPointSize: integer;
|
||||
sMaximumPointSize: integer;
|
||||
fsType: word;
|
||||
fsDefn: word;
|
||||
fsSelection: word;
|
||||
fsCapabilities: word;
|
||||
lSubscriptXSize: longint;
|
||||
lSubscriptYSize: longint;
|
||||
lSubscriptXOffset: longint;
|
||||
lSubscriptYOffset: longint;
|
||||
lSuperscriptXSize: longint;
|
||||
lSuperscriptYSize: longint;
|
||||
lSuperscriptXOffset: longint;
|
||||
lSuperscriptYOffset: longint;
|
||||
lUnderscoreSize: longint;
|
||||
lUnderscorePosition: longint;
|
||||
lStrikeoutSize: longint;
|
||||
lStrikeoutPosition: longint;
|
||||
sKerningPairs: integer;
|
||||
sFamilyClass: integer;
|
||||
lMatch: longint;
|
||||
FamilyNameAtom: longint;
|
||||
FaceNameAtom: longint;
|
||||
_Panose: Panose;
|
||||
szFamilyname: array[0..FaceSize-1] of char;
|
||||
szFacename: array[0..FaceSize-1] of char;
|
||||
idRegistry: word;
|
||||
usCodePage: word;
|
||||
lEmHeight: longint;
|
||||
lXHeight: longint;
|
||||
lMaxAscender: longint;
|
||||
lMaxDescender: longint;
|
||||
lLowerCaseAscent: longint;
|
||||
lLowerCaseDescent: longint;
|
||||
lInternalLeading: longint;
|
||||
lExternalLeading: longint;
|
||||
lAveCharWidth: longint;
|
||||
lMaxCharInc: longint;
|
||||
lEmInc: longint;
|
||||
lMaxBaselineExt: longint;
|
||||
sCharSlope: integer;
|
||||
sInlineDir: integer;
|
||||
sCharRot: integer;
|
||||
usWeightClass: word;
|
||||
usWidthClass: word;
|
||||
sXDeviceRes: integer;
|
||||
sYDeviceRes: integer;
|
||||
sFirstChar: integer;
|
||||
sLastChar: integer;
|
||||
sDefaultChar: integer;
|
||||
sBreakChar: integer;
|
||||
sNominalPointSize: integer;
|
||||
sMinimumPointSize: integer;
|
||||
sMaximumPointSize: integer;
|
||||
fsType: word;
|
||||
fsDefn: word;
|
||||
fsSelection: word;
|
||||
fsCapabilities: word;
|
||||
lSubscriptXSize: longint;
|
||||
lSubscriptYSize: longint;
|
||||
lSubscriptXOffset: longint;
|
||||
lSubscriptYOffset: longint;
|
||||
lSuperscriptXSize: longint;
|
||||
lSuperscriptYSize: longint;
|
||||
lSuperscriptXOffset: longint;
|
||||
lSuperscriptYOffset: longint;
|
||||
lUnderscoreSize: longint;
|
||||
lUnderscorePosition: longint;
|
||||
lStrikeoutSize: longint;
|
||||
lStrikeoutPosition: longint;
|
||||
sKerningPairs: integer;
|
||||
sFamilyClass: integer;
|
||||
lMatch: longint;
|
||||
FamilyNameAtom: longint;
|
||||
FaceNameAtom: longint;
|
||||
_Panose: Panose;
|
||||
end;
|
||||
|
||||
PFontMetrics = ^FontMetrics;
|
||||
|
||||
|
||||
{ Null terminated strings are often declared as array[0..0] of byte }
|
||||
{ in header files, the following type makes type conversion possible }
|
||||
CharArray = array[0..0] of char;
|
||||
|
||||
|
||||
{Names beginning with T for compatibility}
|
||||
TPointL = PointL;
|
||||
TPointS = PointS;
|
||||
TRectL = RectL;
|
||||
TStr8 = Str8;
|
||||
TDrivData = DrivData;
|
||||
TDevOpenStruc = DevOpenStruc;
|
||||
TPrintDest = PrintDest;
|
||||
TFAttrs = FAttrs;
|
||||
TPanose = Panose;
|
||||
TFontMetrics = FontMetrics;
|
||||
TCharArray = CharArray;
|
||||
TPointL = PointL;
|
||||
TPointS = PointS;
|
||||
TRectL = RectL;
|
||||
TStr8 = Str8;
|
||||
TDrivData = DrivData;
|
||||
TDevOpenStruc = DevOpenStruc;
|
||||
TPrintDest = PrintDest;
|
||||
TFAttrs = FAttrs;
|
||||
TPanose = Panose;
|
||||
TFontMetrics = FontMetrics;
|
||||
TCharArray = CharArray;
|
||||
|
||||
{Another bunch of compatibility things}
|
||||
HWnd = cardinal;
|
||||
@ -2517,6 +2517,24 @@ const
|
||||
|
||||
{$PACKRECORDS NORMAL}
|
||||
|
||||
Type
|
||||
ICONINFO=record
|
||||
cb: Cardinal; // size of ICONINFO structure
|
||||
fFormat: Cardinal;
|
||||
pszFileName: PChar; //use when fFormat = ICON_FILE
|
||||
hmod: Cardinal; // use when fFormat = ICON_RESOURCE
|
||||
resid: Cardinal; // use when fFormat = ICON_RESOURCE
|
||||
cbIconData: Cardinal; // use when fFormat = ICON_DATA
|
||||
pIconData: Pointer; // use when fFormat = ICON_DATA
|
||||
end;
|
||||
PIconInfo=^IconInfo;
|
||||
|
||||
const
|
||||
ICON_FILE =1; // flags for fFormat
|
||||
ICON_RESOURCE =2;
|
||||
ICON_DATA =3;
|
||||
ICON_CLEAR =4;
|
||||
|
||||
{ Error constants from bseerr.h header file }
|
||||
CONST
|
||||
NO_ERROR =0; { MSG%RESPONSE_DATA }
|
||||
@ -3373,11 +3391,14 @@ CONST
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.6 2002-11-02 11:15:38 hajny
|
||||
Revision 1.7 2003-03-28 13:25:08 yuri
|
||||
* Iconinfo type & constants added
|
||||
|
||||
Revision 1.6 2002/11/02 11:15:38 hajny
|
||||
+ comments and MSG lookup strings added
|
||||
|
||||
Revision 1.5 2002/09/07 16:01:24 peter
|
||||
|
||||
Loading…
Reference in New Issue
Block a user