Turbo Pascal 7.0 / TP7 / DOC / WINTYPES

{*******************************************************}
{ }
{ Turbo Pascal Runtime Library }
{ Windows API Interface Unit }
{ }
{ Copyright (c) 1991 Borland International }
{ }
{*******************************************************}

unit WinTypes;

interface

type
Bool = System.WordBool;

type
PStr = PChar;
PBool = ^WordBool;
PInteger = ^Integer;
PByte = ^Byte;
PWord = ^Word;
PLongInt = ^LongInt;

type
PHandle = ^THandle;
LPHandle = PHandle;
THandle = Word;
TGlobalHandle = THandle;
TLocalHandle = THandle;

type
TFarProc = Pointer;
LPVoid = Pointer;

type
HWnd = THandle;
HStr = THandle;
HIcon = THandle;
HDC = THandle;
HMenu = THandle;
HPen = THandle;
HFont = THandle;
HBrush = THandle;
HBitmap = THandle;
HCursor = THandle;
HRGN = THandle;
HPalette = THandle;

type
TColorRef = Longint;

type
PRect = ^TRect;
TRect = record
left: Integer;
top: Integer;
right: Integer;
bottom: Integer;
end;

type
PPoint = ^TPoint;
TPoint = record
x: Integer;
y: Integer;
end;
MakePoint = TPoint;

{--------------------------------------------------------------------------}
{ KERNEL Section }
{--------------------------------------------------------------------------}

{ OpenFile structure }

type
POFStruct = ^TOFStruct;
TOFStruct = record
cBytes: Byte;
fFixedDisk: Byte;
nErrCode: Word;
reserved: array[0..3] of Byte;
szPathName: array[0..127] of Char;
end;

{ OpenFile flags }

const
of_Read = $0000;
of_Write = $0001;
of_ReadWrite = $0002;
of_Share_Compat = $0000;
of_Share_Exclusive = $0010;
of_Share_Deny_Write = $0020;
of_Share_Deny_Read = $0030;
of_Share_Deny_None = $0040;
of_Parse = $0100;
of_Delete = $0200;
of_Verify = $0400;
of_Cancel = $0800;
of_Create = $1000;
of_Prompt = $2000;
of_Exist = $4000;
of_Reopen = $8000;

{ GetTempFileName flags }

const
tf_ForceDrive = $80;

{ GetDriveType return values }

const
drive_Removable = 2;
drive_Fixed = 3;
drive_Remote = 4;

{ Global Memory Flags }

const
gmem_Fixed = $0000;
gmem_Moveable = $0002;
gmem_NoCompact = $0010;
gmem_NoDiscard = $0020;
gmem_ZeroInit = $0040;
gmem_Modify = $0080;
gmem_Discardable = $0100;
gmem_Not_Banked = $1000;
gmem_Share = $2000;
gmem_DDEShare = $2000;
gmem_Notify = $4000;
gmem_Lower = gmem_Not_Banked;

const
GHnd = gmem_Moveable or gmem_ZeroInit;
GPtr = gmem_Fixed or gmem_ZeroInit;

{ Flags returned by GlobalFlags (in addition to gmem_Discardable) }

const
gmem_Discarded = $4000;
gmem_LockCount = $00FF;

{ Local Memory Flags }

const
lmem_Fixed = $0000;
lmem_Moveable = $0002;
lmem_NoCompact = $0010;
lmem_NoDiscard = $0020;
lmem_ZeroInit = $0040;
lmem_Modify = $0080;
lmem_Discardable = $0F00;

const
LHnd = lmem_Moveable or lmem_ZeroInit;
LPtr = lmem_Fixed or lmem_ZeroInit;

const
NonZeroLHnd = lmem_Moveable;
NonZeroLPtr = lmem_Fixed;

const
LNotify_OutOfMem = 0;
LNotify_Move = 1;
LNotify_Discard = 2;


{ Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE) }

const
lmem_Discarded = $4000;
lmem_LockCount = $00FF;


type
MakeIntResource = PStr;

const
Difference = 11;

{ Predefined Resource Types }

const
rt_Cursor = MakeIntResource(1);
rt_Bitmap = MakeIntResource(2);
rt_Icon = MakeIntResource(3);
rt_Menu = MakeIntResource(4);
rt_Dialog = MakeIntResource(5);
rt_String = MakeIntResource(6);
rt_FontDir = MakeIntResource(7);
rt_Font = MakeIntResource(8);
rt_Accelerator = MakeIntResource(9);
rt_RCData = MakeIntResource(10);

{ NOTE: if any new resource types are introduced above this point, }
{ then the value of Difference must be changed. }
{ (rt_Group_Cursor - rt_Cursor) must always be equal to Difference }
{ (rt_Group_Icon - rt_Icon) must always be equal to Difference }

rt_Group_Cursor = MakeIntResource(LongInt(rt_Cursor) + Difference);

{ The value 13 is intentionally unused }

rt_Group_Icon = MakeIntResource(LongInt(rt_Icon) + Difference);

type
TAtom = Word;

type
MakeIntAtom = PStr;

{ Catch and Throw }

type
PCatchBuf = ^TCatchBuf;
TCatchBuf = array[0..8] of Integer;

const
wf_PMode = $0001;
wf_CPU286 = $0002;
wf_CPU386 = $0004;
wf_CPU486 = $0008;
wf_Standard = $0010;
wf_Win286 = $0010;
wf_Enhanced = $0020;
wf_Win386 = $0020;
wf_CPU086 = $0040;
wf_CPU186 = $0080;
wf_LargeFrame = $0100;
wf_SmallFrame = $0200;
wf_80x87 = $0400;

wep_System_Exit = 1;
wep_Free_DLL = 0;
{$IFDEF OEMRESOURCE}

{ OEM Resource Ordinal Numbers }

const
obm_Close = 32754;
obm_UpArrow = 32753;
obm_DnArrow = 32752;
obm_RgArrow = 32751;
obm_LfArrow = 32750;
obm_Reduce = 32749;
obm_Zoom = 32748;
obm_Restore = 32747;
obm_Reduced = 32746;
obm_Zoomd = 32745;
obm_Restored = 32744;
obm_UpArrowD = 32743;
obm_DnArrowD = 32742;
obm_RgArrowD = 32741;
obm_LfArrowD = 32740;
obm_MnArrow = 32739;
obm_Combo = 32738;

const
obm_Old_Close = 32767;
obm_Size = 32766;
obm_Old_UpArrow = 32765;
obm_Old_DnArrow = 32764;
obm_Old_RgArrow = 32763;
obm_Old_LfArrow = 32762;
obm_BTSize = 32761;
obm_Check = 32760;
obm_CheckBoxes = 32759;
obm_BTNCorners = 32758;
obm_Old_Reduce = 32757;
obm_Old_Zoom = 32756;
obm_Old_Restore = 32755;

const
ocr_Normal = 32512;
ocr_IBeam = 32513;
ocr_Wait = 32514;
ocr_Cross = 32515;
ocr_Up = 32516;
ocr_Size = 32640;
ocr_Icon = 32641;
ocr_SizeNWSE = 32642;
ocr_SizeNESW = 32643;
ocr_SizeWE = 32644;
ocr_SizeNS = 32645;
ocr_SizeAll = 32646;
ocr_ICOCUR = 32647;

const
oic_Sample = 32512;
oic_Hand = 32513;
oic_Ques = 32514;
oic_Bang = 32515;
oic_Note = 32516;

{$ENDIF OEMRESOURCE}

{--------------------------------------------------------------------------}
{ GDI Section }
{--------------------------------------------------------------------------}

{ Binary raster ops }

const
r2_Black = 1; { 0 }
r2_NotMergePen = 2; { DPon }
r2_MaskNotPen = 3; { DPna }
r2_NotCopyPen = 4; { PN }
r2_MaskPenNot = 5; { PDna }
r2_Not = 6; { Dn }
r2_XORPen = 7; { DPx }
r2_NotMaskPen = 8; { DPan }
r2_MaskPen = 9; { DPa }
r2_NotXORPen = 10; { DPxn }
r2_NOP = 11; { D }
r2_MergeNotPen = 12; { DPno }
r2_CopyPen = 13; { P }
r2_MergePenNot = 14; { PDno }
r2_MergePen = 15; { DPo }
r2_White = 16; { 1 }

{ Ternary raster operations }

SrcCopy = $00CC0020; { dest = source }
SrcPaint = $00EE0086; { dest = source OR dest }
SrcAnd = $008800C6; { dest = source AND dest }
SrcInvert = $00660046; { dest = source XOR dest }
SrcErase = $00440328; { dest = source AND (NOT dest ) }
NotSrcCopy = $00330008; { dest = (NOT source) }
NotSrcErase = $001100A6; { dest = (NOT src) AND (NOT dest) }
MergeCopy = $00C000CA; { dest = (source AND pattern) }
MergePaint = $00BB0226; { dest = (NOT source) OR dest }
PatCopy = $00F00021; { dest = Pattern }
PatPaint = $00FB0A09; { dest = DPSnoo }
PatInvert = $005A0049; { dest = pattern XOR dest }
DstInvert = $00550009; { dest = (NOT dest) }
Blackness = $00000042; { dest = BLACK }
Whiteness = $00FF0062; { dest = WHITE }

{ StretchBlt modes }

const
BlackOnWhite = 1;
WhiteOnBlack = 2;
ColorOnColor = 3;

{ PolyFill modes }

const
Alternate = 1;
Winding = 2;

{ Text alignment options }

const
ta_NoUpdateCP = 0;
ta_UpdateCP = 1;

const
ta_Left = 0;
ta_Right = 2;
ta_Center = 6;

const
ta_Top = 0;
ta_Bottom = 8;
ta_BaseLine = 24;

const
eto_Grayed = 1;
eto_Opaque = 2;
eto_Clipped = 4;

const
Aspect_Filtering = $0001;

{ Metafile functions }

const
meta_SetBKColor = $0201;
meta_SetBKMode = $0102;
meta_SetMapMode = $0103;
meta_SetROP2 = $0104;
meta_SetRelAbs = $0105;
meta_SetPolyFillMode = $0106;
meta_SetStretchBltMode = $0107;
meta_SetTextCharExtra = $0108;
meta_SetTextColor = $0209;
meta_SetTextJustification = $020A;
meta_SetWindowOrg = $020B;
meta_SetWindowExt = $020C;
meta_SetViewportOrg = $020D;
meta_SetViewportExt = $020E;
meta_OffsetWindowOrg = $020F;
meta_ScaleWindowExt = $0400;
meta_OffsetViewportOrg = $0211;
meta_ScaleViewportExt = $0412;
meta_LineTo = $0213;
meta_MoveTo = $0214;
meta_ExcludeClipRect = $0415;
meta_IntersectClipRect = $0416;
meta_Arc = $0817;
meta_Ellipse = $0418;
meta_FloodFill = $0419;
meta_Pie = $081A;
meta_Rectangle = $041B;
meta_RoundRect = $061C;
meta_PatBlt = $061D;
meta_SaveDC = $001E;
meta_SetPixel = $041F;
meta_OffsetClipRgn = $0220;
meta_TextOut = $0521;
meta_BitBlt = $0922;
meta_StretchBlt = $0B23;
meta_Polygon = $0324;
meta_PolyLine = $0325;
meta_Escape = $0626;
meta_RestoreDC = $0127;
meta_FillRegion = $0228;
meta_FrameRegion = $0429;
meta_InvertRegion = $012A;
meta_PaintRegion = $012B;
meta_SelectClipRegion = $012C;
meta_SelectObject = $012D;
meta_SetTextAlign = $012E;
meta_DrawText = $062F;

