paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 17:47:58 +02:00
Code Issues Packages Projects Releases Wiki Activity
main
fpc/rtl/win16/wintypes.inc
Michael VAN CANNEYT a5ad266065 * Char -> AnsiChar
2023-07-14 17:26:10 +02:00

2933 lines
69 KiB
PHP
Raw Permalink Blame History

type
Bool = WordBool;
UINT = Word;
LONG = LongInt;
WPARAM = UINT;
LPARAM = LONG;
LRESULT = LONG;
{ The Win16 C headers define the P-prefixed types - PSTR, etc. as near pointers.
Borland Pascal 7 defines them as far pointers (in other words, the same as the
LP-prefixed type - LPSTR) We define them as the default pointer type for the
current memory model. This means we'll be BP7 compatible in the large memory
model (which is the only memory model supported by BP7).
Also, using memory models other than 'large' under win16 is somewhat nasty and
is better to be avoided. }
PSTR = ^AnsiChar;
NPSTR = ^AnsiChar; near;
// LPSTR = ^AnsiChar; far;
LPCSTR = ^AnsiChar; far;
{ PBYTE is already defined in system }
LPBYTE = ^Byte; far;
PINT = ^SmallInt;
LPINT = ^SmallInt; far;
{ PWORD is already defined in system }
LPWORD = ^Word; far;
PUINT = ^UINT;
LPUINT = ^UINT; far;
PLONG = ^LONG;
LPLONG = ^LONG; far;
{ PDWORD is already defined in system }
LPDWORD = ^DWORD; far;
PBOOL = ^BOOL;
LPBOOL = ^BOOL; far;
LPVOID = FarPointer;
FARPROC = FarPointer;
TFarProc = FARPROC;
HANDLE = THandle;
PHANDLE = ^THandle;
SPHANDLE = ^THandle; near;
LPHANDLE = ^THandle; far;
// HGLOBAL = THandle;
HLOCAL = THandle;
TGlobalHandle = THandle;
TLocalHandle = THandle;
ATOM = UINT;
TAtom = ATOM;
HINST = THandle; { instead of HINSTANCE, to avoid conflict with var hInstance }
// HMODULE = HINST;
const
{ GetWinFlags result mask values }
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;
WF_PAGING = $0800;
WF_WLO = $8000;
{ ExitWindows values }
EW_RESTARTWINDOWS = $42;
{ SetErrorMode() constants }
SEM_FAILCRITICALERRORS = $0001;
SEM_NOGPFAULTERRORBOX = $0002;
SEM_NOOPENFILEERRORBOX = $8000;
type
LPCATCHBUF = ^CATCHBUF; far;
CATCHBUF = array [0..8] of SmallInt;
PCatchBuf = ^TCatchBuf;
TCatchBuf = CATCHBUF;
const
HINSTANCE_ERROR = HINST(32);
{ Windows Exit Procedure flag values }
WEP_SYSTEM_EXIT = 1;
WEP_FREE_DLL = 0;
type
LPSEGINFO = ^SEGINFO; far;
SEGINFO = record
offSegment: UINT;
cbSegment: UINT;
flags: UINT;
cbAlloc: UINT;
h: HGLOBAL;
alignShift: UINT;
reserved: array [0..1] of UINT;
end;
PSegInfo = ^TSegInfo;
TSegInfo = SEGINFO;
HTASK = THandle;
const
{ Global Memory Flags }
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;
GHND = GMEM_MOVEABLE or GMEM_ZEROINIT;
GPTR = GMEM_FIXED or GMEM_ZEROINIT;
{ GlobalFlags return flags (in addition to GMEM_DISCARDABLE) }
GMEM_DISCARDED = $4000;
GMEM_LOCKCOUNT = $00FF;
{ Low system memory notification message }
WM_COMPACTING = $0041;
type
GNOTIFYPROC = function(hGlbl: HGLOBAL): BOOL; far;
const
{ Local Memory Flags }
LMEM_FIXED = $0000;
LMEM_MOVEABLE = $0002;
LMEM_NOCOMPACT = $0010;
LMEM_NODISCARD = $0020;
LMEM_ZEROINIT = $0040;
LMEM_MODIFY = $0080;
LMEM_DISCARDABLE = $0F00;
LHND = LMEM_MOVEABLE or LMEM_ZEROINIT;
LPTR = LMEM_FIXED or LMEM_ZEROINIT;
NONZEROLHND = LMEM_MOVEABLE;
NONZEROLPTR = LMEM_FIXED;
{ LocalFlags return flags (in addition to LMEM_DISCARDABLE) }
LMEM_DISCARDED = $4000;
LMEM_LOCKCOUNT = $00FF;
{ File I/O }
type
HFILE = SmallInt;
const
HFILE_ERROR = HFILE(-1);
type
{ OpenFile() Structure }
POFSTRUCT = ^OFSTRUCT;
NPOFSTRUCT = ^OFSTRUCT; near;
LPOFSTRUCT = ^OFSTRUCT; far;
OFSTRUCT = record
cBytes: BYTE;
fFixedDisk: BYTE;
nErrCode: UINT;
reserved: array [0..3] of BYTE;
szPathName: array [0..127] of AnsiChar;
end;
TOFStruct = OFSTRUCT;
const
{ OpenFile() Flags }
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; { Used with OF_REOPEN }
OF_SEARCH = $0400; { Used without OF_REOPEN }
OF_CANCEL = $0800;
OF_CREATE = $1000;
OF_PROMPT = $2000;
OF_EXIST = $4000;
OF_REOPEN = $8000;
{ _lopen() flags }
_READ = 0;
_WRITE = 1;
READ_WRITE = 2;
{ _llseek origin values }
SEEK_SET = 0;
SEEK_CUR = 1;
SEEK_END = 2;
{ GetTempFileName() Flags }
TF_FORCEDRIVE = BYTE($80);
{ GetDriveType return values }
DRIVE_REMOVABLE = 2;
DRIVE_FIXED = 3;
DRIVE_REMOTE = 4;
{ Network support }
{ Errors }
WN_SUCCESS = $0000;
WN_NOT_SUPPORTED = $0001;
WN_NET_ERROR = $0002;
WN_MORE_DATA = $0003;
WN_BAD_POINTER = $0004;
WN_BAD_VALUE = $0005;
WN_BAD_PASSWORD = $0006;
WN_ACCESS_DENIED = $0007;
WN_FUNCTION_BUSY = $0008;
WN_WINDOWS_ERROR = $0009;
WN_BAD_USER = $000A;
WN_OUT_OF_MEMORY = $000B;
WN_CANCEL = $000C;
WN_CONTINUE = $000D;
{ Connection errors }
WN_NOT_CONNECTED = $0030;
WN_OPEN_FILES = $0031;
WN_BAD_NETNAME = $0032;
WN_BAD_LOCALNAME = $0033;
WN_ALREADY_CONNECTED = $0034;
WN_DEVICE_ERROR = $0035;
WN_CONNECTION_CLOSED = $0036;
type
{ Resource Management }
HRSRC = THandle;
RSRCHDLRPROC = function(hMem: HGLOBAL; hInstance: HINST; hResInfo: HRSRC): HGLOBAL;far;
MAKEINTRESOURCE = LPCSTR;
const
{ Predefined Resource Types }
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);
RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
RT_GROUP_ICON = MAKEINTRESOURCE(14);
{ OEM Resource Ordinal Numbers }
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;
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;
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;
OIC_SAMPLE = 32512;
OIC_HAND = 32513;
OIC_QUES = 32514;
OIC_BANG = 32515;
OIC_NOTE = 32516;
type
{ Atom Management }
MAKEINTATOM = LPCSTR;
const
{ WIN.INI Support }
WM_WININICHANGE = $001A;
type
{ GDI typedefs, structures, and functions }
HDC = THandle;
HGDIOBJ = THandle;
HBITMAP = THandle;
HPEN = THandle;
HBRUSH = THandle;
HRGN = THandle;
HPALETTE = THandle;
HFONT = THandle;
PRECT = ^RECT;
NPRECT = ^RECT; near;
LPRECT = ^RECT; far;
RECT = record
left: SmallInt;
top: SmallInt;
right: SmallInt;
bottom: SmallInt;
end;
TRect = RECT;
PPOINT = ^POINT;
NPPOINT = ^POINT; near;
LPPOINT = ^POINT; far;
POINT = record
x: SmallInt;
y: SmallInt;
end;
TPoint = POINT;
MAKEPOINT = POINT;
{ Device Capabilities }
const
{ Device Parameters for GetDeviceCaps() }
DRIVERVERSION = 0;
TECHNOLOGY = 2;
HORZSIZE = 4;
VERTSIZE = 6;
HORZRES = 8;
VERTRES = 10;
BITSPIXEL = 12;
PLANES = 14;
NUMBRUSHES = 16;
NUMPENS = 18;
NUMMARKERS = 20;
NUMFONTS = 22;
NUMCOLORS = 24;
PDEVICESIZE = 26;
CURVECAPS = 28;
LINECAPS = 30;
POLYGONALCAPS = 32;
TEXTCAPS = 34;
CLIPCAPS = 36;
RASTERCAPS = 38;
ASPECTX = 40;
ASPECTY = 42;
ASPECTXY = 44;
LOGPIXELSX = 88;
LOGPIXELSY = 90;
SIZEPALETTE = 104;
NUMRESERVED = 106;
COLORRES = 108;
{ GetDeviceCaps() return value masks }
{ TECHNOLOGY }
DT_PLOTTER = 0;
DT_RASDISPLAY = 1;
DT_RASPRINTER = 2;
DT_RASCAMERA = 3;
DT_CHARSTREAM = 4;
DT_METAFILE = 5;
DT_DISPFILE = 6;
{ CURVECAPS }
CC_NONE = $0000;
CC_CIRCLES = $0001;
CC_PIE = $0002;
CC_CHORD = $0004;
CC_ELLIPSES = $0008;
CC_WIDE = $0010;
CC_STYLED = $0020;
CC_WIDESTYLED = $0040;
CC_INTERIORS = $0080;
CC_ROUNDRECT = $0100;
{ LINECAPS }
LC_NONE = $0000;
LC_POLYLINE = $0002;
LC_MARKER = $0004;
LC_POLYMARKER = $0008;
LC_WIDE = $0010;
LC_STYLED = $0020;
LC_WIDESTYLED = $0040;
LC_INTERIORS = $0080;
{ POLYGONALCAPS }
PC_NONE = $0000;
PC_POLYGON = $0001;
PC_RECTANGLE = $0002;
PC_WINDPOLYGON = $0004;
PC_SCANLINE = $0008;
PC_WIDE = $0010;
PC_STYLED = $0020;
PC_WIDESTYLED = $0040;
PC_INTERIORS = $0080;
{ TEXTCAPS }
TC_OP_CHARACTER = $0001;
TC_OP_STROKE = $0002;
TC_CP_STROKE = $0004;
TC_CR_90 = $0008;
TC_CR_ANY = $0010;
TC_SF_X_YINDEP = $0020;
TC_SA_DOUBLE = $0040;
TC_SA_INTEGER = $0080;
TC_SA_CONTIN = $0100;
TC_EA_DOUBLE = $0200;
TC_IA_ABLE = $0400;
TC_UA_ABLE = $0800;
TC_SO_ABLE = $1000;
TC_RA_ABLE = $2000;
TC_VA_ABLE = $4000;
TC_RESERVED = $8000;
{ CLIPCAPS }
{$ifndef SYSTEMUNIT}
CP_NONE = $0000;
{$endif SYSTEMUNIT}
CP_RECTANGLE = $0001;
CP_REGION = $0002;
{ RASTERCAPS }
RC_NONE = $0000;
RC_BITBLT = $0001;
RC_BANDING = $0002;
RC_SCALING = $0004;
RC_BITMAP64 = $0008;
RC_GDI20_OUTPUT = $0010;
RC_GDI20_STATE = $0020;
RC_SAVEBITMAP = $0040;
RC_DI_BITMAP = $0080;
RC_PALETTE = $0100;
RC_DIBTODEV = $0200;
RC_BIGFONT = $0400;
RC_STRETCHBLT = $0800;
RC_FLOODFILL = $1000;
RC_STRETCHDIB = $2000;
RC_OP_DX_OUTPUT = $4000;
RC_DEVBITS = $8000;
{ Coordinate transformation support }
{ Map modes }
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 }
ABSOLUTE = 1;
RELATIVE = 2;
{ Color support }
type
PCOLORREF = ^COLORREF;
LPCOLORREF = ^COLORREF; far;
COLORREF = DWORD;
TColorRef = COLORREF;
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;
WM_SYSCOLORCHANGE = $0015;
type
{ GDI Object Support }
GOBJENUMPROC = function(lpLogObject: FarPointer; lpData: LPARAM): SmallInt; far;
const
{ Object types for EnumObjects() }
OBJ_PEN = 1;
OBJ_BRUSH = 2;
{ Pen support }
{ Logical Pen }
type
PLOGPEN = ^LOGPEN;
NPLOGPEN = ^LOGPEN; near;
LPLOGPEN = ^LOGPEN; far;
LOGPEN = record
lopnStyle: UINT;
lopnWidth: POINT;
lopnColor: COLORREF;
end;
TLogPen = LOGPEN;
{ Pen Styles }
const
PS_SOLID = 0;
PS_DASH = 1;
PS_DOT = 2;
PS_DASHDOT = 3;
PS_DASHDOTDOT = 4;
PS_NULL = 5;
PS_INSIDEFRAME = 6;
{ Stock pens for use with GetStockObject(); }
WHITE_PEN = 6;
BLACK_PEN = 7;
NULL_PEN = 8;
{ Brush support }
{ Brush Styles }
BS_SOLID = 0;
BS_NULL = 1;
BS_HOLLOW = BS_NULL;
BS_HATCHED = 2;
BS_PATTERN = 3;
BS_INDEXED = 4;
BS_DIBPATTERN = 5;
{ Hatch Styles }
HS_HORIZONTAL = 0;
HS_VERTICAL = 1;
HS_FDIAGONAL = 2;
HS_BDIAGONAL = 3;
HS_CROSS = 4;
HS_DIAGCROSS = 5;
{ Logical Brush (or Pattern) }
type
PLOGBRUSH = ^LOGBRUSH;
NPLOGBRUSH = ^LOGBRUSH; near;
LPLOGBRUSH = ^LOGBRUSH; far;
LOGBRUSH = record
lbStyle: UINT;
lbColor: COLORREF;
lbHatch: SmallInt;
end;
TLogBrush = LOGBRUSH;
PPATTERN = ^PATTERN;
NPPATTERN = ^PATTERN; near;
LPPATTERN = ^PATTERN; far;
PATTERN = LOGBRUSH;
TPattern = PATTERN;
{ Stock brushes for use with GetStockObject() }
const
WHITE_BRUSH = 0;
LTGRAY_BRUSH = 1;
GRAY_BRUSH = 2;
DKGRAY_BRUSH = 3;
BLACK_BRUSH = 4;
NULL_BRUSH = 5;
HOLLOW_BRUSH = NULL_BRUSH;
{ Region support }
{ Region type flags }
{$ifndef SYSTEMUNIT}
ERROR = 0;
{$endif SYSTEMUNIT}
NULLREGION = 1;
SIMPLEREGION = 2;
COMPLEXREGION = 3;
{ CombineRgn() command values }
RGN_AND = 1;
RGN_OR = 2;
RGN_XOR = 3;
RGN_DIFF = 4;
RGN_COPY = 5;
{ Color palette Support }
type
PPALETTEENTRY = ^PALETTEENTRY;
LPPALETTEENTRY = ^PALETTEENTRY; far;
PALETTEENTRY = record
peRed: BYTE;
peGreen: BYTE;
peBlue: BYTE;
peFlags: BYTE;
end;
TPaletteEntry = PALETTEENTRY;
{ 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 }
{ Logical Palette }
type
PLOGPALETTE = ^LOGPALETTE;
NPLOGPALETTE = ^LOGPALETTE; near;
LPLOGPALETTE = ^LOGPALETTE; far;
LOGPALETTE = record
palVersion: WORD;
palNumEntries: WORD;
palPalEntry: array [0..0] of PALETTEENTRY;
end;
TLogPalette = LOGPALETTE;
{ Get/SetSystemPaletteUse() values }
const
SYSPAL_STATIC = 1;
SYSPAL_NOSTATIC = 2;
{ Palette window messages }
WM_QUERYNEWPALETTE = $030F;
WM_PALETTEISCHANGING = $0310;
WM_PALETTECHANGED = $0311;
{ General drawing support }
type
LINEDDAPROC = procedure(xPos, yPos: SmallInt; lpData: LPARAM); far;
const
{ PolyFill Modes }
ALTERNATE = 1;
WINDING = 2;
{ ExtFloodFill style flags }
FLOODFILLBORDER = 0;
FLOODFILLSURFACE = 1;
{ Text support }
ETO_GRAYED = $0001;
ETO_OPAQUE = $0002;
ETO_CLIPPED = $0004;
{ DrawText() Format Flags }
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;
{ Background Modes }
TRANSPARENT = 1;
OPAQUE = 2;
{ Text Alignment Options }
TA_NOUPDATECP = $0000;
TA_UPDATECP = $0001;
TA_LEFT = $0000;
TA_RIGHT = $0002;
TA_CENTER = $0006;
TA_TOP = $0000;
TA_BOTTOM = $0008;
TA_BASELINE = $0018;
type
GRAYSTRINGPROC = function(hdc: HDC; lpData: LPARAM; cch: SmallInt): BOOL; far;
{ Font support }
const
{ Logical Font }
LF_FACESIZE = 32;
type
PLOGFONT = ^LOGFONT;
NPLOGFONT = ^LOGFONT; near;
LPLOGFONT = ^LOGFONT; far;
LOGFONT = record
lfHeight: SmallInt;
lfWidth: SmallInt;
lfEscapement: SmallInt;
lfOrientation: SmallInt;
lfWeight: SmallInt;
lfItalic: BYTE;
lfUnderline: BYTE;
lfStrikeOut: BYTE;
lfCharSet: BYTE;
lfOutPrecision: BYTE;
lfClipPrecision: BYTE;
lfQuality: BYTE;
lfPitchAndFamily: BYTE;
lfFaceName: array [0..LF_FACESIZE-1] of AnsiChar;
end;
TLogFont = LOGFONT;
const
{ weight values }
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;
FW_ULTRALIGHT = FW_EXTRALIGHT;
FW_REGULAR = FW_NORMAL;
FW_DEMIBOLD = FW_SEMIBOLD;
FW_ULTRABOLD = FW_EXTRABOLD;
FW_BLACK = FW_HEAVY;
{ CharSet values }
ANSI_CHARSET = 0;
DEFAULT_CHARSET = 1;
SYMBOL_CHARSET = 2;
SHIFTJIS_CHARSET = 128;
HANGEUL_CHARSET = 129;
CHINESEBIG5_CHARSET = 136;
OEM_CHARSET = 255;
{ OutPrecision values }
OUT_DEFAULT_PRECIS = 0;
OUT_STRING_PRECIS = 1;
OUT_CHARACTER_PRECIS = 2;
OUT_STROKE_PRECIS = 3;
{ ClipPrecision values }
CLIP_DEFAULT_PRECIS = $00;
CLIP_CHARACTER_PRECIS = $01;
CLIP_STROKE_PRECIS = $02;
CLIP_MASK = $0F;
{ Quality values }
DEFAULT_QUALITY = 0;
DRAFT_QUALITY = 1;
PROOF_QUALITY = 2;
{ PitchAndFamily pitch values (low 4 bits) }
DEFAULT_PITCH = $00;
FIXED_PITCH = $01;
VARIABLE_PITCH = $02;
{ PitchAndFamily family values (high 4 bits) }
FF_DONTCARE = $00;
FF_ROMAN = $10;
FF_SWISS = $20;
FF_MODERN = $30;
FF_SCRIPT = $40;
FF_DECORATIVE = $50;
{ Stock fonts for use with GetStockObject() }
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;
ASPECT_FILTERING = $00000001;
WM_FONTCHANGE = $001D;
type
PTEXTMETRIC = ^TEXTMETRIC;
NPTEXTMETRIC = ^TEXTMETRIC; near;
LPTEXTMETRIC = ^TEXTMETRIC; far;
TEXTMETRIC = record
tmHeight: SmallInt;
tmAscent: SmallInt;
tmDescent: SmallInt;
tmInternalLeading: SmallInt;
tmExternalLeading: SmallInt;
tmAveCharWidth: SmallInt;
tmMaxCharWidth: SmallInt;
tmWeight: SmallInt;
tmItalic: BYTE;
tmUnderlined: BYTE;
tmStruckOut: BYTE;
tmFirstChar: BYTE;
tmLastChar: BYTE;
tmDefaultChar: BYTE;
tmBreakChar: BYTE;
tmPitchAndFamily: BYTE;
tmCharSet: BYTE;
tmOverhang: SmallInt;
tmDigitizedAspectX: SmallInt;
tmDigitizedAspectY: SmallInt;
end;
TTextMetric = TEXTMETRIC;
const
{ tmPitchAndFamily values }
TMPF_FIXED_PITCH = $01;
TMPF_VECTOR = $02;
TMPF_DEVICE = $08;
type
OLDFONTENUMPROC = function(lplf: LPLOGFONT; lptm: LPTEXTMETRIC; FontType: SmallInt; lpData: LPARAM): SmallInt; far;
const
{ EnumFonts font type values }
RASTER_FONTTYPE = $0001;
DEVICE_FONTTYPE = $0002;
type
{ Bitmap support }
PBITMAP = ^BITMAP;
NPBITMAP = ^BITMAP; near;
LPBITMAP = ^BITMAP; far;
BITMAP = record
bmType: SmallInt;
bmWidth: SmallInt;
bmHeight: SmallInt;
bmWidthBytes: SmallInt;
bmPlanes: BYTE;
bmBitsPixel: BYTE;
bmBits: FarPointer;
end;
TBitmap = BITMAP;
{ Bitmap Header structures }
PRGBTRIPLE = ^RGBTRIPLE;
LPRGBTRIPLE = ^RGBTRIPLE; far;
RGBTRIPLE = record
rgbtBlue: BYTE;
rgbtGreen: BYTE;
rgbtRed: BYTE;
end;
TRGBTriple = RGBTRIPLE;
PRGBQUAD = ^RGBQUAD;
LPRGBQUAD = ^RGBQUAD; far;
RGBQUAD = record
rgbBlue: BYTE;
rgbGreen: BYTE;
rgbRed: BYTE;
rgbReserved: BYTE;
end;
TRGBQuad = RGBQUAD;
{ structures for defining DIBs }
PBITMAPCOREHEADER = ^BITMAPCOREHEADER;
LPBITMAPCOREHEADER = ^BITMAPCOREHEADER; far;
BITMAPCOREHEADER = record
bcSize: DWORD;
bcWidth: SmallInt;
bcHeight: SmallInt;
bcPlanes: WORD;
bcBitCount: WORD;
end;
TBitmapCoreHeader = BITMAPCOREHEADER;
PBITMAPINFOHEADER = ^BITMAPINFOHEADER;
LPBITMAPINFOHEADER = ^BITMAPINFOHEADER; far;
BITMAPINFOHEADER = record
biSize: DWORD;
biWidth: LONG;
biHeight: LONG;
biPlanes: WORD;
biBitCount: WORD;
biCompression: DWORD;
biSizeImage: DWORD;
biXPelsPerMeter: LONG;
biYPelsPerMeter: LONG;
biClrUsed: DWORD;
biClrImportant: DWORD;
end;
TBitmapInfoHeader = BITMAPINFOHEADER;
const
{ constants for the biCompression field }
BI_RGB = 0;
BI_RLE8 = 1;
BI_RLE4 = 2;
type
PBITMAPINFO = ^BITMAPINFO;
LPBITMAPINFO = ^BITMAPINFO; far;
BITMAPINFO = record
bmiHeader: BITMAPINFOHEADER;
bmiColors: array [0..0] of RGBQUAD;
end;
TBitmapInfo = BITMAPINFO;
PBITMAPCOREINFO = ^BITMAPCOREINFO;
LPBITMAPCOREINFO = ^BITMAPCOREINFO; far;
BITMAPCOREINFO = record
bmciHeader: BITMAPCOREHEADER;
bmciColors: array [0..0] of RGBTRIPLE;
end;
TBitmapCoreInfo = BITMAPCOREINFO;
PBITMAPFILEHEADER = ^BITMAPFILEHEADER;
LPBITMAPFILEHEADER = ^BITMAPFILEHEADER; far;
BITMAPFILEHEADER = record
bfType: UINT;
bfSize: DWORD;
bfReserved1: UINT;
bfReserved2: UINT;
bfOffBits: DWORD;
end;
TBitmapFileHeader = BITMAPFILEHEADER;
const
{ DIB color table identifiers }
DIB_RGB_COLORS = 0;
DIB_PAL_COLORS = 1;
{ constants for CreateDIBitmap }
CBM_INIT = $00000004;
{ Binary raster ops }
R2_BLACK = 1;
R2_NOTMERGEPEN = 2;
R2_MASKNOTPEN = 3;
R2_NOTCOPYPEN = 4;
R2_MASKPENNOT = 5;
R2_NOT = 6;
R2_XORPEN = 7;
R2_NOTMASKPEN = 8;
R2_MASKPEN = 9;
R2_NOTXORPEN = 10;
R2_NOP = 11;
R2_MERGENOTPEN = 12;
R2_COPYPEN = 13;
R2_MERGEPENNOT = 14;
R2_MERGEPEN = 15;
R2_WHITE = 16;
{ Ternary raster operations }
SRCCOPY = $00CC0020;
SRCPAINT = $00EE0086;
SRCAND = $008800C6;
SRCINVERT = $00660046;
SRCERASE = $00440328;
NOTSRCCOPY = $00330008;
NOTSRCERASE = $001100A6;
MERGECOPY = $00C000CA;
MERGEPAINT = $00BB0226;
PATCOPY = $00F00021;
PATPAINT = $00FB0A09;
PATINVERT = $005A0049;
DSTINVERT = $00550009;
BLACKNESS = $00000042;
WHITENESS = $00FF0062;
{ StretchBlt() Modes }
BLACKONWHITE = 1;
WHITEONBLACK = 2;
COLORONCOLOR = 3;
{ new StretchBlt() Modes (simpler names) }
STRETCH_ANDSCANS = 1;
STRETCH_ORSCANS = 2;
STRETCH_DELETESCANS = 3;
type
{ Metafile support }
HMETAFILE = THandle;
{ Clipboard Metafile Picture Structure }
PMETAFILEPICT = ^METAFILEPICT;
LPMETAFILEPICT = ^METAFILEPICT; far;
METAFILEPICT = record
mm: SmallInt;
xExt: SmallInt;
yExt: SmallInt;
hMF: HMETAFILE;
end;
TMetaFilePict = METAFILEPICT;
PMETAHEADER = ^METAHEADER;
LPMETAHEADER = ^METAHEADER; far;
METAHEADER = record
mtType: UINT;
mtHeaderSize: UINT;
mtVersion: UINT;
mtSize: DWORD;
mtNoObjects: UINT;
mtMaxRecord: DWORD;
mtNoParameters: UINT;
end;
TMetaHeader = METAHEADER;
PHANDLETABLE = ^HANDLETABLE;
LPHANDLETABLE = ^HANDLETABLE; far;
HANDLETABLE = record
objectHandle: array [0..0] of HGDIOBJ;
end;
THandleTable = HANDLETABLE;
PMETARECORD = ^METARECORD;
LPMETARECORD = ^METARECORD; far;
METARECORD = record
rdSize: DWORD;
rdFunction: UINT;
rdParm: array [0..0] of UINT;
end;
TMetaRecord = METARECORD;
const
{ Metafile Functions }
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 = $0410;
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;
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;
META_DIBBITBLT = $0940;
META_DIBSTRETCHBLT = $0b41;
META_DIBCREATEPATTERNBRUSH = $0142;
META_STRETCHDIB = $0f43;
META_EXTFLOODFILL = $0548;
META_RESETDC = $014C;
META_STARTDOC = $014D;
META_STARTPAGE = $004F;
META_ENDPAGE = $0050;
META_ABORTDOC = $0052;
META_ENDDOC = $005E;
META_DELETEOBJECT = $01f0;
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;
type
MFENUMPROC = function(hdc: HDC; lpht: LPHANDLETABLE; lpmr: LPMETARECORD; cObj: SmallInt; lParam: LPARAM): SmallInt; far;
{ Printing support }
ABORTPROC = function(hdc: HDC; error: SmallInt): BOOL; far;
const
{ Spooler Error Codes }
SP_NOTREPORTED = $4000;
SP_ERROR = (-1);
SP_APPABORT = (-2);
SP_USERABORT = (-3);
SP_OUTOFDISK = (-4);
SP_OUTOFMEMORY = (-5);
PR_JOBSTATUS = $0000;
{ Spooler status notification message }
WM_SPOOLERSTATUS = $002A;
{ GDI Escape support }
{ GDI Escapes }
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;
SETLINECAP = 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;
MOUSETRAILS = 39;
GETEXTENDEDTEXTMETRICS = 256;
GETEXTENTTABLE = 257;
GETPAIRKERNTABLE = 258;
GETTRACKKERNTABLE = 259;
GDIEXTTEXTOUT = 512; { renamed to avoid conflict with the ExtTextOut function }
GETFACENAME = 513;
ENABLERELATIVEWIDTHS = 768;
ENABLEPAIRKERNING = 769;
SETKERNTRACK = 770;
SETALLJUSTVALUES = 771;
SETCHARSET = 772;
GDISTRETCHBLT = 2048; { renamed to avoid conflict with the StretchBlt function }
GETSETSCREENPARAMS = 3072;
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;
type
{ USER typedefs, structures, and functions }
HWND = THandle;
HMENU = THandle;
HICON = THandle;
HCURSOR = HICON; { HICONs & HCURSORs are polymorphic }
{ System Metrics }
const
{ GetSystemMetrics() codes }
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;
WM_DEVMODECHANGE = $001B;
WM_TIMECHANGE = $001E;
{ Window message support }
WM_NULL = $0000;
{ NOTE: All messages below $0400 are RESERVED by Windows }
WM_USER = $0400;
type
{ Queued message structure }
PMSG = ^MSG;
NPMSG = ^MSG; near;
LPMSG = ^MSG; far;
MSG = record
hwnd: HWND;
message: UINT;
wParam: WPARAM;
lParam: LPARAM;
time: DWORD;
pt: POINT;
end;
TMsg = MSG;
const
{ PeekMessage() options }
PM_NOREMOVE = $0000;
PM_REMOVE = $0001;
PM_NOYIELD = $0002;
{ Special HWND value for use with PostMessage() and SendMessage() }
HWND_BROADCAST = HWND($ffff);
WH_GETMESSAGE = 3;
WH_CALLWNDPROC = 4;
WH_MSGFILTER = (-1);
WH_SYSMSGFILTER = 6;
{ CallMsgFilter() and WH_SYS/MSGFILTER context codes }
MSGF_DIALOGBOX = 0;
MSGF_MENU = 2;
MSGF_MOVE = 3;
MSGF_SIZE = 4;
MSGF_SCROLLBAR = 5;
MSGF_NEXTWINDOW = 6;
MSGF_MAINLOOP = 8;
MSGF_USER = 4096;
{ Standard window messages }
{ PenWindows specific messages }
WM_PENWINFIRST = $0380;
WM_PENWINLAST = $038F;
{ Coalescing messages }
WM_COALESCE_FIRST = $0390;
WM_COALESCE_LAST = $039F;
{ Application termination }
WM_QUERYENDSESSION = $0011;
WM_ENDSESSION = $0016;
WM_QUIT = $0012;
WM_SYSTEMERROR = $0017;
type
{ Window class management }
WNDPROC = function(hwnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; far;
PWNDCLASS = ^WNDCLASS;
NPWNDCLASS = ^WNDCLASS; near;
LPWNDCLASS = ^WNDCLASS; far;
WNDCLASS = record
style: UINT;
lpfnWndProc: WNDPROC;
cbClsExtra: SmallInt;
cbWndExtra: SmallInt;
hInstance: HINST;
hIcon: HICON;
hCursor: HCURSOR;
hbrBackground: HBRUSH;
lpszMenuName: LPCSTR;
lpszClassName: LPCSTR;
end;
TWndClass = WNDCLASS;
const
{ Class styles }
CS_VREDRAW = $0001;
CS_HREDRAW = $0002;
CS_OWNDC = $0020;
CS_CLASSDC = $0040;
CS_PARENTDC = $0080;
CS_SAVEBITS = $0800;
CS_DBLCLKS = $0008;
CS_BYTEALIGNCLIENT = $1000;
CS_BYTEALIGNWINDOW = $2000;
CS_NOCLOSE = $0200;
CS_KEYCVTWINDOW = $0004;
CS_NOKEYCVT = $0100;
CS_GLOBALCLASS = $4000;
{ Class field offsets for GetClassLong() and GetClassWord() }
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 creation/destroy }
{ Window Styles }
{ Basic window types }
WS_OVERLAPPED = $00000000;
WS_POPUP = $80000000;
WS_CHILD = $40000000;
{ Clipping styles }
WS_CLIPSIBLINGS = $04000000;
WS_CLIPCHILDREN = $02000000;
{ Generic window states }
WS_VISIBLE = $10000000;
WS_DISABLED = $08000000;
{ Main window states }
WS_MINIMIZE = $20000000;
WS_MAXIMIZE = $01000000;
{ Main window styles }
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_MINIMIZEBOX = $00020000;
WS_MAXIMIZEBOX = $00010000;
{ Control window styles }
WS_GROUP = $00020000;
WS_TABSTOP = $00010000;
{ Common Window Styles }
WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
WS_POPUPWINDOW = (WS_POPUP or WS_BORDER or WS_SYSMENU);
WS_CHILDWINDOW = (WS_CHILD);
{ Extended Window Styles }
WS_EX_DLGMODALFRAME = $00000001;
WS_EX_NOPARENTNOTIFY = $00000004;
{ Obsolete style names }
WS_TILED = WS_OVERLAPPED;
WS_ICONIC = WS_MINIMIZE;
WS_SIZEBOX = WS_THICKFRAME;
WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW;
{ Special value for CreateWindow, et al. }
HWND_DESKTOP = HWND(0);
WM_CREATE = $0001;
WM_NCCREATE = $0081;
type
{ WM_CREATE/WM_NCCREATE lParam struct }
PCREATESTRUCT = ^CREATESTRUCT;
LPCREATESTRUCT = ^CREATESTRUCT; far;
CREATESTRUCT = record
lpCreateParams: FarPointer;
hInstance: HINST;
hMenu: HMENU;
hwndParent: HWND;
cy: SmallInt;
cx: SmallInt;
y: SmallInt;
x: SmallInt;
style: LONG;
lpszName: LPCSTR;
lpszClass: LPCSTR;
dwExStyle: DWORD;
end;
TCreateStruct = CREATESTRUCT;
const
WM_DESTROY = $0002;
WM_NCDESTROY = $0082;
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;
{ Obsolete ShowWindow() command names }
HIDE_WINDOW = 0;
SHOW_OPENWINDOW = 1;
SHOW_ICONWINDOW = 2;
SHOW_FULLSCREEN = 3;
SHOW_OPENNOACTIVATE = 4;
WM_SHOWWINDOW = $0018;
{ WM_SHOWWINDOW wParam codes }
SW_PARENTCLOSING = 1;
SW_OTHERMAXIMIZED = 2;
SW_PARENTOPENING = 3;
SW_OTHERRESTORED = 4;
{ Obsolete constant names }
SW_OTHERZOOM = SW_OTHERMAXIMIZED;
SW_OTHERUNZOOM = SW_OTHERRESTORED;
WM_SETREDRAW = $000B;
{ Enabled state }
WM_ENABLE = $000A;
{ Window text }
WM_SETTEXT = $000C;
WM_GETTEXT = $000D;
WM_GETTEXTLENGTH = $000E;
{ Window field offsets for GetWindowLong() and GetWindowWord() }
GWL_WNDPROC = (-4);
GWW_HINSTANCE = (-6);
GWW_HWNDPARENT = (-8);
GWW_ID = (-12);
GWL_STYLE = (-16);
GWL_EXSTYLE = (-20);
{ Window size, position, Z-order, and visibility }
CW_USEDEFAULT = SmallInt($8000);
{ SetWindowPos() and WINDOWPOS flags }
SWP_NOSIZE = $0001;
SWP_NOMOVE = $0002;
SWP_NOZORDER = $0004;
SWP_NOREDRAW = $0008;
SWP_NOACTIVATE = $0010;
SWP_FRAMECHANGED = $0020; { The frame changed: send WM_NCCALCSIZE }
SWP_SHOWWINDOW = $0040;
SWP_HIDEWINDOW = $0080;
SWP_NOCOPYBITS = $0100;
SWP_NOOWNERZORDER = $0200; { Don't do owner Z ordering }
SWP_DRAWFRAME = SWP_FRAMECHANGED;
SWP_NOREPOSITION = SWP_NOOWNERZORDER;
SWP_NOSENDCHANGING = $0400;
SWP_DEFERERASE = $2000;
{ SetWindowPos() hwndInsertAfter field values }
HWND_TOP = HWND(0);
HWND_BOTTOM = HWND(1);
HWND_TOPMOST = HWND(-1);
HWND_NOTOPMOST = HWND(-2);
type
HDWP = THandle;
const
WM_MOVE = $0003;
WM_SIZE = $0005;
{ WM_SIZE message wParam values }
SIZE_RESTORED = 0;
SIZE_MINIMIZED = 1;
SIZE_MAXIMIZED = 2;
SIZE_MAXSHOW = 3;
SIZE_MAXHIDE = 4;
{ Obsolete constant names }
SIZENORMAL = SIZE_RESTORED;
SIZEICONIC = SIZE_MINIMIZED;
SIZEFULLSCREEN = SIZE_MAXIMIZED;
SIZEZOOMSHOW = SIZE_MAXSHOW;
SIZEZOOMHIDE = SIZE_MAXHIDE;
{ Main window support }
WM_QUERYOPEN = $0013;
WM_CLOSE = $0010;
type
{ Struct pointed to by WM_GETMINMAXINFO lParam }
PMINMAXINFO = ^MINMAXINFO;
LPMINMAXINFO = ^MINMAXINFO; far;
MINMAXINFO = record
ptReserved: POINT;
ptMaxSize: POINT;
ptMaxPosition: POINT;
ptMinTrackSize: POINT;
ptMaxTrackSize: POINT;
end;
TMinMaxInfo = MINMAXINFO;
const
WM_GETMINMAXINFO = $0024;
type
{ Window query and enumeration }
WNDENUMPROC = function(hwnd: HWND; lParam: LPARAM): BOOL; far;
const
{ GetWindow() constants }
GW_HWNDFIRST = 0;
GW_HWNDLAST = 1;
GW_HWNDNEXT = 2;
GW_HWNDPREV = 3;
GW_OWNER = 4;
GW_CHILD = 5;
type
{ Window property support }
PROPENUMPROC = function(hwnd: HWND; lpsz: LPCSTR; hData: HANDLE): BOOL; far;
const
{ Window repainting }
WM_PAINT = $000F;
WM_ERASEBKGND = $0014;
WM_ICONERASEBKGND = $0027;
type
{ BeginPaint() return structure }
PPAINTSTRUCT = ^PAINTSTRUCT;
NPPAINTSTRUCT = ^PAINTSTRUCT; near;
LPPAINTSTRUCT = ^PAINTSTRUCT; far;
PAINTSTRUCT = record
hdc: HDC;
fErase: BOOL;
rcPaint: RECT;
fRestore: BOOL;
fIncUpdate: BOOL;
rgbReserved: array [0..15] of BYTE;
end;
TPaintStruct = PAINTSTRUCT;
const
RDW_INVALIDATE = $0001;
RDW_INTERNALPAINT = $0002;
RDW_ERASE = $0004;
RDW_VALIDATE = $0008;
RDW_NOINTERNALPAINT = $0010;
RDW_NOERASE = $0020;
RDW_NOCHILDREN = $0040;
RDW_ALLCHILDREN = $0080;
RDW_UPDATENOW = $0100;
RDW_ERASENOW = $0200;
RDW_FRAME = $0400;
RDW_NOFRAME = $0800;
{ Non-client window area management }
WM_NCPAINT = $0085;
WM_NCCALCSIZE = $0083;
type
{ WM_NCCALCSIZE parameter structure }
PNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS;
LPNCCALCSIZE_PARAMS = ^NCCALCSIZE_PARAMS; far;
NCCALCSIZE_PARAMS = record
rgrc: array [0..1] of RECT;
end;
TNCCalcSize_Params = NCCALCSIZE_PARAMS;
const
WM_NCHITTEST = $0084;
{ WM_NCHITTEST return codes }
HTERROR = (-2);
HTTRANSPARENT = (-1);
HTNOWHERE = 0;
HTCLIENT = 1;
HTCAPTION = 2;
HTSYSMENU = 3;
HTSIZE = 4;
HTMENU = 5;
HTHSCROLL = 6;
HTVSCROLL = 7;
HTMINBUTTON = 8;
HTMAXBUTTON = 9;
HTLEFT = 10;
HTRIGHT = 11;
HTTOP = 12;
HTTOPLEFT = 13;
HTTOPRIGHT = 14;
HTBOTTOM = 15;
HTBOTTOMLEFT = 16;
HTBOTTOMRIGHT = 17;
HTBORDER = 18;
HTGROWBOX = HTSIZE;
HTREDUCE = HTMINBUTTON;
HTZOOM = HTMAXBUTTON;
{ Drag-and-drop support }
WM_QUERYDRAGICON = $0037;
WM_DROPFILES = $0233;
{ Window activation }
{ WM_ACTIVATE state values }
WA_INACTIVE = 0;
WA_ACTIVE = 1;
WA_CLICKACTIVE = 2;
WM_ACTIVATE = $0006;
WM_ACTIVATEAPP = $001C;
WM_NCACTIVATE = $0086;
type
{ Keyboard input support }
PKeyboardState = ^TKeyboardState;
LPKeyboardState = ^TKeyboardState; far;
TKeyboardState = array [0..255] of AnsiChar;
const
WM_SETFOCUS = $0007;
WM_KILLFOCUS = $0008;
WM_KEYDOWN = $0100;
WM_KEYUP = $0101;
WM_CHAR = $0102;
WM_DEADCHAR = $0103;
WM_SYSKEYDOWN = $0104;
WM_SYSKEYUP = $0105;
WM_SYSCHAR = $0106;
WM_SYSDEADCHAR = $0107;
{ Keyboard message range }
WM_KEYFIRST = $0100;
WM_KEYLAST = $0108;
{ WM_KEYUP/DOWN/AnsiChar HIWORD(lParam) flags }
KF_EXTENDED = $0100;
KF_DLGMODE = $0800;
KF_MENUMODE = $1000;
KF_ALTDOWN = $2000;
KF_REPEAT = $4000;
KF_UP = $8000;
{ Virtual key codes }
VK_LBUTTON = $01;
VK_RBUTTON = $02;
VK_CANCEL = $03;
VK_MBUTTON = $04;
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_INSERT = $2D;
VK_DELETE = $2E;
VK_HELP = $2F;
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_F17 = $80;
VK_F18 = $81;
VK_F19 = $82;
VK_F20 = $83;
VK_F21 = $84;
VK_F22 = $85;
VK_F23 = $86;
VK_F24 = $87;
VK_NUMLOCK = $90;
VK_SCROLL = $91;
{ 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 '0' }
{ SetWindowsHook() keyboard hook }
WH_KEYBOARD = 2;
{ Mouse input support }
{ Mouse input messages }
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;
{ Mouse input message range }
WM_MOUSEFIRST = $0200;
WM_MOUSELAST = $0209;
{ Mouse message wParam key states }
MK_LBUTTON = $0001;
MK_RBUTTON = $0002;
MK_SHIFT = $0004;
MK_CONTROL = $0008;
MK_MBUTTON = $0010;
{ Non-client mouse messages }
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;
{ Mouse click activation support }
WM_MOUSEACTIVATE = $0021;
{ WM_MOUSEACTIVATE return codes }
MA_ACTIVATE = 1;
MA_ACTIVATEANDEAT = 2;
MA_NOACTIVATE = 3;
{ SetWindowsHook() mouse hook }
WH_MOUSE = 7;
type
PMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT;
LPMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT; far;
MOUSEHOOKSTRUCT = record
pt: POINT;
hwnd: HWND;
wHitTestCode: UINT;
dwExtraInfo: DWORD;
end;
TMouseHookStruct = MOUSEHOOKSTRUCT;
const
{ Mode control }
WM_CANCELMODE = $001F;
type
{ Timer support }
TIMERPROC = procedure(hwnd: HWND; msg, idTimer: UINT; dwTime: DWORD); far;
const
WM_TIMER = $0113;
type
{ Accelerator support }
HACCEL = THandle;
{ Menu support }
{ Menu template header }
PMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER;
LPMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER; far;
MENUITEMTEMPLATEHEADER = record
versionNumber: UINT;
offset: UINT;
end;
TMenuItemTemplateHeader = MENUITEMTEMPLATEHEADER;
{ Menu template item struct }
PMENUITEMTEMPLATE = ^MENUITEMTEMPLATE;
LPMENUITEMTEMPLATE = ^MENUITEMTEMPLATE; far;
MENUITEMTEMPLATE = record
mtOption: UINT;
mtID: UINT;
mtString: array [0..0] of AnsiChar;
end;
TMenuItemTemplate = MENUITEMTEMPLATE;
const
MF_INSERT = $0000;
MF_CHANGE = $0080;
MF_APPEND = $0100;
MF_DELETE = $0200;
MF_REMOVE = $1000;
{ Menu flags for Add/Check/EnableMenuItem() }
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;
MF_END = $0080; { Only valid in menu resource templates }
{ Flags for TrackPopupMenu }
TPM_LEFTBUTTON = $0000;
{ Menu messages }
WM_INITMENU = $0116;
WM_INITMENUPOPUP = $0117;
WM_MENUSELECT = $011F;
WM_MENUCHAR = $0120;
{ Menu and control command messages }
WM_COMMAND = $0111;
{ Scroll bar support }
WM_HSCROLL = $0114;
WM_VSCROLL = $0115;
{ WM_H/VSCROLL commands }
SB_LINEUP = 0;
SB_LINELEFT = 0;
SB_LINEDOWN = 1;
SB_LINERIGHT = 1;
SB_PAGEUP = 2;
SB_PAGELEFT = 2;
SB_PAGEDOWN = 3;
SB_PAGERIGHT = 3;
SB_THUMBPOSITION = 4;
SB_THUMBTRACK = 5;
SB_TOP = 6;
SB_LEFT = 6;
SB_BOTTOM = 7;
SB_RIGHT = 7;
SB_ENDSCROLL = 8;
{ Scroll bar selection constants }
SB_HORZ = 0;
SB_VERT = 1;
SB_CTL = 2;
SB_BOTH = 3;
{ EnableScrollBar() flags }
ESB_ENABLE_BOTH = $0000;
ESB_DISABLE_BOTH = $0003;
ESB_DISABLE_LEFT = $0001;
ESB_DISABLE_RIGHT = $0002;
ESB_DISABLE_UP = $0001;
ESB_DISABLE_DOWN = $0002;
ESB_DISABLE_LTUP = ESB_DISABLE_LEFT;
ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT;
{ Clipboard manager }
{ Predefined Clipboard Formats }
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;
CF_PENDATA = 10;
CF_RIFF = 11;
CF_WAVE = 12;
CF_OWNERDISPLAY = $0080;
CF_DSPTEXT = $0081;
CF_DSPBITMAP = $0082;
CF_DSPMETAFILEPICT = $0083;
{ "Private" formats don't get GlobalFree()'d }
CF_PRIVATEFIRST = $0200;
CF_PRIVATELAST = $02FF;
{ "GDIOBJ" formats do get DeleteObject()'d }
CF_GDIOBJFIRST = $0300;
CF_GDIOBJLAST = $03FF;
{ Clipboard command messages }
WM_CUT = $0300;
WM_COPY = $0301;
WM_PASTE = $0302;
WM_CLEAR = $0303;
WM_UNDO = $0304;
{ Clipboard owner messages }
WM_RENDERFORMAT = $0305;
WM_RENDERALLFORMATS = $0306;
WM_DESTROYCLIPBOARD = $0307;
{ Clipboard viewer messages }
WM_DRAWCLIPBOARD = $0308;
WM_PAINTCLIPBOARD = $0309;
WM_SIZECLIPBOARD = $030B;
WM_VSCROLLCLIPBOARD = $030A;
WM_HSCROLLCLIPBOARD = $030E;
WM_ASKCBFORMATNAME = $030C;
WM_CHANGECBCHAIN = $030D;
{ Mouse cursor support }
{ Standard cursor resource IDs }
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);
WM_SETCURSOR = $0020;
{ Icon support }
{ Standard icon resource IDs }
IDI_APPLICATION = MAKEINTRESOURCE(32512);
IDI_HAND = MAKEINTRESOURCE(32513);
IDI_QUESTION = MAKEINTRESOURCE(32514);
IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
IDI_ASTERISK = MAKEINTRESOURCE(32516);
{ Message Box support }
MB_OK = $0000;
MB_OKCANCEL = $0001;
MB_ABORTRETRYIGNORE = $0002;
MB_YESNOCANCEL = $0003;
MB_YESNO = $0004;
MB_RETRYCANCEL = $0005;
MB_TYPEMASK = $000F;
MB_ICONHAND = $0010;
MB_ICONQUESTION = $0020;
MB_ICONEXCLAMATION = $0030;
MB_ICONASTERISK = $0040;
MB_ICONMASK = $00F0;
MB_ICONINFORMATION = MB_ICONASTERISK;
MB_ICONSTOP = MB_ICONHAND;
MB_DEFBUTTON1 = $0000;
MB_DEFBUTTON2 = $0100;
MB_DEFBUTTON3 = $0200;
MB_DEFMASK = $0F00;
MB_APPLMODAL = $0000;
MB_SYSTEMMODAL = $1000;
MB_TASKMODAL = $2000;
MB_NOFOCUS = $8000;
{ WM_SYSCOMMAND support }
WM_SYSCOMMAND = $0112;
{ System Menu Command Values }
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_SCREENSAVE = $F140;
SC_HOTKEY = $F150;
{ Obsolete names }
SC_ICON = SC_MINIMIZE;
SC_ZOOM = SC_MAXIMIZE;
{ MDI Support }
type
{ CreateWindow lpParams structure for creating MDI client }
PCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT;
LPCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT; far;
CLIENTCREATESTRUCT = record
hWindowMenu: HMENU;
idFirstChild: UINT;
end;
TClientCreateStruct = CLIENTCREATESTRUCT;
const
{ MDI messages }
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;
type
{ WM_MDICREATE message structure }
PMDICREATESTRUCT = ^MDICREATESTRUCT;
LPMDICREATESTRUCT = ^MDICREATESTRUCT; far;
MDICREATESTRUCT = record
szClass: LPCSTR;
szTitle: LPCSTR;
hOwner: HINST;
x: SmallInt;
y: SmallInt;
cx: SmallInt;
cy: SmallInt;
style: DWORD;
lParam: LPARAM;
end;
TMDICreateStruct = MDICREATESTRUCT;
const
WM_CHILDACTIVATE = $0022;
{ Dialog and Control Management }
{ Dialog window class }
WC_DIALOG = MAKEINTATOM($8002);
{ cbWndExtra bytes needed by dialog manager for dialog classes }
DLGWINDOWEXTRA = 30;
{ Dialog styles }
DS_ABSALIGN = $01;
DS_SYSMODAL = $02;
DS_LOCALEDIT = $20;
DS_SETFONT = $40;
DS_MODALFRAME = $80;
DS_NOIDLEMSG = $100;
{ Dialog messages }
DM_GETDEFID = (WM_USER+0);
DM_SETDEFID = (WM_USER+1);
{ Returned in HIWORD() of DM_GETDEFID result if msg is supported }
DC_HASDEFID = $534B;
{ Dialog notification messages }
WM_INITDIALOG = $0110;
WM_NEXTDLGCTL = $0028;
WM_PARENTNOTIFY = $0210;
WM_ENTERIDLE = $0121;
type
DLGPROC = function(hwndDlg: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; far;
const
{ Get/SetWindowWord/Long offsets for use with WC_DIALOG windows }
DWL_MSGRESULT = 0;
DWL_DLGPROC = 4;
DWL_USER = 8;
WM_GETDLGCODE = $0087;
{ dialog codes }
DLGC_WANTARROWS = $0001;
DLGC_WANTTAB = $0002;
DLGC_WANTALLKEYS = $0004;
DLGC_WANTMESSAGE = $0004;
DLGC_HASSETSEL = $0008;
DLGC_DEFPUSHBUTTON = $0010;
DLGC_UNDEFPUSHBUTTON = $0020;
DLGC_RADIOBUTTON = $0040;
DLGC_WANTCHARS = $0080;
DLGC_STATIC = $0100;
DLGC_BUTTON = $2000;
WM_CTLCOLOR = $0019;
{ WM_CTLCOLOR control IDs }
CTLCOLOR_MSGBOX = 0;
CTLCOLOR_EDIT = 1;
CTLCOLOR_LISTBOX = 2;
CTLCOLOR_BTN = 3;
CTLCOLOR_DLG = 4;
CTLCOLOR_SCROLLBAR = 5;
CTLCOLOR_STATIC = 6;
WM_SETFONT = $0030;
WM_GETFONT = $0031;
{ Standard dialog button IDs }
IDOK = 1;
IDCANCEL = 2;
IDABORT = 3;
IDRETRY = 4;
IDIGNORE = 5;
IDYES = 6;
IDNO = 7;
{ Owner draw control support }
{ Owner draw control types }
ODT_MENU = 1;
ODT_LISTBOX = 2;
ODT_COMBOBOX = 3;
ODT_BUTTON = 4;
{ Owner draw actions }
ODA_DRAWENTIRE = $0001;
ODA_SELECT = $0002;
ODA_FOCUS = $0004;
{ Owner draw state }
ODS_SELECTED = $0001;
ODS_GRAYED = $0002;
ODS_DISABLED = $0004;
ODS_CHECKED = $0008;
ODS_FOCUS = $0010;
WM_DRAWITEM = $002B;
type
PDRAWITEMSTRUCT = ^DRAWITEMSTRUCT;
NPDRAWITEMSTRUCT = ^DRAWITEMSTRUCT; near;
LPDRAWITEMSTRUCT = ^DRAWITEMSTRUCT; far;
DRAWITEMSTRUCT = record
CtlType: UINT;
CtlID: UINT;
itemID: UINT;
itemAction: UINT;
itemState: UINT;
hwndItem: HWND;
hDC: HDC;
rcItem: RECT;
itemData: DWORD;
end;
TDrawItemStruct = DRAWITEMSTRUCT;
const
WM_MEASUREITEM = $002C;
type
PMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT;
NPMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT; near;
LPMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT; far;
MEASUREITEMSTRUCT = record
CtlType: UINT;
CtlID: UINT;
itemID: UINT;
itemWidth: UINT;
itemHeight: UINT;
itemData: DWORD;
end;
TMeasureItemStruct = MEASUREITEMSTRUCT;
const
WM_DELETEITEM = $002D;
type
PDELETEITEMSTRUCT = ^DELETEITEMSTRUCT;
NPDELETEITEMSTRUCT = ^DELETEITEMSTRUCT; near;
LPDELETEITEMSTRUCT = ^DELETEITEMSTRUCT; far;
DELETEITEMSTRUCT = record
CtlType: UINT;
CtlID: UINT;
itemID: UINT;
hwndItem: HWND;
itemData: DWORD;
end;
TDeleteItemStruct = DELETEITEMSTRUCT;
const
WM_COMPAREITEM = $0039;
type
PCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT;
NPCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT; near;
LPCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT; far;
COMPAREITEMSTRUCT = record
CtlType: UINT;
CtlID: UINT;
hwndItem: HWND;
itemID1: UINT;
itemData1: DWORD;
itemID2: UINT;
itemData2: DWORD;
end;
TCompareItemStruct = COMPAREITEMSTRUCT;
{ Static control }
const
{ Static Control Styles }
SS_LEFT = $00000000;
SS_CENTER = $00000001;
SS_RIGHT = $00000002;
SS_ICON = $00000003;
SS_BLACKRECT = $00000004;
SS_GRAYRECT = $00000005;
SS_WHITERECT = $00000006;
SS_BLACKFRAME = $00000007;
SS_GRAYFRAME = $00000008;
SS_WHITEFRAME = $00000009;
SS_SIMPLE = $0000000B;
SS_LEFTNOWORDWRAP = $0000000C;
SS_NOPREFIX = $00000080;
{ Button control }
{ Button Control Styles }
BS_PUSHBUTTON = $00000000;
BS_DEFPUSHBUTTON = $00000001;
BS_CHECKBOX = $00000002;
BS_AUTOCHECKBOX = $00000003;
BS_RADIOBUTTON = $00000004;
BS_3STATE = $00000005;
BS_AUTO3STATE = $00000006;
BS_GROUPBOX = $00000007;
BS_USERBUTTON = $00000008;
BS_AUTORADIOBUTTON = $00000009;
BS_OWNERDRAW = $0000000B;
BS_LEFTTEXT = $00000020;
{ Button Control Messages }
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);
{ User Button Notification Codes }
BN_CLICKED = 0;
BN_PAINT = 1;
BN_HILITE = 2;
BN_UNHILITE = 3;
BN_DISABLE = 4;
BN_DOUBLECLICKED = 5;
{ Edit control }
{ Edit control styles }
ES_LEFT = $00000000;
ES_CENTER = $00000001;
ES_RIGHT = $00000002;
ES_MULTILINE = $00000004;
ES_UPPERCASE = $00000008;
ES_LOWERCASE = $00000010;
ES_PASSWORD = $00000020;
ES_AUTOVSCROLL = $00000040;
ES_AUTOHSCROLL = $00000080;
ES_NOHIDESEL = $00000100;
ES_OEMCONVERT = $00000400;
{ Edit control messages }
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_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_LINELENGTH = (WM_USER+17);
EM_REPLACESEL = (WM_USER+18);
EM_SETFONT = (WM_USER+19); { NOT IMPLEMENTED: use WM_SETFONT }
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); { NOT IMPLEMENTED: use EM_SETWORDBREAK }
EM_SETTABSTOPS = (WM_USER+27);
EM_SETPASSWORDCHAR = (WM_USER+28);
EM_EMPTYUNDOBUFFER = (WM_USER+29);
{ Edit control notification codes }
EN_SETFOCUS = $0100;
EN_KILLFOCUS = $0200;
EN_CHANGE = $0300;
EN_UPDATE = $0400;
EN_ERRSPACE = $0500;
EN_MAXTEXT = $0501;
EN_HSCROLL = $0601;
EN_VSCROLL = $0602;
{ Scroll bar control }
{ Also see scrolling support }
{ Scroll bar styles }
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;
{ Listbox control }
{ Listbox styles }
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 or LBS_SORT or WS_VSCROLL or WS_BORDER);
{ Listbox messages }
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_SETCARETINDEX = (WM_USER+31);
LB_GETCARETINDEX = (WM_USER+32);
{ Listbox notification codes }
LBN_ERRSPACE = (-2);
LBN_SELCHANGE = 1;
LBN_DBLCLK = 2;
LBN_SELCANCEL = 3;
LBN_SETFOCUS = 4;
LBN_KILLFOCUS = 5;
{ Listbox notification messages }
WM_VKEYTOITEM = $002E;
WM_CHARTOITEM = $002F;
{ Listbox message return values }
LB_OKAY = 0;
LB_ERR = (-1);
LB_ERRSPACE = (-2);
LB_CTLCODE = 0;
{ Dialog directory support }
{ DlgDirList, DlgDirListComboBox flags values }
DDL_READWRITE = $0000;
DDL_READONLY = $0001;
DDL_HIDDEN = $0002;
DDL_SYSTEM = $0004;
DDL_DIRECTORY = $0010;
DDL_ARCHIVE = $0020;
DDL_POSTMSGS = $2000;
DDL_DRIVES = $4000;
DDL_EXCLUSIVE = $8000;
{ Combo box control }
{ Combo box styles }
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 }
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);
{ Combo box notification codes }
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 message return values }
CB_OKAY = 0;
CB_ERR = (-1);
CB_ERRSPACE = (-2);
type
{ Windows hook support }
LPHHOOK = ^HHOOK; far;
HHOOK = DWORD;
HOOKPROC = function(code: SmallInt; wParam: WPARAM; lParam: LPARAM): LRESULT; far;
THookProc = HOOKPROC;
const
{ Standard hook code }
HC_ACTION = 0;
{ Obsolete hook codes (NO LONGER SUPPORTED) }
HC_GETLPLPFN = (-3);
HC_LPLPFNNEXT = (-2);
HC_LPFNNEXT = (-1);
{ Computer-based-training (CBT) support }
WM_QUEUESYNC = $0023;
{ SetWindowsHook() code }
WH_CBT = 5;
HCBT_MOVESIZE = 0;
HCBT_MINMAX = 1;
HCBT_QS = 2;
HCBT_CREATEWND = 3;
HCBT_DESTROYWND = 4;
HCBT_ACTIVATE = 5;
HCBT_CLICKSKIPPED = 6;
HCBT_KEYSKIPPED = 7;
HCBT_SYSCOMMAND = 8;
HCBT_SETFOCUS = 9;
{ Journalling support }
WH_JOURNALRECORD = 0;
WH_JOURNALPLAYBACK = 1;
{ Journalling hook codes }
HC_GETNEXT = 1;
HC_SKIP = 2;
HC_NOREMOVE = 3;
HC_NOREM = HC_NOREMOVE;
HC_SYSMODALON = 4;
HC_SYSMODALOFF = 5;
type
{ Journalling message structure }
PEVENTMSG = ^EVENTMSG;
NPEVENTMSG = ^EVENTMSG; near;
LPEVENTMSG = ^EVENTMSG; far;
EVENTMSG = record
message: UINT;
paramL: UINT;
paramH: UINT;
time: DWORD;
end;
TEventMsg = EVENTMSG;
{ Help support }
const
{ WinHelp() commands }
HELP_CONTEXT = $0001;
HELP_QUIT = $0002;
HELP_INDEX = $0003;
HELP_CONTENTS = $0003;
HELP_HELPONHELP = $0004;
HELP_SETINDEX = $0005;
HELP_SETCONTENTS = $0005;
HELP_CONTEXTPOPUP = $0008;
HELP_FORCEFILE = $0009;
HELP_KEY = $0101;
HELP_COMMAND = $0102;
HELP_PARTIALKEY = $0105;
HELP_MULTIKEY = $0201;
HELP_SETWINPOS = $0203;
type
PMULTIKEYHELP = ^MULTIKEYHELP;
LPMULTIKEYHELP = ^MULTIKEYHELP; far;
MULTIKEYHELP = record
mkSize: UINT;
mkKeylist: BYTE;
szKeyphrase: array [0..0] of BYTE;
end;
TMultiKeyHelp = MULTIKEYHELP;
PHELPWININFO = ^HELPWININFO;
NPHELPWININFO = ^HELPWININFO; near;
LPHELPWININFO = ^HELPWININFO; far;
HELPWININFO = record
wStructSize: SmallInt;
x: SmallInt;
y: SmallInt;
dx: SmallInt;
dy: SmallInt;
wMax: SmallInt;
rgchMember: array [0..1] of AnsiChar;
end;
THelpWinInfo = HELPWININFO;
{ Sound support }
const
{ SetSoundNoise() Sources }
S_PERIOD512 = 0;
S_PERIOD1024 = 1;
S_PERIOD2048 = 2;
S_PERIODVOICE = 3;
S_WHITE512 = 4;
S_WHITE1024 = 5;
S_WHITE2048 = 6;
S_WHITEVOICE = 7;
{ WaitSoundState() constants }
S_QUEUEEMPTY = 0;
S_THRESHOLD = 1;
S_ALLTHRESHOLD = 2;
{ Accent Modes }
S_NORMAL = 0;
S_LEGATO = 1;
S_STACCATO = 2;
{ Error return values }
S_SERDVNA = (-1);
S_SEROFM = (-2);
S_SERMACT = (-3);
S_SERQFUL = (-4);
S_SERBDNT = (-5);
S_SERDLN = (-6);
S_SERDCC = (-7);
S_SERDTP = (-8);
S_SERDVL = (-9);
S_SERDMD = (-10);
S_SERDSH = (-11);
S_SERDPT = (-12);
S_SERDFQ = (-13);
S_SERDDR = (-14);
S_SERDSR = (-15);
S_SERDST = (-16);
{ Comm support }
NOPARITY = 0;
ODDPARITY = 1;
EVENPARITY = 2;
MARKPARITY = 3;
SPACEPARITY = 4;
ONESTOPBIT = 0;
ONE5STOPBITS = 1;
TWOSTOPBITS = 2;
IGNORE = 0;
INFINITE = $FFFF;
{ Error Flags }
CE_RXOVER = $0001;
CE_OVERRUN = $0002;
CE_RXPARITY = $0004;
CE_FRAME = $0008;
CE_BREAK = $0010;
CE_CTSTO = $0020;
CE_DSRTO = $0040;
CE_RLSDTO = $0080;
CE_TXFULL = $0100;
CE_PTO = $0200;
CE_IOE = $0400;
CE_DNS = $0800;
CE_OOP = $1000;
CE_MODE = $8000;
IE_BADID = (-1);
IE_OPEN = (-2);
IE_NOPEN = (-3);
IE_MEMORY = (-4);
IE_DEFAULT = (-5);
IE_HARDWARE = (-10);
IE_BYTESIZE = (-11);
IE_BAUDRATE = (-12);
{ Events }
EV_RXCHAR = $0001;
EV_RXFLAG = $0002;
EV_TXEMPTY = $0004;
EV_CTS = $0008;
EV_DSR = $0010;
EV_RLSD = $0020;
EV_BREAK = $0040;
EV_ERR = $0080;
EV_RING = $0100;
EV_PERR = $0200;
EV_CTSS = $0400;
EV_DSRS = $0800;
EV_RLSDS = $1000;
EV_RingTe = $2000;
// EV_RINGTE = EV_RingTe;
{ Escape Functions }
SETXOFF = 1;
SETXON = 2;
SETRTS = 3;
CLRRTS = 4;
SETDTR = 5;
CLRDTR = 6;
RESETDEV = 7;
LPTx = $80;
type
PDCB = ^DCB;
LPDCB = ^DCB; far;
DCB = record
Id: BYTE;
BaudRate: UINT;
ByteSize: BYTE;
Parity: BYTE;
StopBits: BYTE;
RlsTimeout: UINT;
CtsTimeout: UINT;
DsrTimeout: UINT;
Flags: Word;
{ UINT fBinary :1;
UINT fRtsDisable :1;
UINT fParity :1;
UINT fOutxCtsFlow :1;
UINT fOutxDsrFlow :1;
UINT fDummy :2;
UINT fDtrDisable :1;
UINT fOutX :1;
UINT fInX :1;
UINT fPeChar :1;
UINT fNull :1;
UINT fChEvt :1;
UINT fDtrflow :1;
UINT fRtsflow :1;
UINT fDummy2 :1;}
XonChar: AnsiChar;
XoffChar: AnsiChar;
XonLim: UINT;
XoffLim: UINT;
PeChar: AnsiChar;
EofChar: AnsiChar;
EvtChar: AnsiChar;
TxDelay: UINT;
end;
TDCB = DCB;
const
DCB_Binary = $0001;
DCB_RtsDisable = $0002;
DCB_Parity = $0004;
DCB_OutxCtsFlow = $0008;
DCB_OutxDsrFlow = $0010;
DCB_Dummy = $0060;
DCB_DtrDisable = $0080;
DCB_OutX = $0100;
DCB_InX = $0200;
DCB_PeChar = $0400;
DCB_Null = $0800;
DCB_ChEvt = $1000;
DCB_Dtrflow = $2000;
DCB_Rtsflow = $4000;
DCB_Dummy2 = $8000;
type
PCOMSTAT = ^COMSTAT;
LPCOMSTAT = ^COMSTAT; far;
COMSTAT = record
case Integer of
0: (
status: BYTE;
cbInQue: UINT;
cbOutQue: UINT;
);
1: (
{ BP7 compatible field name, overlaid on top of 'status' }
Flags: Byte
);
end;
TComStat = COMSTAT;
const
CSTF_CTSHOLD = $01;
CSTF_DSRHOLD = $02;
CSTF_RLSDHOLD = $04;
CSTF_XOFFHOLD = $08;
CSTF_XOFFSENT = $10;
CSTF_EOF = $20;
CSTF_TXIM = $40;
{ BP7 compatibility constants }
COM_CtsHold = $01;
COM_DsrHold = $02;
COM_RlsdHold = $04;
COM_XoffHold = $08;
COM_XoffSent = $10;
COM_Eof = $20;
COM_Txim = $40;
Reference in New Issue View Git Blame Copy Permalink