/sources/duim/win32/win32-definitions.dylan
Unknown | 813 lines | 773 code | 40 blank | 0 comment | 0 complexity | 50af0f360f87068f7a6ae0129512ec93 MD5 | raw file
Possible License(s): BSD-3-Clause
- Module: Win32-duim
- Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
- All rights reserved.
- License: See License.txt in this distribution for details.
- Warranty: Distributed WITHOUT WARRANTY OF ANY KIND
- define constant $FFFFFFFF :: <machine-word> =
- as(<machine-word>, -1); // #xFFFFFFFF
- define constant <U8> = limited(<integer>, min: 0, max: #xFF);
- define constant <U16> = limited(<integer>, min: 0, max: #xFFFF);
- define constant <S16> = limited(<integer>, min: -#x8000, max: #x7FFF);
- define constant <ambiguous-short> = // 16 bits, signed or unsigned
- limited(<integer>, min: -#x8000, max: #xFFFF);
- define constant <signed-long> =
- type-union(<integer>, <machine-word>);
- define constant <unsigned-long> =
- type-union(limited(<integer>, min: 0), <machine-word>);
- define constant <signed-int> = <signed-long>;
- define constant <unsigned-int> = <unsigned-long>;
- define constant <C-BYTE*> = <C-unsigned-char*>;
- define constant <LPARAM> = <C-both-long>;
- define constant <LRESULT> = <C-both-long>;
- define constant <WPARAM> = <C-both-unsigned-int>;
- define constant <UINT> = <C-both-unsigned-int>;
- define inline constant <USHORT> = <C-unsigned-short>;
- define inline constant <DWORD> = <C-both-unsigned-long>;
- define C-pointer-type <DWORD*> => <DWORD>;
- define C-pointer-type <DWORD**> => <DWORD*>;
- define constant <BOOL> = <C-Boolean>;
- define inline constant <C-BYTE> = <C-unsigned-char>;
- define inline constant <WORD> = <C-unsigned-short>;
- define inline constant <PBYTE> = <C-BYTE*>;
- define inline constant <LPBYTE> = <C-BYTE*>;
- define inline constant <LPINT> = <C-int*>;
- define C-pointer-type <LPWORD> => <WORD>;
- define inline constant <LPVOID> = <C-void*>;
- define inline constant <LPCVOID> = /* const */ <C-void*>;
- define inline constant <INT> = <C-int>;
- define inline constant <CHAR> = <C-character>;
- define inline constant <SHORT> = <C-short>;
- define inline constant <LONG> = <C-both-long>;
- define inline constant <PWCHAR> = <C-unicode-string>;
- define inline constant <LPWSTR> = <C-unicode-string>;
- define inline constant <LPSTR> = <C-string>;
- define inline constant <LPCSTR> = /* const */ <C-string>;
- define inline constant <PTCHAR> = <C-string>;
- define inline constant <LPTSTR> = <LPSTR>;
- define inline constant <LPCTSTR> = <LPCSTR>;
- define inline constant <ATOM> = <WORD>;
- define inline constant <HGLOBAL> = <HANDLE>;
- define inline constant <COLORREF> = <DWORD>;
- define C-pointer-type <LPCOLORREF> => <DWORD>;
- define C-subtype <WNDPROC> ( <C-function-pointer> ) end;
- define C-subtype <HIMAGELIST> ( <C-void*> ) end;
- define C-subtype <HTREEITEM> ( <C-void*> ) end;
- define constant <HKEY> = <HANDLE>;
- define C-pointer-type <PHKEY> => <HKEY>;
- // Null constants for some commonly used pointer types
- define constant $NULL-HWND :: <HWND> = null-pointer( <HWND> );
- define constant $NULL-RECT :: <LPRECT> = null-pointer( <LPRECT> );
- define constant $NULL-POINT :: <LPPOINT> = null-pointer( <LPPOINT> );
- define constant $NULL-VOID :: <C-void*> = null-pointer( <C-void*> );
- define constant $NULL-string :: <C-string> = null-pointer( <C-string> );
- define constant $NULL-HDC :: <HDC> = null-pointer(<HDC>);
- define constant $NULL-HMENU :: <HMENU> = null-pointer(<HMENU>);
- define constant $NULL-HINSTANCE :: <HINSTANCE> = null-pointer(<HINSTANCE>);
- define inline-only constant $MAX-PATH = 260;
- define generic LOWORD ( n :: <object> ) => value :: <U16>;
- define generic HIWORD ( n :: <object> ) => value :: <U16>;
- define inline method LOWORD ( n :: <integer> ) => value :: <U16>;
- logand(n,#xFFFF)
- end LOWORD;
- define inline method HIWORD ( n :: <integer> ) => value :: <U16>;
- logand( ash(n,-16), #xFFFF)
- end HIWORD;
- define inline method LOWORD ( n :: <machine-word> ) => value :: <U16>;
- as(<integer>, %logand(n, as(<machine-word>, #xFFFF)))
- end LOWORD;
- // Not inline because of Bug 2262.
- define method HIWORD ( n :: <machine-word> ) => value :: <U16>;
- as(<integer>, u%shift-right(n,16))
- end HIWORD;
- define method LOWORD ( n :: <double-integer> ) => value :: <U16>;
- LOWORD(%double-integer-low(n))
- end LOWORD;
- define method HIWORD ( n :: <double-integer> ) => value :: <U16>;
- HIWORD(%double-integer-low(n))
- end HIWORD;
- define sealed method MAKELONG ( wLow :: <ambiguous-short>,
- wHigh :: <ambiguous-short> )
- => value :: <unsigned-long>;
- let low :: <integer> = logand(wLow, #xFFFF);
- if ( wHigh > #x0FFF | wHigh < 0 )
- %logior(low, u%shift-left(as(<machine-word>, logand(wHigh, #xFFFF)), 16))
- else
- logior(low, ash(wHigh,16))
- end if
- end MAKELONG;
- define sealed method MAKELONG ( wLow :: <boolean>, wHigh :: <object> )
- => value :: <unsigned-long>;
- MAKELONG( (if(wLow) 1 else 0 end if), wHigh)
- end MAKELONG;
- // The following is a substitute for MAKEPOINT, MAKEPOINTS, and LONG2POINT.
- // Unpacks a 32-bit value into two signed 16-bit numbers
- define function LPARAM-TO-XY( lparam ) => ( x :: <S16> , y :: <S16> );
- local method extend-short( u :: <U16> ) => s :: <S16>;
- // sign-extend a 16-bit number
- if ( logand( u, #x8000 ) = 0 )
- u
- else
- logior( u, lognot(#x7FFF) );
- end if;
- end extend-short;
- values( extend-short(LOWORD(lparam)), extend-short(HIWORD(lparam)) )
- end LPARAM-TO-XY;
- define inline method LOBYTE ( n :: <integer> ) => value :: <U8>;
- logand(n,#xFF)
- end LOBYTE;
- define inline method HIBYTE ( n :: <integer> ) => value :: <U8>;
- logand(ash(n,-8), #xFF)
- end HIBYTE;
- define method LOBYTE ( n :: <machine-word> ) => value :: <U8>;
- LOBYTE(LOWORD(n))
- end LOBYTE;
- define method HIBYTE ( n :: <machine-word> ) => value :: <U8>;
- HIBYTE(LOWORD(n))
- end HIBYTE;
- define sealed method MAKEWORD ( low-byte :: <integer>, high-byte :: <integer> )
- => value :: <U16>;
- logior(logand(low-byte, #xFF), ash(logand(high-byte, #xFF),8))
- end MAKEWORD;
- define inline function MAKELANGID(p :: <U16>, s :: <U16>)
- => (value :: <integer>);
- logior( ash(s, 10), p)
- end MAKELANGID;
- define function MAKEINTRESOURCE( n :: <integer> )
- => value :: <LPTSTR>;
- make(<LPTSTR>, address: n)
- end MAKEINTRESOURCE;
- define inline function RGB(red :: <U8>, green :: <U8>, blue :: <U8> )
- => value :: <integer>;
- logior ( logior(red, ash(green,8)), ash(blue,16) )
- end RGB;
- define inline function GetRValue(rgb :: <integer>) => red :: <U8>;
- logand(#xFF,rgb)
- end;
- define inline function GetGValue(rgb :: <integer>) => green :: <U8>;
- logand(#xFF, ash(rgb,-8))
- end;
- define inline function GetBValue(rgb :: <integer>) => blue :: <U8>;
- logand(#xFF, ash(rgb,-16))
- end;
- define inline function MAKELPARAM(l, h); MAKELONG(l, h) end;
- define inline-only constant $ACTCTX-FLAG-RESOURCE-NAME-VALID = #x00000008;
- define inline-only constant $ACTCTX-FLAG-HMODULE-VALID = #x00000080;
- define inline-only constant $ANSI-CHARSET = 0;
- define inline-only constant $ANSI-FIXED-FONT = 11;
- define inline-only constant $ANSI-VAR-FONT = 12;
- define inline-only constant $BDR-RAISEDINNER = #x0004;
- define inline-only constant $BDR-RAISEDOUTER = #x0001;
- define inline-only constant $BDR-SUNKENINNER = #x0008;
- define inline-only constant $BDR-SUNKENOUTER = #x0002;
- define inline-only constant $BF-BOTTOM = #x0008;
- define inline-only constant $BF-FLAT = #x4000;
- define inline-only constant $BF-LEFT = #x0001;
- define inline-only constant $BF-RECT = logior($BF-LEFT, $BF-TOP, $BF-RIGHT, $BF-BOTTOM);
- define inline-only constant $BF-RIGHT = #x0004;
- define inline-only constant $BF-TOP = #x0002;
- define inline-only constant $BLACK-BRUSH = 4;
- define inline-only constant $BLACK-PEN = 7;
- define inline-only constant $BLACKNESS = #x00000042;
- define inline-only constant $BM-GETCHECK = #x00F0;
- define inline-only constant $BM-SETCHECK = #x00F1;
- define inline-only constant $BM-SETIMAGE = #x00F7;
- define inline-only constant $BM-SETSTYLE = #x00F4;
- define inline-only constant $BN-CLICKED = 0;
- define inline-only constant $BN-DBLCLK = $BN-DOUBLECLICKED;
- define inline-only constant $BN-DOUBLECLICKED = 5;
- define inline-only constant $BS-BITMAP = #x00000080;
- define inline-only constant $BS-CHECKBOX = #x00000002;
- define inline-only constant $BS-DEFPUSHBUTTON = #x00000001;
- define inline-only constant $BS-GROUPBOX = #x00000007;
- define inline-only constant $BS-ICON = #x00000040;
- define inline-only constant $BS-PUSHBUTTON = #x00000000;
- define inline-only constant $BS-PUSHLIKE = #x00001000;
- define inline-only constant $BS-RADIOBUTTON = #x00000004;
- define inline-only constant $BST-CHECKED = #x0001;
- define inline-only constant $CB-ADDSTRING = #x0143;
- define inline-only constant $CB-ERR = -1;
- define inline-only constant $CB-GETCURSEL = #x0147;
- define inline-only constant $CB-GETDROPPEDSTATE = #x0157;
- define inline-only constant $CB-RESETCONTENT = #x014B;
- define inline-only constant $CB-SETCURSEL = #x014E;
- define inline-only constant $CB-SHOWDROPDOWN = #x014F;
- define inline-only constant $CBN-EDITCHANGE = 5;
- define inline-only constant $CBN-SELENDOK = 9;
- define inline-only constant $CBS-AUTOHSCROLL = #x0040;
- define inline-only constant $CBS-DROPDOWN = #x0002;
- define inline-only constant $CBS-DROPDOWNLIST = #x0003;
- define inline-only constant $CC-ANYCOLOR = #x00000100;
- define inline-only constant $CC-RGBINIT = #x00000001;
- define inline-only constant $CC-SHOWHELP = #x00000008;
- define inline-only constant $CCHDEVICENAME = 32;
- define inline-only constant $CCHFORMNAME = 32;
- define inline-only constant $CF-APPLY = #x00000200;
- define inline-only constant $CF-EFFECTS = #x00000100;
- define inline-only constant $CF-FIXEDPITCHONLY = #x00004000;
- define inline-only constant $CF-FORCEFONTEXIST = #x00010000;
- define inline-only constant $CF-INITTOLOGFONTSTRUCT = #x00000040;
- define inline-only constant $CF-NOSCRIPTSEL = #x00800000;
- define inline-only constant $CF-SCREENFONTS = #x00000001;
- define inline-only constant $CF-SHOWHELP = #x00000004;
- define inline-only constant $CF-TEXT = 1;
- define inline-only constant $CLIP-DEFAULT-PRECIS = 0;
- define inline-only constant $CLR-INVALID = $FFFFFFFF;
- define inline-only constant $COLOR-3DFACE = $COLOR-BTNFACE;
- define inline-only constant $COLOR-3DHIGHLIGHT = $COLOR-BTNHIGHLIGHT;
- define inline-only constant $COLOR-3DSHADOW = $COLOR-BTNSHADOW;
- define inline-only constant $COLOR-BTNFACE = 15;
- define inline-only constant $COLOR-BTNHIGHLIGHT = 20;
- define inline-only constant $COLOR-BTNSHADOW = 16;
- define inline-only constant $COLOR-WINDOW = 5;
- define inline-only constant $COLOR-WINDOWTEXT = 8;
- define inline-only constant $CS-DBLCLKS = #x0008;
- define inline-only constant $CS-HREDRAW = #x0002;
- define inline-only constant $CS-OWNDC = #x0020;
- define inline-only constant $CS-VREDRAW = #x0001;
- define inline-only constant $CW-USEDEFAULT = as(<machine-word>, #x80000000);
- define inline-only constant $DEFAULT-CHARSET = 1;
- define inline-only constant $DEFAULT-GUI-FONT = 17;
- define inline-only constant $DEFAULT-PITCH = 0;
- define inline-only constant $DEFAULT-QUALITY = 0;
- define inline-only constant $DI-COMPAT = #x0004;
- define inline-only constant $DLGWINDOWEXTRA = 30;
- define inline-only constant $DSTINVERT = #x00550009;
- define inline-only constant $DS-SETFONT = #x40;
- define inline-only constant $EDGE-BUMP = logior($BDR-RAISEDOUTER, $BDR-SUNKENINNER);
- define inline-only constant $EDGE-ETCHED = logior($BDR-SUNKENOUTER, $BDR-RAISEDINNER);
- define inline-only constant $EDGE-RAISED = logior($BDR-RAISEDOUTER, $BDR-RAISEDINNER);
- define inline-only constant $EDGE-SUNKEN = logior($BDR-SUNKENOUTER, $BDR-SUNKENINNER);
- define inline-only constant $EM-GETSEL = #x00B0;
- define inline-only constant $EM-SCROLLCARET = #x00B7;
- define inline-only constant $EM-SETSEL = #x00B1;
- define inline-only constant $EN-CHANGE = #x0300;
- define inline-only constant $EN-KILLFOCUS = #x0200;
- define inline-only constant $ERROR-SUCCESS = 0;
- define inline-only constant $ES-AUTOHSCROLL = #x0080;
- define inline-only constant $ES-MULTILINE = #x0004;
- define inline-only constant $ES-PASSWORD = #x0020;
- define inline-only constant $ES-READONLY = #x0800;
- define inline-only constant $ES-WANTRETURN = #x1000;
- define inline-only constant $FF-DECORATIVE = ash(5,4);
- define inline-only constant $FF-DONTCARE = ash(0,4);
- define inline-only constant $FF-MODERN = ash(3,4);
- define inline-only constant $FF-ROMAN = ash(1,4);
- define inline-only constant $FF-SCRIPT = ash(4,4);
- define inline-only constant $FF-SWISS = ash(2,4);
- define inline-only constant $FIXED-PITCH = 1;
- define inline-only constant $FORMAT-MESSAGE-FROM-SYSTEM = #x00001000;
- define inline-only constant $FORMAT-MESSAGE-IGNORE-INSERTS = #x00000200;
- define inline-only constant $GCW-ATOM = -32;
- define inline-only constant $GMEM-DDESHARE = #x2000;
- define inline-only constant $GMEM-MOVEABLE = #x0002;
- define inline-only constant $GW-CHILD = 5;
- define inline-only constant $GW-HWNDNEXT = 2;
- define inline-only constant $GWL-STYLE = -16;
- define inline-only constant $GWL-WNDPROC = -4;
- define inline-only constant $HELP-COMMAND = #x0102;
- define inline-only constant $HELP-CONTENTS = #x0003;
- define inline-only constant $HELP-CONTEXT = #x0001;
- define inline-only constant $HELP-CONTEXTPOPUP = #x0008;
- define inline-only constant $HELP-FINDER = #x000b;
- define inline-only constant $HELP-HELPONHELP = #x0004;
- define inline-only constant $HELP-INDEX = #x0003;
- define inline-only constant $HELP-KEY = #x0101;
- define inline-only constant $HELP-QUIT = #x0002;
- define inline-only constant $HELP-SETWINPOS = #x0203;
- define inline-only constant $HH-ALINK-LOOKUP = #x0013;
- define inline-only constant $HH-DISPLAY-TOPIC = #x0000;
- define inline-only constant $HH-HELP-CONTEXT = #x000F;
- define inline-only constant $HKEY-CLASSES-ROOT = as(<HKEY>,as(<machine-word>, #x80000000));
- define inline-only constant $HORZSIZE = 4;
- define inline-only constant $HWND-BOTTOM = make(<HWND>, address: 1);
- define inline-only constant $HWND-TOP = make(<HWND>, address: 0);
- define inline-only constant $ICON-BIG = 1;
- define inline-only constant $ICON-SMALL = 0;
- define inline-only constant $IDC-APPSTARTING = MAKEINTRESOURCE(32650);
- define inline-only constant $IDC-ARROW = MAKEINTRESOURCE(32512);
- define inline-only constant $IDC-CROSS = MAKEINTRESOURCE(32515);
- define inline-only constant $IDC-IBEAM = MAKEINTRESOURCE(32513);
- define inline-only constant $IDC-SIZENESW = MAKEINTRESOURCE(32643);
- define inline-only constant $IDC-SIZENS = MAKEINTRESOURCE(32645);
- define inline-only constant $IDC-SIZENWSE = MAKEINTRESOURCE(32642);
- define inline-only constant $IDC-SIZEWE = MAKEINTRESOURCE(32644);
- define inline-only constant $IDC-WAIT = MAKEINTRESOURCE(32514);
- define inline-only constant $IDCANCEL = 2;
- define inline-only constant $IDHELP = 9;
- define inline-only constant $IDI-APPLICATION = MAKEINTRESOURCE(32512);
- define inline-only constant $IDNO = 7;
- define inline-only constant $IDOK = 1;
- define inline-only constant $IDYES = 6;
- define inline-only constant $ILC-COLOR8 = #x0008;
- define inline-only constant $ILC-MASK = #x0001;
- define inline-only constant $IMAGE-BITMAP = 0;
- define inline-only constant $IMAGE-ICON = 1;
- define inline-only constant $KEY-ENUMERATE-SUB-KEYS = #x0008;
- define inline-only constant $KEY-QUERY-VALUE = #x0001;
- define inline-only constant $LANG-NEUTRAL = #x00;
- define inline-only constant $LANG-USER-DEFAULT = MAKELANGID($LANG-NEUTRAL,$SUBLANG-DEFAULT);
- define inline-only constant $LB-ADDSTRING = #x0180;
- define inline-only constant $LB-ERR = -1;
- define inline-only constant $LB-GETCURSEL = #x0188;
- define inline-only constant $LB-GETSELITEMS = #x0191;
- define inline-only constant $LB-RESETCONTENT = #x0184;
- define inline-only constant $LB-SETCURSEL = #x0186;
- define inline-only constant $LB-SETSEL = #x0185;
- define inline-only constant $LBN-DBLCLK = 2;
- define inline-only constant $LBN-SELCANCEL = 3;
- define inline-only constant $LBN-SELCHANGE = 1;
- define inline-only constant $LBS-DISABLENOSCROLL = #x1000;
- define inline-only constant $LBS-EXTENDEDSEL = #x0800;
- define inline-only constant $LBS-NOTIFY = #x0001;
- define inline-only constant $LF-FACESIZE = 32;
- define inline-only constant $LOGPIXELSX = 88;
- define inline-only constant $LOGPIXELSY = 90;
- define inline-only constant $LR-DEFAULTCOLOR = #x0000;
- define inline-only constant $LVCF-FMT = #x0001;
- define inline-only constant $LVCF-SUBITEM = #x0008;
- define inline-only constant $LVCF-TEXT = #x0004;
- define inline-only constant $LVCF-WIDTH = #x0002;
- define inline-only constant $LVCFMT-CENTER = #x0002;
- define inline-only constant $LVCFMT-LEFT = #x0000;
- define inline-only constant $LVCFMT-RIGHT = #x0001;
- define inline-only constant $LVHT-ONITEM = logior($LVHT-ONITEMICON, $LVHT-ONITEMLABEL, $LVHT-ONITEMSTATEICON);
- define inline-only constant $LVHT-ONITEMICON = #x0002;
- define inline-only constant $LVHT-ONITEMLABEL = #x0004;
- define inline-only constant $LVHT-ONITEMSTATEICON = #x0008;
- define inline-only constant $LVIF-IMAGE = #x0002;
- define inline-only constant $LVIF-STATE = #x0008;
- define inline-only constant $LVIF-TEXT = #x0001;
- define inline-only constant $LVIS-SELECTED = #x0002;
- define inline-only constant $LVM-DELETEALLITEMS = #x1009;
- define inline-only constant $LVM-DELETECOLUMN = #x101C;
- define inline-only constant $LVM-DELETEITEM = #x1008;
- define inline-only constant $LVM-ENSUREVISIBLE = #x1013;
- define inline-only constant $LVM-HITTEST = #x1012;
- define inline-only constant $LVM-INSERTCOLUMN = #x101B;
- define inline-only constant $LVM-INSERTITEM = #x1007;
- define inline-only constant $LVM-SETCOLUMN = #x101A;
- define inline-only constant $LVM-SETCOLUMNWIDTH = #x101E;
- define inline-only constant $LVM-SETIMAGELIST = #x1003;
- define inline-only constant $LVM-SETITEM = #x1006;
- define inline-only constant $LVM-SETITEMCOUNT = #x102F;
- define inline-only constant $LVM-SETEXTENDEDLISTVIEWSTYLE = #x1036;
- define inline-only constant $LVN-COLUMNCLICK = -108;
- define inline-only constant $LVN-ITEMCHANGED = -101;
- define inline-only constant $LVN-KEYDOWN = -155;
- define inline-only constant $LVS-ICON = #x0000;
- define inline-only constant $LVS-LIST = #x0003;
- define inline-only constant $LVS-NOCOLUMNHEADER = #x4000;
- define inline-only constant $LVS-REPORT = #x0001;
- define inline-only constant $LVS-EX-FULLROWSELECT = #x00000020;
- define inline-only constant $LVS-SHOWSELALWAYS = #x0008;
- define inline-only constant $LVS-SINGLESEL = #x0004;
- define inline-only constant $LVS-SMALLICON = #x0002;
- define inline-only constant $LVS-TYPEMASK = #x0003;
- define inline-only constant $LVSCW-AUTOSIZE = -1;
- define inline-only constant $LVSIL-NORMAL = 0;
- define inline-only constant $LVSIL-SMALL = 1;
- define inline-only constant $MB-APPLMODAL = #x00000000;
- define inline-only constant $MB-ICONASTERISK = #x00000040;
- define inline-only constant $MB-ICONERROR = $MB-ICONHAND;
- define inline-only constant $MB-ICONEXCLAMATION = #x00000030;
- define inline-only constant $MB-ICONHAND = #x00000010;
- define inline-only constant $MB-ICONINFORMATION = $MB-ICONASTERISK;
- define inline-only constant $MB-ICONQUESTION = #x00000020;
- define inline-only constant $MB-ICONSTOP = $MB-ICONHAND;
- define inline-only constant $MB-ICONWARNING = $MB-ICONEXCLAMATION;
- define inline-only constant $MB-OK = #x00000000;
- define inline-only constant $MB-OKCANCEL = #x00000001;
- define inline-only constant $MB-SETFOREGROUND = #x00010000;
- define inline-only constant $MB-SYSTEMMODAL = #x00001000;
- define inline-only constant $MB-TASKMODAL = #x00002000;
- define inline-only constant $MB-YESNO = #x00000004;
- define inline-only constant $MB-YESNOCANCEL = #x00000003;
- define inline-only constant $MERGEPAINT = #x00BB0226;
- define inline-only constant $MF-BYCOMMAND = #x00000000;
- define inline-only constant $MF-BYPOSITION = #x00000400;
- define inline-only constant $MF-CHECKED = #x00000008;
- define inline-only constant $MF-DEFAULT = #x00001000;
- define inline-only constant $MF-ENABLED = #x00000000;
- define inline-only constant $MF-GRAYED = #x00000001;
- define inline-only constant $MF-POPUP = #x00000010;
- define inline-only constant $MF-SEPARATOR = #x00000800;
- define inline-only constant $MF-STRING = #x00000000;
- define inline-only constant $MF-UNCHECKED = #x00000000;
- define inline-only constant $MFS-CHECKED = $MF-CHECKED;
- define inline-only constant $MFS-DEFAULT = $MF-DEFAULT;
- define inline-only constant $MFS-DISABLED = $MFS-GRAYED;
- define inline-only constant $MFS-ENABLED = $MF-ENABLED;
- define inline-only constant $MFS-GRAYED = #x00000003;
- define inline-only constant $MFT-RADIOCHECK = #x00000200;
- define inline-only constant $MFT-STRING = $MF-STRING;
- define inline-only constant $MIIM-DATA = #x00000020;
- define inline-only constant $MIIM-ID = #x00000002;
- define inline-only constant $MIIM-STATE = #x00000001;
- define inline-only constant $MIIM-TYPE = #x00000010;
- define inline-only constant $MK-CONTROL = #x0008;
- define inline-only constant $MK-LBUTTON = #x0001;
- define inline-only constant $MK-MBUTTON = #x0010;
- define inline-only constant $MK-RBUTTON = #x0002;
- define inline-only constant $MK-SHIFT = #x0004;
- define inline-only constant $NM-DBLCLK = -3;
- define inline-only constant $NM-RCLICK = -5;
- define inline-only constant $NOTSRCCOPY = #x00330008;
- define inline-only constant $NOTSRCERASE = #x001100A6;
- define inline-only constant $NULL-BRUSH = 5;
- define inline-only constant $NULL-PEN = 8;
- define inline-only constant $OEM-CHARSET = 255;
- define inline-only constant $OFN-ALLOWMULTISELECT = #x00000200;
- define inline-only constant $OFN-EXPLORER = #x00080000;
- define inline-only constant $OFN-FILEMUSTEXIST = #x00001000;
- define inline-only constant $OFN-HIDEREADONLY = #x00000004;
- define inline-only constant $OFN-OVERWRITEPROMPT = #x00000002;
- define inline-only constant $OUT-TT-PRECIS = 4;
- define inline-only constant $PBM-SETPOS = #x402;
- define inline-only constant $PBM-SETRANGE = #x401;
- define inline-only constant $PD-ALLPAGES = #x00000000;
- define inline-only constant $PD-COLLATE = #x00000010;
- define inline-only constant $PD-PRINTSETUP = #x00000040;
- define inline-only constant $PD-PRINTTOFILE = #x00000020;
- define inline-only constant $PD-SHOWHELP = #x00000800;
- define inline-only constant $PD-USEDEVMODECOPIES = #x00040000;
- define inline-only constant $PS-DASH = 1;
- define inline-only constant $PS-DASHDOT = 3;
- define inline-only constant $PS-DASHDOTDOT = 4;
- define inline-only constant $PS-DOT = 2;
- define inline-only constant $PS-SOLID = 0;
- define inline-only constant $R2-BLACK = 1;
- define inline-only constant $R2-COPYPEN = 13;
- define inline-only constant $R2-MASKNOTPEN = 3;
- define inline-only constant $R2-MASKPEN = 9;
- define inline-only constant $R2-MASKPENNOT = 5;
- define inline-only constant $R2-MERGENOTPEN = 12;
- define inline-only constant $R2-MERGEPEN = 15;
- define inline-only constant $R2-MERGEPENNOT = 14;
- define inline-only constant $R2-NOP = 11;
- define inline-only constant $R2-NOT = 6;
- define inline-only constant $R2-NOTCOPYPEN = 4;
- define inline-only constant $R2-NOTMASKPEN = 8;
- define inline-only constant $R2-NOTMERGEPEN = 2;
- define inline-only constant $R2-NOTXORPEN = 10;
- define inline-only constant $R2-WHITE = 16;
- define inline-only constant $R2-XORPEN = 7;
- define inline-only constant $RGN-AND = 1;
- define inline-only constant $RGN-COPY = 5;
- define inline-only constant $RGN-DIFF = 4;
- define inline-only constant $RGN-OR = 2;
- define inline-only constant $RGN-XOR = 3;
- define inline-only constant $RT-BITMAP = MAKEINTRESOURCE(2);
- define inline-only constant $RT-CURSOR = MAKEINTRESOURCE(1);
- define inline-only constant $RT-DIALOG = MAKEINTRESOURCE(5);
- define inline-only constant $RT-ICON = MAKEINTRESOURCE(3);
- define inline-only constant $SB-BOTTOM = 7;
- define inline-only constant $SB-CTL = 2;
- define inline-only constant $SB-ENDSCROLL = 8;
- define inline-only constant $SB-LINEDOWN = 1;
- define inline-only constant $SB-LINEUP = 0;
- define inline-only constant $SB-PAGEDOWN = 3;
- define inline-only constant $SB-PAGEUP = 2;
- define inline-only constant $SB-SETMINHEIGHT = #x408;
- define inline-only constant $SB-SETPARTS = #x404;
- define inline-only constant $SB-SETTEXT = #x401;
- define inline-only constant $SB-THUMBPOSITION = 4;
- define inline-only constant $SB-THUMBTRACK = 5;
- define inline-only constant $SB-TOP = 6;
- define inline-only constant $SBARS-SIZEGRIP = #x0100;
- define inline-only constant $SBS-HORZ = #x0000;
- define inline-only constant $SBS-VERT = #x0001;
- define inline-only constant $SBT-NOBORDERS = #x0100;
- define inline-only constant $SIF-ALL = logior($SIF-RANGE, $SIF-PAGE, $SIF-POS, $SIF-TRACKPOS);
- define inline-only constant $SIF-PAGE = #x0002;
- define inline-only constant $SIF-POS = #x0004;
- define inline-only constant $SIF-RANGE = #x0001;
- define inline-only constant $SIF-TRACKPOS = #x0010;
- define inline-only constant $SIZE-MAXIMIZED = 2;
- define inline-only constant $SIZE-MINIMIZED = 1;
- define inline-only constant $SIZE-RESTORED = 0;
- define inline-only constant $SM-CMOUSEBUTTONS = 43;
- define inline-only constant $SM-CXFULLSCREEN = 16;
- define inline-only constant $SM-CXHSCROLL = 21;
- define inline-only constant $SM-CXICON = 11;
- define inline-only constant $SM-CXSCREEN = 0;
- define inline-only constant $SM-CXSMICON = 49;
- define inline-only constant $SM-CXVSCROLL = 2;
- define inline-only constant $SM-CYFULLSCREEN = 17;
- define inline-only constant $SM-CYHSCROLL = 3;
- define inline-only constant $SM-CYICON = 12;
- define inline-only constant $SM-CYMENU = 15;
- define inline-only constant $SM-CYSCREEN = 1;
- define inline-only constant $SM-CYSMICON = 50;
- define inline-only constant $SM-CYVSCROLL = 20;
- define inline-only constant $SRCAND = #x008800C6;
- define inline-only constant $SRCCOPY = #x00CC0020;
- define inline-only constant $SRCERASE = #x00440328;
- define inline-only constant $SRCINVERT = #x00660046;
- define inline-only constant $SRCPAINT = #x00EE0086;
- define inline-only constant $SS-BITMAP = #x0000000E;
- define inline-only constant $SS-ICON = #x00000003;
- define inline-only constant $SS-LEFTNOWORDWRAP = #x0000000C;
- define inline-only constant $STARTF-USESHOWWINDOW = #x00000001;
- define inline-only constant $STM-SETIMAGE = #x0172;
- define inline-only constant $SUBLANG-DEFAULT = #x01;
- define inline-only constant $SW-HIDE = 0;
- define inline-only constant $SW-MAXIMIZE = 3;
- define inline-only constant $SW-MINIMIZE = 6;
- define inline-only constant $SW-RESTORE = 9;
- define inline-only constant $SW-SHOW = 5;
- define inline-only constant $SW-SHOWNORMAL = 1;
- define inline-only constant $SWP-NOACTIVATE = #x0010;
- define inline-only constant $SWP-NOMOVE = #x0002;
- define inline-only constant $SWP-NOSIZE = #x0001;
- define inline-only constant $SWP-NOZORDER = #x0004;
- define inline-only constant $SYMBOL-CHARSET = 2;
- define inline-only constant $SYSTEM-FONT = 13;
- define inline-only constant $TA-BASELINE = 24;
- define inline-only constant $TA-BOTTOM = 8;
- define inline-only constant $TA-CENTER = 6;
- define inline-only constant $TA-LEFT = 0;
- define inline-only constant $TA-RIGHT = 2;
- define inline-only constant $TA-TOP = 0;
- define inline-only constant $TB-BOTTOM = 7;
- define inline-only constant $TB-LINEDOWN = 1;
- define inline-only constant $TB-LINEUP = 0;
- define inline-only constant $TB-PAGEDOWN = 3;
- define inline-only constant $TB-PAGEUP = 2;
- define inline-only constant $TB-THUMBPOSITION = 4;
- define inline-only constant $TB-THUMBTRACK = 5;
- define inline-only constant $TB-TOP = 6;
- define inline-only constant $TBM-SETPOS = #x405;
- define inline-only constant $TBM-SETRANGE = #x406;
- define inline-only constant $TBM-SETTICFREQ = #x414;
- define inline-only constant $TBS-AUTOTICKS = #x0001;
- define inline-only constant $TBS-HORZ = #x0000;
- define inline-only constant $TBS-VERT = #x0002;
- define inline-only constant $TCIF-TEXT = #x0001;
- define inline-only constant $TCM-ADJUSTRECT = #x1328;
- define inline-only constant $TCM-DELETEALLITEMS = #x1309;
- define inline-only constant $TCM-GETCURSEL = #x130B;
- define inline-only constant $TCM-GETITEMRECT = #x130A;
- define inline-only constant $TCM-INSERTITEM = #x1307;
- define inline-only constant $TCM-SETCURSEL = #x130C;
- define inline-only constant $TCN-KEYDOWN = -550;
- define inline-only constant $TCN-SELCHANGE = -551;
- define inline-only constant $TPM-BOTTOMALIGN = #x0020;
- define inline-only constant $TPM-CENTERALIGN = #x0004;
- define inline-only constant $TPM-LEFTALIGN = #x0000;
- define inline-only constant $TPM-NONOTIFY = #x0080;
- define inline-only constant $TPM-RETURNCMD = #x0100;
- define inline-only constant $TPM-RIGHTALIGN = #x0008;
- define inline-only constant $TPM-RIGHTBUTTON = #x0002;
- define inline-only constant $TPM-TOPALIGN = #x0000;
- define inline-only constant $TPM-VCENTERALIGN = #x0010;
- define inline-only constant $TRANSPARENT = 1;
- define inline-only constant $TTF-IDISHWND = #x0001;
- define inline-only constant $TTF-SUBCLASS = #x0010;
- define inline-only constant $TTM-ACTIVATE = #x401;
- define inline-only constant $TTM-ADDTOOL = #x404;
- define inline-only constant $TTM-DELTOOL = #x405;
- define inline-only constant $TTN-GETDISPINFO = -520;
- define inline-only constant $TTN-NEEDTEXT = $TTN-GETDISPINFO;
- define inline-only constant $TTS-ALWAYSTIP = #x01;
- define inline-only constant $TTS-NOPREFIX = #x02;
- define inline-only constant $TVE-COLLAPSE = #x0001;
- define inline-only constant $TVE-COLLAPSERESET = #x8000;
- define inline-only constant $TVE-EXPAND = #x0002;
- define inline-only constant $TVE-TOGGLE = #x0003;
- define inline-only constant $TVGN-CARET = #x0009;
- define inline-only constant $TVHT-ONITEM = logior($TVHT-ONITEMICON, $TVHT-ONITEMLABEL, $TVHT-ONITEMSTATEICON);
- define inline-only constant $TVHT-ONITEMBUTTON = #x0010;
- define inline-only constant $TVHT-ONITEMICON = #x0002;
- define inline-only constant $TVHT-ONITEMLABEL = #x0004;
- define inline-only constant $TVHT-ONITEMSTATEICON = #x0040;
- define inline-only constant $TVI-LAST = make(<HTREEITEM>, address: as(<machine-word>, #xFFFF0002));
- define inline-only constant $TVI-ROOT = make(<HTREEITEM>, address: as(<machine-word>, #xFFFF0000));
- define inline-only constant $TVIF-CHILDREN = #x0040;
- define inline-only constant $TVIF-IMAGE = #x0002;
- define inline-only constant $TVIF-SELECTEDIMAGE = #x0020;
- define inline-only constant $TVIF-STATE = #x0008;
- define inline-only constant $TVIF-TEXT = #x0001;
- define inline-only constant $TVIS-SELECTED = #x0002;
- define inline-only constant $TVM-DELETEITEM = #x1101;
- define inline-only constant $TVM-ENSUREVISIBLE = #x1114;
- define inline-only constant $TVM-EXPAND = #x1102;
- define inline-only constant $TVM-HITTEST = #x1111;
- define inline-only constant $TVM-INSERTITEM = #x1100;
- define inline-only constant $TVM-SELECTITEM = #x110B;
- define inline-only constant $TVM-SETIMAGELIST = #x1109;
- define inline-only constant $TVM-SETITEM = #x110D;
- define inline-only constant $TVN-GETDISPINFO = -403;
- define inline-only constant $TVN-ITEMEXPANDINGA = -405;
- define inline-only constant $TVN-ITEMEXPANDINGW = -454;
- define inline-only constant $TVN-KEYDOWN = -412;
- define inline-only constant $TVN-SELCHANGEDA = -402;
- define inline-only constant $TVN-SELCHANGEDW = -451;
- define inline-only constant $TVS-HASBUTTONS = #x0001;
- define inline-only constant $TVS-HASLINES = #x0002;
- define inline-only constant $TVS-LINESATROOT = #x0004;
- define inline-only constant $TVS-SHOWSELALWAYS = #x0020;
- define inline-only constant $TVSIL-NORMAL = 0;
- define inline-only constant $UDM-GETPOS = #x468;
- define inline-only constant $UDM-SETPOS = #x467;
- define inline-only constant $UDM-SETRANGE = #x465;
- define inline-only constant $UDS-ARROWKEYS = #x0020;
- define inline-only constant $UDS-AUTOBUDDY = #x0010;
- define inline-only constant $UDS-HORZ = #x0040;
- define inline-only constant $UDS-WRAP = #x0001;
- define inline-only constant $VARIABLE-PITCH = 2;
- define inline-only constant $VER-PLATFORM-WIN32-NT = 2;
- define inline-only constant $VER-PLATFORM-WIN32-WINDOWS = 1;
- define inline-only constant $VER-PLATFORM-WIN32s = 0;
- define inline-only constant $VERTSIZE = 6;
- define inline-only constant $VK-ADD = #x6B;
- define inline-only constant $VK-APPS = #x5D;
- define inline-only constant $VK-BACK = #x08;
- define inline-only constant $VK-CANCEL = #x03;
- define inline-only constant $VK-CAPITAL = #x14;
- define inline-only constant $VK-CLEAR = #x0C;
- define inline-only constant $VK-CONTROL = #x11;
- define inline-only constant $VK-DECIMAL = #x6E;
- define inline-only constant $VK-DELETE = #x2E;
- define inline-only constant $VK-DIVIDE = #x6F;
- define inline-only constant $VK-DOWN = #x28;
- define inline-only constant $VK-END = #x23;
- define inline-only constant $VK-ESCAPE = #x1B;
- define inline-only constant $VK-EXECUTE = #x2B;
- define inline-only constant $VK-F1 = #x70;
- define inline-only constant $VK-F10 = #x79;
- define inline-only constant $VK-F11 = #x7A;
- define inline-only constant $VK-F12 = #x7B;
- define inline-only constant $VK-F13 = #x7C;
- define inline-only constant $VK-F14 = #x7D;
- define inline-only constant $VK-F15 = #x7E;
- define inline-only constant $VK-F16 = #x7F;
- define inline-only constant $VK-F17 = #x80;
- define inline-only constant $VK-F18 = #x81;
- define inline-only constant $VK-F19 = #x82;
- define inline-only constant $VK-F2 = #x71;
- define inline-only constant $VK-F20 = #x83;
- define inline-only constant $VK-F21 = #x84;
- define inline-only constant $VK-F22 = #x85;
- define inline-only constant $VK-F23 = #x86;
- define inline-only constant $VK-F24 = #x87;
- define inline-only constant $VK-F3 = #x72;
- define inline-only constant $VK-F4 = #x73;
- define inline-only constant $VK-F5 = #x74;
- define inline-only constant $VK-F6 = #x75;
- define inline-only constant $VK-F7 = #x76;
- define inline-only constant $VK-F8 = #x77;
- define inline-only constant $VK-F9 = #x78;
- define inline-only constant $VK-HELP = #x2F;
- define inline-only constant $VK-HOME = #x24;
- define inline-only constant $VK-INSERT = #x2D;
- define inline-only constant $VK-LCONTROL = #xA2;
- define inline-only constant $VK-LEFT = #x25;
- define inline-only constant $VK-LWIN = #x5B;
- define inline-only constant $VK-MENU = #x12;
- define inline-only constant $VK-MULTIPLY = #x6A;
- define inline-only constant $VK-NEXT = #x22;
- define inline-only constant $VK-NUMLOCK = #x90;
- define inline-only constant $VK-NUMPAD0 = #x60;
- define inline-only constant $VK-NUMPAD1 = #x61;
- define inline-only constant $VK-NUMPAD2 = #x62;
- define inline-only constant $VK-NUMPAD3 = #x63;
- define inline-only constant $VK-NUMPAD4 = #x64;
- define inline-only constant $VK-NUMPAD5 = #x65;
- define inline-only constant $VK-NUMPAD6 = #x66;
- define inline-only constant $VK-NUMPAD7 = #x67;
- define inline-only constant $VK-NUMPAD8 = #x68;
- define inline-only constant $VK-NUMPAD9 = #x69;
- define inline-only constant $VK-PAUSE = #x13;
- define inline-only constant $VK-PRINT = #x2A;
- define inline-only constant $VK-PRIOR = #x21;
- define inline-only constant $VK-RETURN = #x0D;
- define inline-only constant $VK-RIGHT = #x27;
- define inline-only constant $VK-RMENU = #xA5;
- define inline-only constant $VK-RWIN = #x5C;
- define inline-only constant $VK-SCROLL = #x91;
- define inline-only constant $VK-SELECT = #x29;
- define inline-only constant $VK-SEPARATOR = #x6C;
- define inline-only constant $VK-SHIFT = #x10;
- define inline-only constant $VK-SNAPSHOT = #x2C;
- define inline-only constant $VK-SPACE = #x20;
- define inline-only constant $VK-SUBTRACT = #x6D;
- define inline-only constant $VK-TAB = #x09;
- define inline-only constant $VK-UP = #x26;
- define inline-only constant $WA-INACTIVE = 0;
- define inline-only constant $WHITE-BRUSH = 0;
- define inline-only constant $WHITE-PEN = 6;
- define inline-only constant $WHITENESS = #x00FF0062;
- define inline-only constant $WM-ACTIVATE = #x0006;
- define inline-only constant $WM-CHAR = #x0102;
- define inline-only constant $WM-CLOSE = #x0010;
- define inline-only constant $WM-COMMAND = #x0111;
- define inline-only constant $WM-DESTROY = #x0002;
- define inline-only constant $WM-ENABLE = #x000A;
- define inline-only constant $WM-ERASEBKGND = #x0014;
- define inline-only constant $WM-GETMINMAXINFO = #x0024;
- define inline-only constant $WM-GETTEXTLENGTH = #x000E;
- define inline-only constant $WM-HOTKEY = #x0312;
- define inline-only constant $WM-HSCROLL = #x0114;
- define inline-only constant $WM-INITMENUPOPUP = #x0117;
- define inline-only constant $WM-KEYDOWN = #x0100;
- define inline-only constant $WM-KEYUP = #x0101;
- define inline-only constant $WM-KILLFOCUS = #x0008;
- define inline-only constant $WM-LBUTTONDBLCLK = #x0203;
- define inline-only constant $WM-LBUTTONDOWN = #x0201;
- define inline-only constant $WM-LBUTTONUP = #x0202;
- define inline-only constant $WM-MBUTTONDBLCLK = #x0209;
- define inline-only constant $WM-MBUTTONDOWN = #x0207;
- define inline-only constant $WM-MBUTTONUP = #x0208;
- define inline-only constant $WM-MENUSELECT = #x011F;
- define inline-only constant $WM-MOUSEMOVE = #x0200;
- define inline-only constant $WM-MOVE = #x0003;
- define inline-only constant $WM-NOTIFY = #x004E;
- define inline-only constant $WM-NULL = #x0000;
- define inline-only constant $WM-PAINT = #x000F;
- define inline-only constant $WM-RBUTTONDBLCLK = #x0206;
- define inline-only constant $WM-RBUTTONDOWN = #x0204;
- define inline-only constant $WM-RBUTTONUP = #x0205;
- define inline-only constant $WM-SETCURSOR = #x0020;
- define inline-only constant $WM-MOUSEWHEEL = #x020A;
- define inline-only constant $WM-SETFOCUS = #x0007;
- define inline-only constant $WM-SETFONT = #x0030;
- define inline-only constant $WM-SETICON = #x0080;
- define inline-only constant $WM-SETREDRAW = #x000B;
- define inline-only constant $WM-SIZE = #x0005;
- define inline-only constant $WM-SYSCHAR = #x0106;
- define inline-only constant $WM-SYSKEYDOWN = #x0104;
- define inline-only constant $WM-SYSKEYUP = #x0105;
- define inline-only constant $WM-USER = #x0400;
- define inline-only constant $WM-VSCROLL = #x0115;
- define inline-only constant $WS-CAPTION = #x00C00000;
- define inline-only constant $WS-CHILD = as(<machine-word>, #x40000000);
- define inline-only constant $WS-CLIPSIBLINGS = #x04000000;
- define inline-only constant $WS-DISABLED = #x08000000;
- define inline-only constant $WS-EX-CLIENTEDGE = #x00000200;
- define inline-only constant $WS-EX-CONTROLPARENT = #x00010000;
- define inline-only constant $WS-EX-DLGMODALFRAME = #x00000001;
- define inline-only constant $WS-EX-NOPARENTNOTIFY = #x00000004;
- define inline-only constant $WS-EX-TOPMOST = #x00000008;
- define inline-only constant $WS-GROUP = #x00020000;
- define inline-only constant $WS-HSCROLL = #x00100000;
- define inline-only constant $WS-MAXIMIZE = #x01000000;
- define inline-only constant $WS-MAXIMIZEBOX = #x00010000;
- define inline-only constant $WS-MINIMIZE = as(<machine-word>, #x20000000);
- define inline-only constant $WS-ICONIC = $WS-MINIMIZE;
- define inline-only constant $WS-MINIMIZEBOX = #x00020000;
- define inline-only constant $WS-OVERLAPPED = #x00000000;
- define inline-only constant $WS-OVERLAPPEDWINDOW = logior($WS-OVERLAPPED, $WS-CAPTION, $WS-SYSMENU, $WS-THICKFRAME, $WS-MINIMIZEBOX, $WS-MAXIMIZEBOX);
- define inline-only constant $WS-SIZEBOX = $WS-THICKFRAME;
- define inline-only constant $WS-SYSMENU = #x00080000;
- define inline-only constant $WS-TABSTOP = #x00010000;
- define inline-only constant $WS-THICKFRAME = #x00040000;
- define inline-only constant $WS-VSCROLL = #x00200000;
- define constant $STATUSCLASSNAME = "msctls_statusbar32";
- define constant $TRACKBAR-CLASS = "msctls_trackbar32";
- define constant $PROGRESS-CLASS = "msctls_progress32";
- define constant $UPDOWN-CLASS = "msctls_updown32";
- define constant $WC-LISTVIEW = "SysListView32";
- define constant $WC-TABCONTROL = "SysTabControl32";
- define constant $WC-TREEVIEW = "SysTreeView32";
- define constant $TOOLTIPS-CLASS = "tooltips_class32";