const
meta_Chord = $0830;
meta_SetMapperFlags = $0231;
meta_ExtTextOut = $0a32;
meta_SetDIBToDev = $0d33;
meta_SelectPalette = $0234;
meta_RealizePalette = $0035;
meta_AnimatePalette = $0436;
meta_SetPalEntries = $0037;
meta_PolyPolygon = $0538;
meta_ResizePalette = $0139;

const
meta_DIBBitBlt = $0940;
meta_DIBStretchBlt = $0b41;
meta_DIBCreatePatternBrush = $0142;

const
meta_DeleteObject = $01f0;

const
meta_CreatePalette = $00f7;
meta_CreateBrush = $00F8;
meta_CreatePatternBrush = $01F9;
meta_CreatePenIndirect = $02FA;
meta_CreateFontIndirect = $02FB;
meta_CreateBrushIndirect = $02FC;
meta_CreateBitmapIndirect = $02FD;
meta_CreateBitmap = $06FE;
meta_CreateRegion = $06FF;

{ GDI Escapes }

const
NewFrame = 1;
AbortDoc = 2;
NextBand = 3;
SetColorTable = 4;
GetColorTable = 5;
FlushOutput = 6;
DraftMode = 7;
QueryEscSupport = 8;
SetAbortProc = 9;
StartDoc = 10;
EndDoc = 11;
GetPhysPageSize = 12;
GetPrintingOffset = 13;
GetScalingFactor = 14;
MFComment = 15;
GetPenWidth = 16;
SetCopyCount = 17;
SelectPaperSource = 18;
DeviceData = 19;
PassThrough = 19;
GetTechnolgy = 20;
GetTechnology = 20;
SetEndCap = 21;
SetLineJoin = 22;
SetMiterLimit = 23;
BandInfo = 24;
DrawPatternRect = 25;
GetVectorPenSize = 26;
GetVectorBrushSize = 27;
EnableDuplex = 28;
GetSetPaperBins = 29;
GetSetPrintOrient = 30;
EnumPaperBins = 31;
SetDIBScaling = 32;
EPSPrinting = 33;
EnumPaperMetrics = 34;
GetSetPaperMetrics = 35;
PostScript_Data = 37;
PostScript_Ignore = 38;
GetExtendedTextMetrics = 256;
GetExtentTable = 257;
GetPairKernTable = 258;
GetTrackKernTable = 259;
GDIExtTextOut = 512; {! Renamed from EXTTEXTOUT !}
EnableRelativeWidths = 768;
EnablePairKerning = 769;
SetKernTrack = 770;
SetAllJustValues = 771;
SetCharSet = 772;

const
GDIStretchBlt = 2048; {! renamed from STRETCHBLT !}
Begin_Path = 4096;
Clip_To_Path = 4097;
End_Path = 4098;
Ext_Device_Caps = 4099;
Restore_CTM = 4100;
Save_Ctm = 4101;
Set_Arc_Direction = 4102;
Set_Background_Color = 4103;
Set_Poly_Mode = 4104;
Set_Screen_Angle = 4105;
Set_Spread = 4106;
Transform_CTM = 4107;
Set_Clip_Box = 4108;
Set_Bounds = 4109;

{ Spooler error codes }

const
sp_NotReported = $4000;
sp_Error = (-1);
sp_AppAbort = (-2);
sp_UserAbort = (-3);
sp_OutOfDisk = (-4);
sp_OutOfMemory = (-5);

const
pr_JobStatus = $0000;

{ Object definitions for EnumObjects }

const
obj_Pen = 1;
obj_Brush = 2;

{ Bitmap header definition }

type
PBitmap = ^TBitmap;
TBitmap = record
bmType: Integer;
bmWidth: Integer;
bmHeight: Integer;
bmWidthBytes: Integer;
bmPlanes: Byte;
bmBitsPixel: Byte;
bmBits: Pointer;
end;

type
TRGBTriple = record
rgbtBlue: Byte;
rgbtGreen: Byte;
rgbtRed: Byte;
end;

type
TRGBQuad = record
rgbBlue: Byte;
rgbGreen: Byte;
rgbRed: Byte;
rgbReserved: Byte;
end;

{ Structures for defining DIBs }

type
PBitmapCoreHeader = ^TBitmapCoreHeader;
TBitmapCoreHeader = record
bcSize: Longint; { used to get to color table }
bcWidth: Word;
bcHeight: Word;
bcPlanes: Word;
bcBitCount: Word;
end;

type
PBitmapInfoHeader = ^TBitmapInfoHeader;
TBitmapInfoHeader = record
biSize: Longint;
biWidth: Longint;
biHeight: Longint;
biPlanes: Word;
biBitCount: Word;
biCompression: Longint;
biSizeImage: Longint;
biXPelsPerMeter: Longint;
biYPelsPerMeter: Longint;
biClrUsed: Longint;
biClrImportant: Longint;
end;

{ Constants for the biCompression field }

const
bi_RGB = 0;
bi_RLE8 = 1;
bi_RLE4 = 2;

type
PBitmapInfo = ^TBitmapInfo;
TBitmapInfo = record
bmiHeader: TBitmapInfoHeader;
bmiColors: array[0..0] of TRGBQuad;
end;

type
PBitmapCoreInfo = ^TBitmapCoreInfo;
TBitmapCoreInfo = record
bmciHeader: TBitmapCoreHeader;
bmciColors: array[0..0] of TRGBTriple;
end;

type
PBitmapFileHeader = ^TBitmapFileHeader;
TBitmapFileHeader = record
bfType: Word;
bfSize: Longint;
bfReserved1: Word;
bfReserved2: Word;
bfOffBits: Longint;
end;


{ Clipboard Metafile Picture Structure }

type
PHandleTable = ^THandleTable;
THandleTable = record
objectHandle: array[0..0] of THandle;
end;

type
PMetaRecord = ^TMetaRecord;
TMetaRecord = record
rdSize: Longint;
rdFunction: Word;
rdParm: array[0..0] of Word;
end;

PMetaHeader = ^TMetaHeader;
TMetaHeader = record
mtType : Word;
mtHeaderSize : Word;
mtVersion : Word;
mtSize : Longint;
mtNoObjects : Word;
mtMaxRecord : Longint;
mtNoParameters : Word;
end;

type
PMetaFilePict = ^TMetaFilePict;
TMetaFilePict = record
mm: Integer;
xExt: Integer;
yExt: Integer;
hMF: THandle;
end;

type
PTextMetric = ^TTextMetric;
TTextMetric = record
tmHeight: Integer;
tmAscent: Integer;
tmDescent: Integer;
tmInternalLeading: Integer;
tmExternalLeading: Integer;
tmAveCharWidth: Integer;
tmMaxCharWidth: Integer;
tmWeight: Integer;
tmItalic: Byte;
tmUnderlined: Byte;
tmStruckOut: Byte;
tmFirstChar: Byte;
tmLastChar: Byte;
tmDefaultChar: Byte;
tmBreakChar: Byte;
tmPitchAndFamily: Byte;
tmCharSet: Byte;
tmOverhang: Integer;
tmDigitizedAspectX: Integer;
tmDigitizedAspectY: Integer;
end;

{ GDI Logical Objects }

{ Pel Array }

type
PPelArray = ^TPelArray;
TPelArray = record
paXCount: Integer;
paYCount: Integer;
paXExt: Integer;
paYExt: Integer;
paRGBs: Byte;
end;

{ Logical Brush (or Pattern) }

type
PLogBrush = ^TLogBrush;
TLogBrush = record
lbStyle: Word;
lbColor: Longint;
lbHatch: Integer;
end;

type
PPattern = ^TPattern;
TPattern = TLogBrush;

{ Logical Pen }

type
PLogPen = ^TLogPen;
TLogPen = record
lopnStyle: Word;
lopnWidth: TPoint;
lopnColor: Longint;
end;

type
PPaletteEntry = ^TPaletteEntry;
TPaletteEntry = record
peRed: Byte;
peGreen: Byte;
peBlue: Byte;
peFlags: Byte;
end;

{ Logical Palette }

type
PLogPalette = ^TLogPalette;
TLogPalette = record
palVersion: Word;
palNumEntries: Word;
palPalEntry: array[0..0] of TPaletteEntry;
end;

{ Logical Font }

const
lf_FaceSize = 32;

type
PLogFont = ^TLogFont;
TLogFont = record
lfHeight: Integer;
lfWidth: Integer;
lfEscapement: Integer;
lfOrientation: Integer;
lfWeight: Integer;
lfItalic: Byte;
lfUnderline: Byte;
lfStrikeOut: Byte;
lfCharSet: Byte;
lfOutPrecision: Byte;
lfClipPrecision: Byte;
lfQuality: Byte;
lfPitchAndFamily: Byte;
lfFaceName: array[0..lf_FaceSize - 1] of Char;
end;

const
out_Default_Precis = 0;
out_String_Precis = 1;
out_Character_Precis = 2;
out_Stroke_Precis = 3;

const
clip_Default_Precis = 0;
clip_Character_Precis = 1;
clip_Stroke_Precis = 2;

const
Default_Quality = 0;
Draft_Quality = 1;
Proof_Quality = 2;

const
Default_Pitch = 0;
Fixed_Pitch = 1;
Variable_Pitch = 2;

const
Ansi_CharSet = 0;
Symbol_CharSet = 2;
ShiftJIS_CharSet = 128;
OEM_CharSet = 255;

{ Font Families }

const
ff_DontCare = 0 shl 4; { Don't care or don't know. }
ff_Roman = 1 shl 4; { Variable stroke width, serifed. }
{ Times Roman, Century Schoolbook, etc. }
ff_Swiss = 2 shl 4; { Variable stroke width, sans-serifed. }
{ Helvetica, Swiss, etc. }
ff_Modern = 3 shl 4; { Constant stroke width, serifed or sans-serifed. }
{ Pica, Elite, Courier, etc. }
ff_Script = 4 shl 4; { Cursive, etc. }
ff_Decorative = 5 shl 4; { Old English, etc. }

{ Font Weights }

const
fw_DontCare = 0;
fw_Thin = 100;
fw_ExtraLight = 200;
fw_Light = 300;
fw_Normal = 400;
fw_Medium = 500;
fw_SemiBold = 600;
fw_Bold = 700;
fw_ExtraBold = 800;
fw_Heavy = 900;

const
fw_UltraLight = fw_ExtraLight;
fw_Regular = fw_Normal;
fw_DemiBold = fw_SemiBold;
fw_UltraBold = fw_ExtraBold;
fw_Black = fw_Heavy;

{ EnumFonts Masks }

const
Raster_FontType = $0001;
Device_FontType = $0002;


{ Background Modes }

const
Transparent = 1;
Opaque = 2;

{ Mapping Modes }

const
mm_Text = 1;
mm_LoMetric = 2;
mm_HiMetric = 3;
mm_LoEnglish = 4;
mm_HiEnglish = 5;
mm_TWIPS = 6;
mm_Isotropic = 7;
mm_Anisotropic = 8;

{ Coordinate Modes }

const
Absolute = 1;
Relative = 2;

{ Stock Logical Objects }

const
White_Brush = 0;
LtGray_Brush = 1;
Gray_Brush = 2;
DkGray_Brush = 3;
Black_Brush = 4;
Null_Brush = 5;
Hollow_Brush = Null_Brush;
White_Pen = 6;
Black_Pen = 7;
Null_Pen = 8;
OEM_Fixed_Font = 10;
ANSI_Fixed_Font = 11;
ANSI_Var_Font = 12;
System_Font = 13;
Device_Default_Font = 14;
Default_Palette = 15;
System_Fixed_Font = 16;

{ Brush Styles }

const
bs_Solid = 0;
bs_Null = 1;
bs_Hollow = bs_NULL;
bs_Hatched = 2;
bs_Pattern = 3;
bs_Indexed = 4;
bs_DIBPattern = 5;

{ Hatch Styles }

const
hs_Horizontal = 0; { ----- }
hs_Vertical = 1; { ||||| }
hs_FDiagonal = 2; { ///// }
hs_BDiagonal = 3; { \\\\\ }
hs_Cross = 4; { +++++ }
hs_DiagCross = 5; { xxxxx }

const
ps_Solid = 0;
ps_Dash = 1; { ------- }
ps_Dot = 2; { ....... }
ps_DashDot = 3; { _._._._ }
ps_DashDotDot = 4; { _.._.._ }
ps_Null = 5;
ps_InsideFrame = 6;

{ Device Parameters for GetDeviceCaps }

const
DriverVersion = 0; { Device driver version }
Technology = 2; { Device classification }
HorzSize = 4; { Horizontal size in millimeters }
VertSize = 6; { Vertical size in millimeters }
HorzRes = 8; { Horizontal width in pixels }
VertRes = 10; { Vertical width in pixels }
BitsPixel = 12; { Number of bits per pixel }
Planes = 14; { Number of planes }
NumBrushes = 16; { Number of brushes the device has }
NumPens = 18; { Number of pens the device has }
NumMarkers = 20; { Number of markers the device has }
NumFonts = 22; { Number of fonts the device has }
NumColors = 24; { Number of colors the device supports }
PDeviceSize = 26; { Size required for device descriptor }
CurveCaps = 28; { Curve capabilities }
LineCaps = 30; { Line capabilities }
PolygonalCaps = 32; { Polygonal capabilities }
TextCaps = 34; { Text capabilities }
ClipCaps = 36; { Clipping capabilities }
RasterCaps = 38; { Bitblt capabilities }
AspectX = 40; { Length of the X leg }
AspectY = 42; { Length of the Y leg }
AspectXY = 44; { Length of the hypotenuse }
LogPixelsX = 88; { Logical pixels/inch in X }
LogPixelsY = 90; { Logical pixels/inch in Y }
SizePalette = 104; { Number of entries in physical palette }
NumReserved = 106; { Number of reserved entries in palette }
ColorRes = 108; { Actual color resolution }

{ Device Capability Masks }

{ Device Technologies }

const
dt_Plotter = 0; { Vector plotter }
dt_RasDisplay = 1; { Raster display }
dt_RasPrinter = 2; { Raster printer }
dt_RasCamera = 3; { Raster camera }
dt_CharStream = 4; { Character-stream, PLP }
dt_MetaFile = 5; { Metafile, VDM }
dt_DispFile = 6; { Display-file }

{ Curve Capabilities }

const
cc_None = 0; { Curves not supported }
cc_Circles = 1; { Can do circles }
cc_Pie = 2; { Can do pie wedges }
cc_Chord = 4; { Can do chord arcs }
cc_Ellipses = 8; { Can do ellipese }
cc_Wide = 16; { Can do wide lines }
cc_Styled = 32; { Can do styled lines }
cc_WideStyled = 64; { Can do wide styled lines }
cc_Interiors = 128; { Can do interiors }

{ Line Capabilities }

const
lc_None = 0; { Lines not supported }
lc_PolyLine = 2; { Can do polylines }
lc_Marker = 4; { Can do markers }
lc_PolyMarker = 8; { Can do polymarkers }
lc_Wide = 16; { Can do wide lines }
lc_Styled = 32; { Can do styled lines }
lc_WideStyled = 64; { Can do wide styled lines }
lc_Interiors = 128; { Can do interiors }

{ Polygonal Capabilities }

const
pc_None = 0; { Polygonals not supported }
pc_Polygon = 1; { Can do polygons }
pc_Rectangle = 2; { Can do rectangles }
pc_WindPolygon = 4; { Can do winding polygons }
pc_Trapezoid = 4; { Can do trapezoids }
pc_ScanLine = 8; { Can do scanlines }
pc_Wide = 16; { Can do wide borders }
pc_Styled = 32; { Can do styled borders }
pc_WideStyled = 64; { Can do wide styled borders }
pc_Interiors = 128; { Can do interiors }

{ Polygonal Capabilities }

const
cp_None = 0; { No clipping of output }
cp_Rectangle = 1; { Output clipped to rects }

{ Text Capabilities }

const
tc_op_Character = $0001; { Can do OutputPrecision CHARACTER }
tc_op_Stroke = $0002; { Can do OutputPrecision STROKE }
tc_cp_Stroke = $0004; { Can do ClipPrecision STROKE }
tc_cr_90 = $0008; { Can do CharRotAbility 90 }
tc_cr_Any = $0010; { Can do CharRotAbility ANY }
tc_sf_X_YIndep = $0020; { Can do ScaleFreedom X_YINDEPENDENT }
tc_sa_Double = $0040; { Can do ScaleAbility DOUBLE }
tc_sa_Integer = $0080; { Can do ScaleAbility INTEGER }
tc_sa_Contin = $0100; { Can do ScaleAbility CONTINUOUS }
tc_ea_Double = $0200; { Can do EmboldenAbility DOUBLE }
tc_ia_Able = $0400; { Can do ItalisizeAbility ABLE }
tc_ua_Able = $0800; { Can do UnderlineAbility ABLE }
tc_so_Able = $1000; { Can do StrikeOutAbility ABLE }
tc_ra_Able = $2000; { Can do RasterFontAble ABLE }
tc_va_Able = $4000; { Can do VectorFontAble ABLE }
tc_Reserved = $8000;

{ Raster Capabilities }

const
rc_BitBlt = $0001; { Can do standard Blt. }
rc_Banding = $0002; { Device requires banding support }
rc_Scaling = $0004; { Device requires scaling support }
rc_Bitmap64 = $0008; { Device can support >64K bitmap }
rc_GDI20_Output = $0010; { has 2.0 output calls }
rc_Di_Bitmap = $0080; { supports DIB to memory }
rc_Palette = $0100; { supports a palette }
rc_DIBToDev = $0200; { supports DIBitsToDevice }
rc_BigFont = $0400; { supports >64K fonts }
rc_StretchBlt = $0800; { supports StretchBlt }
rc_FloodFill = $1000; { supports FloodFill }
rc_StretchDIB = $2000; { supports StretchDIBits }
{ Palette entry flags }

const
pc_Reserved = $01; { palette index used for animation }
pc_Explicit = $02; { palette index is explicit to device }
pc_NoCollapse = $04; { do not match color to system palette }

{ DIB color table identifiers }

const
DIB_RGB_Colors = 0; { color table in RGBTriples }
DIB_Pal_Colors = 1; { color table in palette indices }

{ Constants for Get/SetSystemPaletteUse }

const
syspal_Static = 1;
syspal_NoStatic = 2;

{ constants for CreateDIBitmap }

const
cbm_Init = $04; { initialize bitmap }


{ Indices in FontMapperWeights array }

const
PCharSet = 0;
POutPrecisMismatch = 1;
PPitchFixed = 2;
PFaceName = 3;
PFamily = 4;
PFamilyUnknown = 5;
PHeightBigger = 6;
PPitchVariable = 7;
PFHeightSmaller = 8;
PFHeightBigger = 9;
PFWidth = 10;
PSizeSynth = 11;
PFUnevenSizeSynth = 12;
PFIntSizeSynth = 13;
PFAspect = 14;
PItalic = 15;
PFWeight = 16;
PUnderline = 17;
PStrikeOut = 18;
PDefaultPitchFixed = 19;
PFVHeightSmaller = 20;
PFVHeightBigger = 21;
DeviceFavor = 22;
PFWeightNumer = 23;
PFWeightDenom = 24;

{ DrawText Format Flags }

const
dt_Top = $0000;
dt_Left = $0000;
dt_Center = $0001;
dt_Right = $0002;
dt_VCenter = $0004;
dt_Bottom = $0008;
dt_WordBreak = $0010;
dt_SingleLine = $0020;
dt_ExpandTabs = $0040;
dt_TabStop = $0080;
dt_NoClip = $0100;
dt_ExternalLeading = $0200;
dt_CalcRect = $0400;
dt_NoPrefix = $0800;
dt_Internal = $1000;

{ ExtFloodFill style flags }

const
FloodFillBorder = 0;
FloodFillSurface = 1;

{--------------------------------------------------------------------------}
{ USER Section }
{--------------------------------------------------------------------------}

{ Scroll Bar Constants }

const
sb_HORZ = 0;
sb_VERT = 1;
sb_CTL = 2;
sb_BOTH = 3;

{ Scroll Bar Commands }

const
sb_LineUp = 0;
sb_LineDown = 1;
sb_PageUp = 2;
sb_PageDown = 3;
sb_ThumbPosition = 4;
sb_ThumbTrack = 5;
sb_Top = 6;
sb_Bottom = 7;
sb_EndScroll = 8;

{ ShowWindow Commands }

const
sw_Hide = 0;
sw_ShowNormal = 1;
sw_Normal = 1;
sw_ShowMinimized = 2;
sw_ShowMaximized = 3;
sw_Maximize = 3;
sw_ShowNoActivate = 4;
sw_Show = 5;
sw_Minimize = 6;
sw_ShowMinNoActive = 7;
sw_ShowNA = 8;
sw_Restore = 9;

{ Old ShowWindow Commands }

const
hide_Window = 0;
show_OpenWindow = 1;
show_IconWindow = 2;
show_FullScreen = 3;
show_OpenNoActivate = 4;

{ Identifiers for the wm_ShowWindow message }

const
sw_ParentClosing = 1;
sw_OtherZoom = 2;
sw_ParentOpening = 3;
sw_OtherUnzoom = 4;

{ Region Flags }

const
Error = 0;
NullRegion = 1;
SimpleRegion = 2;
ComplexRegion = 3;

{ CombineRgn Styles }

const
Rgn_And = 1;
Rgn_Or = 2;
Rgn_Xor = 3;
Rgn_Diff = 4;
Rgn_Copy = 5;

{ Virtual Keys, Standard Set }

const
vk_LButton = $01;
vk_RButton = $02;
vk_Cancel = $03;
vk_MButton = $04; { NOT contiguous with L & RBUTTON }
vk_Back = $08;
vk_Tab = $09;
vk_Clear = $0C;
vk_Return = $0D;
vk_Shift = $10;
vk_Control = $11;
vk_Menu = $12;
vk_Pause = $13;
vk_Capital = $14;
vk_Escape = $1B;
vk_Space = $20;
vk_Prior = $21;
vk_Next = $22;
vk_End = $23;
vk_Home = $24;
vk_Left = $25;
vk_Up = $26;
vk_Right = $27;
vk_Down = $28;
vk_Select = $29;
vk_Print = $2A;
vk_Execute = $2B;
vk_SnapShot = $2C;
{ vk_Copy = $2C not used by keyboards }
vk_Insert = $2D;
vk_Delete = $2E;
vk_Help = $2F;
{ vk_A thru vk_Z are the same as their ASCII equivalents: 'A' thru 'Z' }
{ vk_0 thru vk_9 are the same as their ASCII equivalents: '0' thru '9' }
vk_NumPad0 = $60;
vk_NumPad1 = $61;
vk_NumPad2 = $62;
vk_NumPad3 = $63;
vk_NumPad4 = $64;
vk_NumPad5 = $65;
vk_NumPad6 = $66;
vk_NumPad7 = $67;
vk_NumPad8 = $68;
vk_NumPad9 = $69;
vk_Multiply = $6A;
vk_Add = $6B;
vk_Separator = $6C;
vk_Subtract = $6D;
vk_Decimal = $6E;
vk_Divide = $6F;
vk_F1 = $70;
vk_F2 = $71;
vk_F3 = $72;
vk_F4 = $73;
vk_F5 = $74;
vk_F6 = $75;
vk_F7 = $76;
vk_F8 = $77;
vk_F9 = $78;
vk_F10 = $79;
vk_F11 = $7A;
vk_F12 = $7B;
vk_F13 = $7C;
vk_F14 = $7D;
vk_F15 = $7E;
vk_F16 = $7F;
vk_NumLock = $90;

{ SetWindowsHook codes }

const
wh_MsgFilter = (-1);
wh_JournalRecord = 0;
wh_JournalPlayback = 1;
wh_Keyboard = 2;
wh_GetMessage = 3;
wh_CallWndProc = 4;
wh_CBT = 5;
wh_SysMsgFilter = 6;
wh_WindowMgr = 7;

{ Hook Codes }

const
hc_LPLPFnNext = (-2);
hc_LPFnNext = (-1);
hc_Action = 0;
hc_GetNext = 1;
hc_Skip = 2;
hc_NoRem = 3;
hc_NoRemove = 3;
hc_SysModalOn = 4;
hc_SysModalOff = 5;

{ CBT Hook Codes }

const
hcbt_MoveSize = 0;
hcbt_MinMax = 1;
hcbt_QS = 2;

{ wh_MSGFILTER Filter Proc Codes }

const
msgf_DialogBox = 0;
msgf_MessageBox = 1;
msgf_Menu = 2;
msgf_Move = 3;
msgf_Size = 4;
msgf_ScrollBar = 5;
msgf_NextWindow = 6;

{ Window Manager Hook Codes }

const
wc_Init = 1;
wc_SWP = 2;
wc_DefWindowProc = 3;
wc_MinMax = 4;
wc_Move = 5;
wc_Size = 6;
wc_DrawCaption = 7;

{ Message Structure used in Journaling }

type
PEventMsg = ^TEventMsg;
TEventMsg = record
message: Word;
paramL: Word;
paramH: Word;
time: Longint;
end;

type
PWndClass = ^TWndClass;
TWndClass = record
style: Word;
lpfnWndProc: TFarProc;
cbClsExtra: Integer;
cbWndExtra: Integer;
hInstance: THandle;
hIcon: HIcon; { Name clash }
hCursor: HCursor; { Name clash }
hbrBackground: HBrush;
lpszMenuName: PChar;
lpszClassName: PChar;
end;

{ Message structure }

type
PMsg = ^TMsg;
TMsg = record
hwnd: HWnd;
message: Word;
wParam: Word;
lParam: LongInt;
time: Longint;
pt: TPoint;
end;

{ Window field offsets for GetWindowLong and GetWindowWord }

const
gwl_WndProc = (-4);
gww_HInstance = (-6);
gww_HWndParent = (-8);
gww_ID = (-12);
gwl_Style = (-16);
gwl_EXStyle = (-20);

{ Class field offsets for GetClassLong and GetClassWord }

const
gcl_MenuName = (-8);
gcw_HBRBackGround = (-10);
gcw_HCursor = (-12);
gcw_HIcon = (-14);
gcw_HModule = (-16);
gcw_CBWndExtra = (-18);
gcw_CBClsExtra = (-20);
gcl_WndProc = (-24);
gcw_Style = (-26);

{ Window Messages }

const
wm_Null = $0000;
wm_Create = $0001;
wm_Destroy = $0002;
wm_Move = $0003;
wm_Size = $0005;
wm_Activate = $0006;
wm_SetFocus = $0007;
wm_KillFocus = $0008;
wm_Enable = $000A;
wm_SetRedraw = $000B;
wm_SetText = $000C;
wm_GetText = $000D;
wm_GetTextLength = $000E;
wm_Paint = $000F;
wm_Close = $0010;
wm_QueryEndSession = $0011;
wm_Quit = $0012;
wm_QueryOpen = $0013;
wm_EraseBkGnd = $0014;
wm_SysColorChange = $0015;
wm_EndSession = $0016;
wm_ShowWindow = $0018;
wm_CtlColor = $0019;
wm_WinIniChange = $001A;
wm_DevModeChange = $001B;
wm_ActivateApp = $001C;
wm_FontChange = $001D;
wm_TimeChange = $001E;
wm_CancelMode = $001F;
wm_SetCursor = $0020;
wm_MouseActivate = $0021;
wm_ChildActivate = $0022;
wm_QueueSync = $0023;
wm_GetMinMaxInfo = $0024;
wm_PaintIcon = $0026;
wm_IconEraseBkGnd = $0027;
wm_NextDlgCtl = $0028;
wm_SpoolerStatus = $002A;
wm_DrawItem = $002B;
wm_MeasureItem = $002C;
wm_DeleteItem = $002D;
wm_VKeyToItem = $002E;
wm_CharToItem = $002F;
wm_SetFont = $0030;
wm_GetFont = $0031;
wm_QueryDragIcon = $0037;
wm_CompareItem = $0039;
wm_Compacting = $0041;

wm_NCCreate = $0081;
wm_NCDestroy = $0082;
wm_NCCalcSize = $0083;
wm_NCHitTest = $0084;
wm_NCPaint = $0085;
wm_NCActivate = $0086;
wm_GetDlgCode = $0087;
wm_NCMouseMove = $00A0;
wm_NCLButtonDown = $00A1;
wm_NCLButtonUp = $00A2;
wm_NCLButtonDblClk = $00A3;
wm_NCRButtonDown = $00A4;
wm_NCRButtonUp = $00A5;
wm_NCRButtonDblClk = $00A6;
wm_NCMButtonDown = $00A7;
wm_NCMButtonUp = $00A8;
wm_NCMButtonDblClk = $00A9;

wm_KeyFirst = $0100;
wm_KeyDown = $0100;
wm_KeyUp = $0101;
wm_Char = $0102;
wm_DeadChar = $0103;
wm_SysKeyDown = $0104;
wm_SysKeyUp = $0105;
wm_SysChar = $0106;
wm_SysDeadChar = $0107;
wm_KeyLast = $0108;

wm_InitDialog = $0110;
wm_Command = $0111;
wm_SysCommand = $0112;
wm_Timer = $0113;
wm_HScroll = $0114;
wm_VScroll = $0115;
wm_InitMenu = $0116;
wm_InitMenuPopup = $0117;
wm_MenuSelect = $011F;
wm_MenuChar = $0120;
wm_EnterIdle = $0121;


wm_MouseFirst = $0200;
wm_MouseMove = $0200;
wm_LButtonDown = $0201;
wm_LButtonUp = $0202;
wm_LButtonDblClk = $0203;
wm_RButtonDown = $0204;
wm_RButtonUp = $0205;
wm_RButtonDblClk = $0206;
wm_MButtonDown = $0207;
wm_MButtonUp = $0208;
wm_MButtonDblClk = $0209;
wm_MouseLast = $0209;

wm_ParentNotify = $0210;
wm_MDICreate = $0220;
wm_MDIDestroy = $0221;
wm_MDIActivate = $0222;
wm_MDIRestore = $0223;
wm_MDINext = $0224;
wm_MDIMaximize = $0225;
wm_MDITile = $0226;
wm_MDICascade = $0227;
wm_MDIIconArrange = $0228;
wm_MDIGetActive = $0229;
wm_MDISetMenu = $0230;


wm_Cut = $0300;
wm_Copy = $0301;
wm_Paste = $0302;
wm_Clear = $0303;
wm_Undo = $0304;
wm_RenderFormat = $0305;
wm_RenderAllFormats = $0306;
wm_DestroyClipboard = $0307;
wm_DrawClipboard = $0308;
wm_PaintClipboard = $0309;
wm_VScrollClipboard = $030A;
wm_SizeClipboard = $030B;
wm_AskCBFormatName = $030C;
wm_ChangeCBChain = $030D;
wm_HScrollClipboard = $030E;
wm_QueryNewPalette = $030F;
wm_PaletteIsChanging = $0310;
wm_PaletteChanged = $0311;

{ NOTE: All Message Numbers below 0x0400 are RESERVED }

{ Private Window Messages Start Here }

wm_User = $0400;

{ wm_SYNCTASK Commands }

const
st_BeginSwp = 0;
st_EndSwp = 1;

{ WinWhere Area Codes }

const
htError = (-2);
htTransparent = (-1);
htNoWhere = 0;
htClient = 1;
htCaption = 2;
htSysMenu = 3;
htGrowBox = 4;
htSize = htGrowBox;
htMenu = 5;
htHScroll = 6;
htVScroll = 7;
htReduce = 8;
htZoom = 9;
htLeft = 10;
htRight = 11;
htTop = 12;
htTopLeft = 13;
htTopRight = 14;
htBottom = 15;
htBottomLeft = 16;
htBottomRight = 17;
htSizeFirst = htLeft;
htSizeLast = htBottomRight;

{ wm_MouseActivate Return Codes }

const
ma_Activate = 1;
ma_ActivateAndEat = 2;
ma_NoActivate = 3;

{ Size Message Commands }

const
sizeNormal = 0;
sizeIconic = 1;
sizeFullScreen = 2;
sizeZoomShow = 3;
sizeZoomHide = 4;

{ Key State Masks for Mouse Messages }

const
mk_LButton = $0001;
mk_RButton = $0002;
mk_Shift = $0004;
mk_Control = $0008;
mk_MButton = $0010;

{ Window Styles }

const
ws_Overlapped = $00000000;
ws_Popup = $80000000;
ws_Child = $40000000;
ws_Minimize = $20000000;
ws_Visible = $10000000;
ws_Disabled = $08000000;
ws_ClipSiblings = $04000000;
ws_ClipChildren = $02000000;
ws_Maximize = $01000000;
ws_Caption = $00C00000; { ws_Border + ws_DlgFrame }
ws_Border = $00800000;
ws_DlgFrame = $00400000;
ws_VScroll = $00200000;
ws_HScroll = $00100000;
ws_SysMenu = $00080000;
ws_ThickFrame = $00040000;
ws_Group = $00020000;
ws_TabStop = $00010000;

const
ws_MinimizeBox = $00020000;
ws_MaximizeBox = $00010000;

const
ws_Tiled = ws_Overlapped;
ws_Iconic = ws_Minimize;
ws_SizeBox = ws_ThickFrame;

{ Common Window Styles }

const
ws_OverlappedWindow = ws_Overlapped + ws_Caption + ws_SysMenu +
ws_ThickFrame + ws_MinimizeBox + ws_MaximizeBox;
ws_PopupWindow = ws_Popup + ws_Border + ws_SysMenu;
ws_ChildWindow = ws_Child;
ws_TiledWindow = ws_OverlappedWindow;

{ Extended Window Styles }

const
ws_ex_DlgModalFrame = $00000001;
ws_ex_NoParentNotify = $00000004;

{ Class styles }

const
cs_VRedraw = $0001;
cs_HRedraw = $0002;
cs_KeyCvtWindow = $0004;
cs_DblClks = $0008;
cs_OwnDC = $0020;
cs_ClassDC = $0040;
cs_ParentDC = $0080;
cs_NoKeyCvt = $0100;
cs_NoClose = $0200;
cs_SaveBits = $0800;
cs_ByteAlignClient = $1000;
cs_ByteAlignWindow = $2000;
cs_GlobalClass = $4000; { Global window class }

{ Predefined Clipboard Formats }

const
cf_Text = 1;
cf_Bitmap = 2;
cf_MetaFilePict = 3;
cf_SYLK = 4;
cf_DIF = 5;
cf_TIFF = 6;
cf_OEMText = 7;
cf_DIB = 8;
cf_Palette = 9;

const
cf_OwnerDisplay = $0080;
cf_DSPText = $0081;
cf_DSPBitmap = $0082;
cf_DSPMetaFilePict = $0083;

{ "Private" formats don't get GlobalFree'd }

const
cf_PrivateFirst = $0200;
cf_PrivateLast = $02FF;

{ "GDIOBJ" formats do get DeleteObject'd }

const
cf_GDIObjFirst = $0300;
cf_GDIObjLast = $03FF;

type
PPaintStruct = ^TPaintStruct;
TPaintStruct = record
hdc: HDC;
fErase: Bool;
rcPaint: TRect;
fRestore: Bool;
fIncUpdate: Bool;
rgbReserved: array[0..15] of Byte;
end;

type
PCreateStruct = ^TCreateStruct;
TCreateStruct = record
lpCreateParams: PChar;
hInstance: THandle;
hMenu: THandle;
hwndParent: HWnd;
cy: Integer;
cx: Integer;
y: Integer;
x: Integer;
style: LongInt;
lpszName: PChar;
lpszClass: PChar;
dwExStyle: Longint;
end;

{ Owner draw control types }

const
odt_Menu = 1;
odt_ListBox = 2;
odt_ComboBox = 3;
odt_Button = 4;

{ Owner draw actions }

const
oda_DrawEntire = $0001;
oda_Select = $0002;
oda_Focus = $0004;

{ Owner draw state }

const
ods_Selected = $0001;
ods_Grayed = $0002;
ods_Disabled = $0004;
ods_Checked = $0008;
ods_Focus = $0010;

{ TMeasureItemStruct for ownerdraw }

type
PMeasureItemStruct = ^TMeasureItemStruct;
TMeasureItemStruct = record
CtlType: Word;
CtlID: Word;
itemID: Word;
itemWidth: Word;
itemHeight: Word;
itemData: Longint;
end;

{ TDrawItemStruct for ownerdraw }

type
PDrawItemStruct = ^TDrawItemStruct;
TDrawItemStruct = record
CtlType: Word;
CtlID: Word;
itemID: Word;
itemAction: Word;
itemState: Word;
hwndItem: HWnd;
hDC: HDC;
rcItem: TRect;
itemData: Longint;
end;

{ TDeleteItemStruct for ownerdraw }

type
PDeleteItemStruct = ^TDeleteItemStruct;
TDeleteItemStruct = record
CtlType: Word;
CtlID: Word;
itemID: Word;
hwndItem: HWnd;
itemData: Longint;
end;

{ TCompareItemStruct for ownerdraw sorting }

type
PCompareItemStruct = ^TCompareItemStruct;
TCompareItemStruct = record
CtlType: Word;
CtlID: Word;
hwndItem: HWnd;
itemID1: Word;
itemData1: Longint;
itemID2: Word;
itemData2: Longint;
end;

{ PeekMessage Options }

const
pm_NoRemove = $0000;
pm_Remove = $0001;
pm_NoYield = $0002;

const
cw_UseDefault = Integer($8000);

{ SetWindowPos Flags }

const
swp_NoSize = $0001;
swp_NoMove = $0002;
swp_NoZOrder = $0004;
swp_NoRedraw = $0008;
swp_NoActivate = $0010;
swp_DrawFrame = $0020;
swp_ShowWindow = $0040;
swp_HideWindow = $0080;
swp_NoCopyBits = $0100;
swp_NoReposition = $0200;

const
DlgWindowExtra = 30; { Window extra byted for private dialog classes }

{ GetSystemMetrics codes }

const
sm_CXScreen = 0;
sm_CYScreen = 1;
sm_CXVScroll = 2;
sm_CYHScroll = 3;
sm_CYCaption = 4;
sm_CXBorder = 5;
sm_CYBorder = 6;
sm_CXDlgFrame = 7;
sm_CYDlgFrame = 8;
sm_CYVThumb = 9;
sm_CXHThumb = 10;
sm_CXIcon = 11;
sm_CYIcon = 12;
sm_CXCursor = 13;
sm_CYCursor = 14;
sm_CYMenu = 15;
sm_CXFullScreen = 16;
sm_CYFullScreen = 17;
sm_CYKanjiWindow = 18;
sm_MousePresent = 19;
sm_CYVScroll = 20;
sm_CXHScroll = 21;
sm_Debug = 22;
sm_SwapButton = 23;
sm_Reserved1 = 24;
sm_Reserved2 = 25;
sm_Reserved3 = 26;
sm_Reserved4 = 27;
sm_CXMin = 28;
sm_CYMin = 29;
sm_CXSize = 30;
sm_CYSize = 31;
sm_CXFrame = 32;
sm_CYFrame = 33;
sm_CXMinTrack = 34;
sm_CYMinTrack = 35;
sm_CMetrics = 36;

{ MessageBox Flags }

const
mb_Ok = $0000;
mb_OkCancel = $0001;
mb_AbortRetryIgnore = $0002;
mb_YesNoCancel = $0003;
mb_YesNo = $0004;
mb_RetryCancel = $0005;

mb_IconHand = $0010;
mb_IconQuestion = $0020;
mb_IconExclamation = $0030;
mb_IconAsterisk = $0040;

mb_IconInformation = mb_IconAsterisk;
mb_IconStop = mb_IconHand;

mb_DefButton1 = $0000;
mb_DefButton2 = $0100;
mb_DefButton3 = $0200;

mb_ApplModal = $0000;
mb_SystemModal = $1000;
mb_TaskModal = $2000;

mb_NoFocus = $8000;

mb_TypeMask = $000F;
mb_IconMask = $00F0;
mb_DefMask = $0F00;
mb_ModeMask = $3000;
mb_MiscMask = $C000;

{ Color Types }

const
ctlcolor_MsgBox = 0;
ctlcolor_Edit = 1;
ctlcolor_ListBox = 2;
ctlcolor_Btn = 3;
ctlcolor_Dlg = 4;
ctlcolor_ScrollBar = 5;
ctlcolor_Static = 6;
ctlcolor_Max = 8; { three bits max }

const
color_ScrollBar = 0;
color_Background = 1;
color_ActiveCaption = 2;
color_InactiveCaption = 3;
color_Menu = 4;
color_Window = 5;
color_WindowFrame = 6;
color_MenuText = 7;
color_WindowText = 8;
color_CaptionText = 9;
color_ActiveBorder = 10;
color_InactiveBorder = 11;
color_AppWorkSpace = 12;
color_Highlight = 13;
color_HighlightText = 14;
color_BtnFace = 15;
color_BtnShadow = 16;
color_GrayText = 17;
color_BtnText = 18;
color_EndColors = color_BtnText;
{ GetWindow Constants }

const
gw_HWndFirst = 0;
gw_HWndLast = 1;
gw_HWndNext = 2;
gw_HWndPrev = 3;
gw_Owner = 4;
gw_Child = 5;

{ Menu flags for Add/Check/EnableMenuItem }

const
mf_Insert = $0000;
mf_Change = $0080;
mf_Append = $0100;
mf_Delete = $0200;
mf_Remove = $1000;

mf_ByCommand = $0000;
mf_ByPosition = $0400;

mf_Separator = $0800;

mf_Enabled = $0000;
mf_Grayed = $0001;
mf_Disabled = $0002;

mf_Unchecked = $0000;
mf_Checked = $0008;
mf_UseCheckBitmaps = $0200;

mf_String = $0000;
mf_Bitmap = $0004;
mf_OwnerDraw = $0100;

mf_Popup = $0010;
mf_MenuBarBreak = $0020;
mf_MenuBreak = $0040;

mf_Unhilite = $0000;
mf_Hilite = $0080;

mf_SysMenu = $2000;
mf_Help = $4000;
mf_MouseSelect = $8000;

type
TMenuItemTemplateHeader = record
versionNumber: Word;
offset: Word;
end;

TMenuItemTemplate = record
mtOption: Word;
mtID: Word;
mtString: array[0..0] of Char;
end;

const
mf_End = $0080;

{ System Menu Command Values }

const
sc_Size = $F000;
sc_Move = $F010;
sc_Minimize = $F020;
sc_Maximize = $F030;
sc_NextWindow = $F040;
sc_PrevWindow = $F050;
sc_Close = $F060;
sc_VScroll = $F070;
sc_HScroll = $F080;
sc_MouseMenu = $F090;
sc_KeyMenu = $F100;
sc_Arrange = $F110;
sc_Restore = $F120;
sc_TaskList = $F130;

sc_Icon = sc_Minimize;
sc_Zoom = sc_Maximize;

{ Standard Cursor IDs }

const
idc_Arrow = MakeIntResource(32512);
idc_IBeam = MakeIntResource(32513);
idc_Wait = MakeIntResource(32514);
idc_Cross = MakeIntResource(32515);
idc_UPArrow = MakeIntResource(32516);
idc_Size = MakeIntResource(32640);
idc_Icon = MakeIntResource(32641);
idc_SizeNWSE = MakeIntResource(32642);
idc_SizeNESW = MakeIntResource(32643);
idc_SizeWE = MakeIntResource(32644);
idc_SizeNS = MakeIntResource(32645);

const
ord_LangDriver = 1; { Ordinal number of entry point of language drivers }

{ Standard Icon IDs }

const
idi_Application = MakeIntResource(32512);
idi_Hand = MakeIntResource(32513);
idi_Question = MakeIntResource(32514);
idi_Exclamation = MakeIntResource(32515);
idi_Asterisk = MakeIntResource(32516);

const
cp_HWnd = 0;
cp_Open = 1;
cp_Direct = 2;

{ VK from the keyboard driver }

const
vk_Kana = $15;
vk_Romaji = $16;
vk_Zenkaku = $17;
vk_Hiragana = $18;
vk_Kanji = $19;

{ VK to send to Applications }

const
vk_Convert = $1C;
vk_NonConvert = $1D;
vk_Accept = $1E;
vk_ModeChange = $1F;

const
knj_Start = $01;
knj_End = $02;
knj_Query = $03;

knj_Learn_Mode = $10;
knj_GetMode = $11;
knj_SetMode = $12;

knj_CodeConvert = $20;
knj_Convert = $21;
knj_Next = $22;
knj_Previous = $23;
knj_Accept = $24;

knj_Learn = $30;
knj_Register = $31;
knj_Remove = $32;
knj_Change_UDIC = $33;

{ NOTE: Default = 0 }
{ JIS1 = 1 }
{ JIS2 = 2 }
{ SJIS2 = 3 }
{ JIS1Katakana = 4 }
{ SJIS2Hiragana = 5 }
{ SJIS2Katakana = 6 }
{ OEM = F }

const
knj_JIS1toJIS1Katakana = $14;
knj_JIS1toSJIS2 = $13;
knj_JIS1toSJIS2Hiragana = $15;
knj_JIS1toSJIS2Katakana = $16;
knj_JIS1toDefault = $10;
knj_JIS1toSJIS2OEM = $1F;
knj_JIS2toSJIS2 = $23;
knj_SJIS2toJIS2 = $32;

knj_md_Alpha = $01;
knj_md_Hiragana = $02;
knj_md_HALF = $04;
knj_md_JIS = $08;
knj_md_SPECIAL = $10;

knj_cvt_Next = $01;
knj_cvt_Prev = $02;
knj_cvt_Katakana = $03;
knj_cvt_Hiragana = $04;
knj_cvt_JIS1 = $05;
knj_cvt_SJIS2 = $06;
knj_cvt_Default = $07;
knj_cvt_Typed = $08;

type
PKanjiStruct = ^TKanjiStruct;
TKanjiStruct = record
fnc: Integer;
wParam: Integer;
lpSource: PChar;
lpDest: PChar;
wCount: Integer;
lpReserved1: Pointer;
lpReserved2: Pointer;
end;

{ Dialog Box Command IDs }

const
idOk = 1;
idCancel = 2;
idAbort = 3;
idRetry = 4;
idIgnore = 5;
idYes = 6;
idNo = 7;

const
id_Ok = 1;
id_Cancel = 2;
id_Abort = 3;
id_Retry = 4;
id_Ignore = 5;
id_Yes = 6;
id_No = 7;

{ Control Manager Structures and Definitions }

{ Edit Control Styles }

const
es_Left = $0000;
es_Center = $0001;
es_Right = $0002;
es_MultiLine = $0004;
es_UpperCase = $0008;
es_LowerCase = $0010;
es_Password = $0020;
es_AutoVScroll = $0040;
es_AutoHScroll = $0080;
es_NoHideSel = $0100;
es_OEMConvert = $0400;

{ Edit Control Notification Codes }

const
en_SetFocus = $0100;
en_KillFocus = $0200;
en_Change = $0300;
en_Update = $0400;
en_ErrSpace = $0500;
en_MaxText = $0501;
en_HScroll = $0601;
en_VScroll = $0602;

{ Edit Control Messages }

const
em_GetSel = (wm_User+0);
em_SetSel = (wm_User+1);
em_GetRect = (wm_User+2);
em_SetRect = (wm_User+3);
em_SetRectNP = (wm_User+4);
em_Scroll = (wm_User+5);
em_LineScroll = (wm_User+6);
em_GetModify = (wm_User+8);
em_SetModify = (wm_User+9);
em_GetLineCount = (wm_User+10);
em_LineIndex = (wm_User+11);
em_SetHandle = (wm_User+12);
em_GetHandle = (wm_User+13);
em_GetThumb = (wm_User+14);
em_LineLength = (wm_User+17);
em_ReplaceSel = (wm_User+18);
em_SetFont = (wm_User+19);
em_GetLine = (wm_User+20);
em_LimitText = (wm_User+21);
em_CanUndo = (wm_User+22);
em_Undo = (wm_User+23);
em_FmtLines = (wm_User+24);
em_LineFromChar = (wm_User+25);
em_SetWordBreak = (wm_User+26);
em_SetTabStops = (wm_User+27);
em_SetPasswordChar = (wm_User+28);
em_EmptyUndoBuffer = (wm_User+29);
em_MsgMax = (wm_User+30);

{ Button Control Styles }

const
bs_PushButton = $00;
bs_DefPushButton = $01;
bs_CheckBox = $02;
bs_AutoCheckBox = $03;
bs_RadioButton = $04;
bs_3State = $05;
bs_Auto3State = $06;
bs_GroupBox = $07;
bs_UserButton = $08;
bs_AutoRadioButton = $09;
bs_PushBox = $0A;
bs_OwnerDraw = $0B;
bs_LeftText = $20;

{ User Button Notification Codes }

const
bn_Clicked = 0;
bn_Paint = 1;
bn_Hilite = 2;
bn_Unhilite = 3;
bn_Disable = 4;
bn_DoubleClicked = 5;

{ Button Control Messages }

const
bm_GetCheck = (wm_User+0);
bm_SetCheck = (wm_User+1);
bm_GetState = (wm_User+2);
bm_SetState = (wm_User+3);
bm_SetStyle = (wm_User+4);

{ Static Control Constants }

const
ss_Left = $00;
ss_Center = $01;
ss_Right = $02;
ss_Icon = $03;
ss_BlackRect = $04;
ss_GrayRect = $05;
ss_WhiteRect = $06;
ss_BlackFrame = $07;
ss_GrayFrame = $08;
ss_WhiteFrame = $09;
ss_UserItem = $0A;
ss_Simple = $0B;
ss_LeftNoWordWrap = $0C;
ss_NoPrefix = $80; { Don't do "&" character translation }

{ Dialog Styles }

const
ds_AbsAlign = $01;
ds_SysModal = $02;
ds_LocalEdit = $20; { Edit items get Local storage }
ds_SetFont = $40; { User specified font for Dlg controls }
ds_ModalFrame = $80; { Can be combined with ws_Caption }
ds_NoIdleMsg = $100; { wm_EnterIdle message will not be sent }

const
dm_GetDefID = (wm_User+0);
dm_SetDefID = (wm_User+1);
dc_HasDefID = $534B;

{ Dialog Codes }

const
dlgc_WantArrows = $0001; { Control wants arrow keys }
dlgc_WantTab = $0002; { Control wants tab keys }
dlgc_WantAllKeys = $0004; { Control wants all keys }
dlgc_WantMessage = $0004; { Pass message to control }
dlgc_HasSetSel = $0008; { Understands em_SetSel message }
dlgc_DefPushButton = $0010; { Default pushbutton }
dlgc_UndefPushButton = $0020; { Non-default pushbutton }
dlgc_RadioButton = $0040; { Radio button }
dlgc_WantChars = $0080; { Want wm_Char messages }
dlgc_Static = $0100; { Static item: don't include }
dlgc_Button = $2000; { Button item: can be checked }

const
lb_CtlCode = 0;

{ Listbox Return Values }

const
lb_Okay = 0;
lb_Err = (-1);
lb_ErrSpace = (-2);

{ The idStaticPath parameter to DlgDirList can have the following values }
{ ORed if the list box should show other details of the files along with }
{ the name of the files }


{ Listbox Notification Codes }

const
lbn_ErrSpace = (-2);
lbn_SelChange = 1;
lbn_DblClk = 2;
lbn_SelCancel = 3;
lbn_SetFocus = 4;
lbn_KillFocus = 5;

{ Listbox messages }

const
lb_AddString = (wm_User+1);
lb_InsertString = (wm_User+2);
lb_DeleteString = (wm_User+3);
lb_ResetContent = (wm_User+5);
lb_SetSel = (wm_User+6);
lb_SetCurSel = (wm_User+7);
lb_GetSel = (wm_User+8);
lb_GetCurSel = (wm_User+9);
lb_GetText = (wm_User+10);
lb_GetTextLen = (wm_User+11);
lb_GetCount = (wm_User+12);
lb_SelectString = (wm_User+13);
lb_Dir = (wm_User+14);
lb_GetTopIndex = (wm_User+15);
lb_FindString = (wm_User+16);
lb_GetSelCount = (wm_User+17);
lb_GetSelItems = (wm_User+18);
lb_SetTabStops = (wm_User+19);
lb_GetHorizontalExtent = (wm_User+20);
lb_SetHorizontalExtent = (wm_User+21);
lb_SetColumnWidth = (wm_User+22);
lb_SetTopIndex = (wm_User+24);
lb_GetItemRect = (wm_User+25);
lb_GetItemData = (wm_User+26);
lb_SetItemData = (wm_User+27);
lb_SelItemRange = (wm_User+28);
lb_MsgMax = (wm_User+33);

{ Listbox Styles }

const
lbs_Notify = $0001;
lbs_Sort = $0002;
lbs_NoRedraw = $0004;
lbs_MultipleSel = $0008;
lbs_OwnerDrawFixed = $0010;
lbs_OwnerDrawVariable = $0020;
lbs_HasStrings = $0040;
lbs_UseTabStops = $0080;
lbs_NoIntegralHeight = $0100;
lbs_MultiColumn = $0200;
lbs_WantKeyboardInput = $0400;
lbs_ExtendedSel = $0800;
lbs_Standard = lbs_Notify + lbs_Sort + ws_VScroll + ws_Border;

{ Combo Box return Values }

const
cb_Okay = 0;
cb_Err = (-1);
cb_ErrSpace = (-2);

{ Combo Box Notification Codes }

const
cbn_ErrSpace = (-1);
cbn_SelChange = 1;
cbn_DblClk = 2;
cbn_SetFocus = 3;
cbn_KillFocus = 4;
cbn_EditChange = 5;
cbn_EditUpdate = 6;
cbn_DropDown = 7;

{ Combo Box styles }

const
cbs_Simple = $0001;
cbs_DropDown = $0002;
cbs_DropDownList = $0003;
cbs_OwnerDrawFixed = $0010;
cbs_OwnerDrawVariable = $0020;
cbs_AutoHScroll = $0040;
cbs_OEMConvert = $0080;
cbs_Sort = $0100;
cbs_HasStrings = $0200;
cbs_NoIntegralHeight = $0400;

{ Combo Box messages }

const
cb_GetEditSel = (wm_User+0);
cb_LimitText = (wm_User+1);
cb_SetEditSel = (wm_User+2);
cb_AddString = (wm_User+3);
cb_DeleteString = (wm_User+4);
cb_Dir = (wm_User+5);
cb_GetCount = (wm_User+6);
cb_GetCurSel = (wm_User+7);
cb_GetLBText = (wm_User+8);
cb_GetLBTextLen = (wm_User+9);
cb_InsertString = (wm_User+10);
cb_ResetContent = (wm_User+11);
cb_FindString = (wm_User+12);
cb_SelectString = (wm_User+13);
cb_SetCurSel = (wm_User+14);
cb_ShowDropDown = (wm_User+15);
cb_GetItemData = (wm_User+16);
cb_SetItemData = (wm_User+17);
cb_GetDroppedControlRect = (wm_User+18);
cb_MsgMax = (wm_User+19);

{ Scroll Bar Styles }

const
sbs_Horz = $0000;
sbs_Vert = $0001;
sbs_TopAlign = $0002;
sbs_LeftAlign = $0002;
sbs_BottomAlign = $0004;
sbs_RightAlign = $0004;
sbs_SizeBoxTopLeftAlign = $0002;
sbs_SizeBoxBottomRightAlign = $0004;
sbs_SizeBox = $0008;

{ WaitSoundState Constants }

const
s_QueueEmpty = 0;
s_Threshold = 1;
s_AllThreshold = 2;

{ Accent Modes }

const
s_Normal = 0;
s_Legato = 1;
s_Staccato = 2;

{ SetSoundNoise Sources }

const
s_Period512 = 0; { Freq = N/512 high pitch, less coarse hiss }
s_Period1024 = 1; { Freq = N/1024 }
s_Period2048 = 2; { Freq = N/2048 low pitch, more coarse hiss }
s_PeriodVoice = 3; { Source is frequency from voice channel (3) }
s_White512 = 4; { Freq = N/512 high pitch, less coarse hiss }
s_White1024 = 5; { Freq = N/1024 }
s_White2048 = 6; { Freq = N/2048 low pitch, more coarse hiss }
s_WhiteVoice = 7; { Source is frequency from voice channel (3) }

const
s_SerDVNA = (-1); { Device not available }
s_SerOFM = (-2); { Out of memory }
s_SerMACT = (-3); { Music active }
s_SerQFUL = (-4); { Queue full }
s_SerBDNT = (-5); { Invalid note }
s_SerDLN = (-6); { Invalid note length }
s_SerDCC = (-7); { Invalid note count }
s_SerDTP = (-8); { Invalid tempo }
s_SerDVL = (-9); { Invalid volume }
s_SerDMD = (-10); { Invalid mode }
s_SerDSH = (-11); { Invalid shape }
s_SerDPT = (-12); { Invalid pitch }
s_SerDFQ = (-13); { Invalid frequency }
s_SerDDR = (-14); { Invalid duration }
s_SerDSR = (-15); { Invalid source }
s_SerDST = (-16); { Invalid state }

const
NoParity = 0;
OddParity = 1;
EvenParity = 2;
MarkParity = 3;
SpaceParity = 4;

OneStopBit = 0;
One5StopBits = 1;
TwoStopBits = 2;

Ignore = 0; { Ignore signal }
Infinite = $FFFF; { Infinite timeout }

{ Error Flags }

const
ce_RXOver = $0001; { Receive Queue overflow }
ce_Overrun = $0002; { Receive Overrun Error }
ce_RXParity = $0004; { Receive Parity Error }
ce_Frame = $0008; { Receive Framing error }
ce_Break = $0010; { Break Detected }
ce_CTSTO = $0020; { CTS Timeout }
ce_DSRTO = $0040; { DSR Timeout }
ce_RLSDTO = $0080; { RLSD Timeout }
ce_TXFull = $0100; { TX Queue is full }
ce_PTO = $0200; { LPTx Timeout }
ce_IOE = $0400; { LPTx I/O Error }
ce_DNS = $0800; { LPTx Device not selected }
ce_OOP = $1000; { LPTx Out-Of-Paper }
ce_Mode = $8000; { Requested mode unsupported }

const
ie_BadID = (-1); { Invalid or unsupported id }
ie_Open = (-2); { Device Already Open }
ie_NoPen = (-3); { Device Not Open }
ie_Memory = (-4); { Unable to allocate queues }
ie_Default = (-5); { Error in default parameters }
ie_Hardware = (-10); { Hardware Not Present }
ie_ByteSize = (-11); { Illegal Byte Size }
ie_BaudRate = (-12); { Unsupported BaudRate }

{ Events }

const
ev_RXChar = $0001; { Any Character received }
ev_RXFlag = $0002; { Received certain character }
ev_TXEmpty = $0004; { Transmitt Queue Empty }
ev_CTS = $0008; { CTS changed state }
ev_DSR = $0010; { DSR changed state }
ev_RLSD = $0020; { RLSD changed state }
ev_Break = $0040; { BREAK received }
ev_Err = $0080; { Line status error occurred }
ev_Ring = $0100; { Ring signal detected }
ev_PErr = $0200; { Printer error occured }

{ Escape Functions }

const
SetXOFF = 1; { Simulate XOFF received }
SetXON = 2; { Simulate XON received }
SetRTS = 3; { Set RTS high }
ClrRTS = 4; { Set RTS low }
SetDTR = 5; { Set DTR high }
ClrDTR = 6; { Set DTR low }
ResetDev = 7; { Reset device if possible }

const
LPTx = $80; { Set if ID is for LPT device }

type
PDCB = ^TDCB;
TDCB = record
Id: Byte; { Internal Device ID }
BaudRate: Word; { Baudrate at which runing }
ByteSize: Byte; { Number of bits/byte, 4-8 }
Parity: Byte; { 0-4=None,Odd,Even,Mark,Space }
StopBits: Byte; { 0,1,2 = 1, 1.5, 2 }
RlsTimeout: Word; { Timeout for RLSD to be set }
CtsTimeout: Word; { Timeout for CTS to be set }
DsrTimeout: Word; { Timeout for DSR to be set }
Flags: Word;
(*
Byte fBinary: 1; { Binary Mode (skip EOF check }
Byte fRtsDisable:1; { Don't assert RTS at init time }
Byte fParity: 1; { Enable parity checking }
Byte fOutxCtsFlow:1; { CTS handshaking on output }
Byte fOutxDsrFlow:1; { DSR handshaking on output }
Byte fDummy: 2; { Reserved }
Byte fDtrDisable:1; { Don't assert DTR at init time }

Byte fOutX: 1; { Enable output X-ON/X-OFF }
Byte fInX: 1; { Enable input X-ON/X-OFF }
Byte fPeChar: 1; { Enable Parity Err Replacement }
Byte fNull: 1; { Enable Null stripping }
Byte fChEvt: 1; { Enable Rx character event. }
Byte fDtrflow: 1; { DTR handshake on input }
Byte fRtsflow: 1; { RTS handshake on input }
Byte fDummy2: 1;
*)
XonChar: char; { Tx and Rx X-ON character }
XoffChar: char; { Tx and Rx X-OFF character }
XonLim: Word; { Transmit X-ON threshold }
XoffLim: Word; { Transmit X-OFF threshold }
PeChar: char; { Parity error replacement char }
EofChar: char; { End of Input character }
EvtChar: char; { Recieved Event character }
TxDelay: Word; { Amount of time between chars }
end;

const
dcb_Binary = $0001;
dcb_RtsDisable = $0002;
dcb_Parity = $0004;
dcb_OutxCtsFlow = $0008;
dcb_OutxDsrFlow = $0010;
dcb_DtrDisable = $0080;

const
dcb_OutX = $0100;
dcb_InX = $0200;
dcb_PeChar = $0400;
dcb_Null = $0800;
dcb_ChEvt = $1000;
dcb_Dtrflow = $2000;
dcb_Rtsflow = $4000;

type
PComStat = ^TComStat;
TComStat = record
Flags: Byte;
(*
Byte fCtsHold: 1; { Transmit is on CTS hold }
Byte fDsrHold: 1; { Transmit is on DSR hold }
Byte fRlsdHold: 1; { Transmit is on RLSD hold }
Byte fXoffHold: 1; { Received handshake }
Byte fXoffSent: 1; { Issued handshake }
Byte fEof: 1; { End of file character found }
Byte fTxim: 1; { Character being transmitted }
*)
cbInQue: Word; { count of characters in Rx Queue}
cbOutQue: Word; { count of characters in Tx Queue}
end;

const
com_CtsHold = $0001;
com_DsrHold = $0002;
com_RlsdHold = $0004;
com_XoffHold = $0008;
com_XoffSent = $0010;
com_Eof = $0020;
com_Txim = $0040;

type
PMDICreateStruct = ^TMDICreateStruct;
TMDICreateStruct = record
szClass: PChar;
szTitle: PChar;
hOwner: THandle;
x, y: Integer;
cx, cy: Integer;
style: LongInt;
lParam: LongInt; { app-defined stuff }
end;

type
PClientCreateStruct = ^TClientCreateStruct;
TClientCreateStruct = record
hWindowMenu: THandle;
idFirstChild: Word;
end;

{ Help engine section }

{ Commands to pass WinHelp }

const
help_Context = $0001; { Display topic in ulTopic }
help_Quit = $0002; { Terminate help }
help_Index = $0003; { Display index }
help_HelpOnHelp = $0004; { Display help on using help }
help_SetIndex = $0005; { Set the current Index for multi index help }
help_Key = $0101; { Display topic for keyword in offabData }
help_MultiKey = $0201;

type
TMultiKeyHelp = record
mkSize: Word;
mkKeyList: Byte;
szKeyPhrase: array[0..0] of Byte;
end;

{ -------------------- Types from CUSTCTRL.H ------------------------ }

{ general size definitions }

const
ctlTypes = 12; { number of control types }
ctlDescr = 22; { size of control menu name }
ctlClass = 20; { max size of class name }
ctlTitle = 94; { max size of control text }

{ CONTROL STYLE DATA STRUCTURE

This data structure is used by the class style dialog function
to set and/or reset various control attributes. }

type
PCtlStyle = ^TCtlStyle;
TCtlStyle = record
wX: Word; { x origin of control }
wY: Word; { y origin of control }
wCx: Word; { width of control }
wCy: Word; { height of control }
wId: Word; { control child id }
dwStyle: LongInt; { control style }
szClass: array[0..ctlClass-1] of Char;
{ name of control class }
szTitle: array[0..ctlTitle-1] of Char;
{ control text }
end;

{ CONTROL DATA STRUCTURE

This data structure is returned by the control options function
when enquiring about the capabilities of a particular control.
Each control may contain various types (with predefined style
bits) under one general class.

The width and height fields are used to provide the host
application with a suggested size. The values in these fields
could be either in pixels or in rc coordinates. If it is in pixel,
the most sigificant bit(MSB) is on. If the MSB is off, it is in rc
coordinates.

The cursor and bitmap handles reference objects which can be
used by the dialog editor in the placement and definition of
new, user-defined control classes. However, dialog editor in win30
does not use these fields. }

TCtlType = record
wType: Word; { type style }
wWidth: Word; { suggested width }
wHeight: Word; { suggested height }
dwStyle: LongInt; { default style }
szDescr: array[0..CtlDescr-1] of Char;
{ menu name }
end;

PCtlInfo = ^TCtlInfo;
TCtlInfo = record
wVersion: Word; { control version }
wCtlTypes: Word; { control types }
szClass: array[0..ctlClass-1] of Char;
{ control class name }
szTitle: array[0..ctlTitle-1] of Char;
{ control title }
szReserved: array[0..9] of Char;
{ reserved for future use }
ctType: array[0..ctlTypes-1] of TCtlType;
{ control type list }
end;

{ ---------------------- Types from DDE.H ------------------------- }

const
wm_dde_First = $03E0;
wm_dde_Initiate = wm_dde_First;
wm_dde_Terminate = wm_dde_First+1;
wm_dde_Advise = wm_dde_First+2;
wm_dde_Unadvise = wm_dde_First+3;
wm_dde_Ack = wm_dde_First+4;
wm_dde_Data = wm_dde_First+5;
wm_dde_Request = wm_dde_First+6;
wm_dde_Poke = wm_dde_First+7;
wm_dde_Execute = wm_dde_First+8;
wm_dde_Last = wm_dde_First+8;

{ Constants used for a wm_dde_Ack message sent in responce to a wm_dde_Data
wm_dde_Request, wm_dde_Poke, wm_dde_Advise, or wm_dde_Unadvise message.
For example
if lParam and dde_Ack <> 0 then ...
}

const
dde_AppReturnCode = $00FF;
dde_Busy = $4000;
dde_Ack = $8000;

{ Record for the ww_dde_Advise Options parameter (LoWord(lParam)) }

type
PDDEAdvise = ^TDDEAdvise;
TDDEAdvise = record
(*
unsigned reserved:14,
fDeferUpd:1,
fAckReq:1;
*)
Flags: Word;
cfFormat: Integer;
end;

const
dde_DeferUpd = $4000;
dde_AckReq = $8000;

{ Record for the hData parameter of a wm_dde_Data message (LoWord(lParam)).
The actual size of this record depends on the size of the Value
array. }

type
PDDEData = ^TDDEData;
TDDEData = record
(* unsigned unused:12,
fResponse:1,
fRelease:1,
reserved:1,
fAckReq:1;
*)
Flags: Word;
cfFormat: Integer;
Value: array[0..0] of Char;
end;

const
dde_Response = $1000;
dde_Release = $2000;

{ Record for the hData parameter of the wm_dde_Poke record (LoWord(lParam)).
The actual size of this record depends on the size of the Value array. }

type
PDDEPoke = ^TDDEPoke;
TDDEPoke = record
(* unsigned unused:13,
fRelease:1,
fReserved:2;
*)
Flags: Word;
cfFormat: Byte;
Value: array[0..0] of Byte;
end;

type
PDDEAck = ^TDDEAck;
TDDEAck = record
Flags: Word;
end;

{ ------------------------ Types from DRIVINIT.H ---------------------- }
{ Header file for printer driver initialization using ExtDeviceMode()
and DeviceCapabilities(). }

const

{ size of a device name string }
cchDeviceName = 32;

{ current version of specification }
dm_SpecVersion = $300;

{ field selection bits }
dm_Orientation = $0000001;
dm_PaperSize = $0000002;
dm_PaperLength = $0000004;
dm_PaperWidth = $0000008;
dm_Scale = $0000010;
dm_Copies = $0000100;
dm_DefaultSource = $0000200;
dm_PrintQuality = $0000400;
dm_Color = $0000800;
dm_Duplex = $0001000;

{ orientation selections }
dmorient_Portrait = 1;
dmorient_Landscape = 2;

{ paper selections }
dmpaper_First = 1;
dmpaper_Letter = 1; { Letter 8 1/2 x 11 in }
dmpaper_LetterSmall = 2; { Letter Small 8 1/2 x 11 in }
dmpaper_Tabloid = 3; { Tabloid 11 x 17 in }
dmpaper_Ledger = 4; { Ledger 17 x 11 in }
dmpaper_Legal = 5; { Legal 8 1/2 x 14 in }
dmpaper_Statement = 6; { Statement 5 1/2 x 8 1/2 in }
dmpaper_Executive = 7; { Executive"7 1/2 x 10 in }
dmpaper_A3 = 8; { A3 297 x 420 mm }
dmpaper_A4 = 9; { A4 210 x 297 mm }
dmpaper_A4Small = 10; { A4 Small 210 x 297 mm }
dmpaper_A5 = 11; { A5 148 x 210 mm }
dmpaper_B4 = 12; { B4 250 x 354 }
dmpaper_B5 = 13; { B5 182 x 257 mm }
dmpaper_Folio = 14; { Folio 8 1/2 x 13 in }
dmpaper_Quarto = 15; { Quarto 215 x 275 mm }
dmpaper_10X14 = 16; { 10x14 in }
dmpaper_11X17 = 17; { 11x17 in }
dmpaper_Note = 18; { Note 8 1/2 x 11 in }
dmpaper_Env_9 = 19; { Envelope #9 3 7/8 x 8 7/8 }
dmpaper_Env_10 = 20; { Envelope #10 4 1/8 x 9 1/2 }
dmpaper_Env_11 = 21; { Envelope #11 4 1/2 x 10 3/8 }
dmpaper_Env_12 = 22; { Envelope #12 4 \276 x 11 }
dmpaper_Env_14 = 23; { Envelope #14 5 x 11 1/2 }
dmpaper_CSheet = 24; { C size sheet }
dmpaper_DSheet = 25; { D size sheet }
dmpaper_ESheet = 26; { E size sheet }
dmpaper_Last = dmpaper_ESheet;

dmpaper_User = 256;

{ bin selections }
dmbin_First = 1;
dmbin_Upper = 1;
dmbin_OnlyOne = 1;
dmbin_Lower = 2;
dmbin_Middle = 3;
dmbin_Manual = 4;
dmbin_Envelope = 5;
dmbin_EnvManual = 6;
dmbin_Auto = 7;
dmbin_Tractor = 8;
dmbin_SmallFmt = 9;
dmbin_LargeFmt = 10;
dmbin_LargeCapacity = 11;
dmbin_Cassette = 14;
dmbin_Last = dmbin_Cassette;

dmbin_User = 256; { device specific bins start here }

{ print qualities }
dmres_Draft = -1;
dmres_Low = -2;
dmres_Medium = -3;
dmres_High = -4;

{ color enable/disable for color printers }
dmcolor_Monochrome = 1;
dmcolor_Color = 2;

{ duplex enable }
dmdup_Simplex = 1;
dmdup_Vertical = 2;
dmdup_Horizontal = 3;

type
PDevMode = ^TDevMode;
TDevMode = record
dmDeviceName: array[0..cchDeviceName-1] of Char;
dmSpecVersion: Word;
dmDriverVersion: Word;
dmSize: Word;
dmDriverExtra: Word;
dmFields: LongInt;
dmOrientation: Integer;
dmPaperSize: Integer;
dmPaperLength: Integer;
dmPaperWidth: Integer;
dmScale: Integer;
dmCopies: Integer;
dmDefaultSource: Integer;
dmPrintQuality: Integer;
dmColor: Integer;
dmDuplex: Integer;
end;

const

{ mode selections for the device mode function }
dm_Update = 1;
dm_Copy = 2;
dm_Prompt = 4;
dm_Modify = 8;

dm_In_Buffer = dm_Modify;
dm_In_Prompt = dm_Prompt;
dm_Out_Buffer = dm_Copy;
dm_Out_Default = dm_Update;

{ device capabilities indices }
dc_Fields = 1;
dc_Papers = 2;
dc_Papersize = 3;
dc_MinExtent = 4;
dc_MaxExtent = 5;
dc_Bins = 6;
dc_Duplex = 7;
dc_Size = 8;
dc_Extra = 9;
dc_Version = 10;
dc_Driver = 11;

{ export ordinal definitions }
proc_ExtDeviceMode = MakeIntResource(90);
proc_DeviceCapabilities = MakeIntResource(91);
proc_OldDeviceMode = MakeIntResource(13);

type
TDeviceMode = procedure(Wnd: HWnd; Module: THandle;
DeviceName, Output: PChar);
TExtDeviceMode = function(Wnd: HWnd; Driver: THandle;
var DevModeOutput: TDevMode; DeciveName, Port: PChar;
var DevModeInput: TDevMode; Profile: PChar; Mode: Word): Integer;
TDeviceCapabilities = function(DeviceName, Port: PChar;
Index: Word; Output: PChar; var DevMode: TDevMode): Longint;

type
PKeyboardState = ^TKeyboardState;
TKeyboardState = array[0..255] of Char;

implementation

end.