Listing: 1 (* Release 3.10 *) 2 (*-------------------------------------------------------------------------* 3 * * 4 * WINDOWS.DEF - Modula-2 Windows 3.0 API * 5 * * 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. * 7 * All Rights Reserved * 8 * * 9 *--------------------------------------------------------------------------*) 10 11 (*# module(implementation=>off, init_code => off) *) 12 (*# call(result_optional=>on,opt_var_arg=>off,o_a_copy=>off,o_a_size=>off) *) 13 14 DEFINITION MODULE Windows; 15 (*# save *) (* inline procedures at end use standard model-dependent settings *) 16 17 (*# call(near_call=>off, reg_param=>(), 18 reg_saved=>(ds,si,di,st1,st2), 19 seg_name=>Windows, ds_eq_ss=>off) *) 20 (*# data(near_ptr=>off) *) 21 (*# name(prefix=>windows) *) 22 23 CONST 24 NULL = 0; 25 True = 1; 26 False = 0; 27 28 TYPE 29 BOOL = INTEGER; 30 31 LPSTR = POINTER TO ARRAY[0..MAX(CARDINAL)-1] OF CHAR; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 LPBYTE = POINTER TO SHORTCARD; ***** ^ not supported yet 33 LPINT = POINTER TO INTEGER; ***** ^ not supported yet 34 LPWORD = POINTER TO CARDINAL; ***** ^ not supported yet 35 LPLONG = POINTER TO LONGINT; ***** ^ not supported yet 36 LPDWORD = POINTER TO LONGCARD; ***** ^ undeclared identifier 37 LPVOID = ADDRESS; ***** ^ undeclared identifier 38 HANDLE = CARDINAL; 39 HWND = CARDINAL; 40 LPHANDLE = POINTER TO CARDINAL; ***** ^ not supported yet 41 GLOBALHANDLE = CARDINAL; 42 LOCALHANDLE = CARDINAL; 43 FARPROC = PROCEDURE () : INTEGER; ***** ^ not supported yet ***** ^ not supported yet 44 45 HSTR = HANDLE; 46 HICON = HANDLE; 47 HDC = HANDLE; 48 HMENU = HANDLE; 49 HPEN = HANDLE; 50 HFONT = HANDLE; 51 HBRUSH = HANDLE; 52 HBITMAP = HANDLE; 53 HCURSOR = HANDLE; 54 HRGN = HANDLE; 55 HPALETTE = HANDLE; 56 COLORREF = LONGCARD; ***** ^ undeclared identifier 57 58 RECT = RECORD 59 left : INTEGER; 60 top : INTEGER; 61 right : INTEGER; 62 bottom : INTEGER; 63 END; ***** ^ not supported yet 64 LPRECT = POINTER TO RECT; ***** ^ not supported yet 65 66 POINT = RECORD 67 x : INTEGER; 68 y : INTEGER; 69 END; ***** ^ not supported yet 70 LPPOINT = POINTER TO POINT; ***** ^ not supported yet 71 72 TYPE 73 MAKEINTRESOURCE = LPSTR; 74 MAKEINTATOM = LPSTR; 75 76 PROCEDURE EntryPoint(); (* This is the entry point for a *) 77 (* windows main module *) 78 PROCEDURE GetVersion() : LONGCARD; ***** ^ undeclared identifier 79 PROCEDURE GetNumTasks() : CARDINAL; 80 PROCEDURE GetCodeHandle(_:FARPROC) : HANDLE; 81 PROCEDURE GetCodeInfo(lpProc : FARPROC; lpSegInfo : ADDRESS); ***** ^ undeclared identifier 82 PROCEDURE GetModuleHandle(_:ARRAY OF CHAR) : HANDLE; ***** ^ not supported yet 83 PROCEDURE GetModuleUsage(_:HANDLE) : INTEGER; 84 PROCEDURE GetModuleFileName(_:HANDLE; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 85 PROCEDURE GetInstanceData(_:HANDLE; _:NearADDRESS; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier 86 PROCEDURE GetProcAddress(_:HANDLE; _:ARRAY OF CHAR) : FARPROC; ***** ^ duplicate identifier ***** ^ not supported yet 87 PROCEDURE MakeProcInstance(_:FARPROC; _:HANDLE) : FARPROC; ***** ^ duplicate identifier 88 PROCEDURE FreeProcInstance(_:FARPROC); 89 PROCEDURE LoadLibrary(_:ARRAY OF CHAR) : HANDLE; ***** ^ not supported yet 90 PROCEDURE LoadModule(_:ARRAY OF CHAR; _:ADDRESS) : HANDLE; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier 91 PROCEDURE FreeModule(_:HANDLE) : BOOL; 92 PROCEDURE FreeLibrary(_:HANDLE); 93 PROCEDURE GetFreeSpace(_:CARDINAL) : LONGCARD; ***** ^ undeclared identifier 94 PROCEDURE WinExec(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier 95 PROCEDURE DebugBreak(); 96 PROCEDURE OutputDebugString(_:ARRAY OF CHAR); ***** ^ not supported yet 97 PROCEDURE SwitchStackBack(); 98 PROCEDURE SwitchStackTo(_:CARDINAL; _:CARDINAL; _:CARDINAL); ***** ^ duplicate identifier ***** ^ duplicate identifier 99 PROCEDURE GetCurrentPDB() : CARDINAL; 100 101 TYPE 102 103 OFSTRUCT = RECORD 104 cBytes : SHORTCARD; 105 fFixedDisk : SHORTCARD; 106 nErrCode : CARDINAL; 107 reserved : ARRAY [0..3] OF SHORTCARD; ***** ^ not supported yet ***** ^ not supported yet 108 szPathName : ARRAY [0..127] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 109 END; ***** ^ not supported yet 110 LPOFSTRUCT = POINTER TO OFSTRUCT; ***** ^ not supported yet 111 112 CONST 113 OF_READ = 00H; 114 OF_WRITE = 01H; 115 OF_READWRITE = 02H; 116 OF_SHARE_COMPAT = 00H; 117 OF_SHARE_EXCLUSIVE = 010H; 118 OF_SHARE_DENY_WRITE = 020H; 119 OF_SHARE_DENY_READ = 030H; 120 OF_SHARE_DENY_NONE = 040H; 121 OF_PARSE = 0100H; 122 OF_DELETE = 0200H; 123 OF_VERIFY = 0400H; 124 OF_CANCEL = 0800H; 125 OF_CREATE = 01000H; 126 OF_PROMPT = 02000H; 127 OF_EXIST = 04000H; 128 OF_REOPEN = 08000H; 129 130 PROCEDURE OpenFile(_:ARRAY OF CHAR; VAR _:OFSTRUCT; _:CARDINAL) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 131 132 CONST 133 TF_FORCEDRIVE = 080H; 134 135 PROCEDURE GetTempDrive(_:SHORTCARD) : SHORTCARD; 136 PROCEDURE GetTempFileName(_:SHORTCARD; _:ARRAY OF CHAR; _:CARDINAL; _:ARRAY OF CHAR) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 137 PROCEDURE SetHandleCount(_:CARDINAL) : CARDINAL; 138 PROCEDURE GetDriveType(_:INTEGER) : CARDINAL; 139 140 CONST 141 DRIVE_REMOVABLE = 2; 142 DRIVE_FIXED = 3; 143 DRIVE_REMOTE = 4; 144 GMEM_FIXED = 00H; 145 GMEM_MOVEABLE = 02H; 146 GMEM_NOCOMPACT = 010H; 147 GMEM_NODISCARD = 020H; 148 GMEM_ZEROINIT = 040H; 149 GMEM_MODIFY = 080H; 150 GMEM_DISCARDABLE = 0100H; 151 GMEM_NOT_BANKED = 01000H; 152 GMEM_SHARE = 02000H; 153 GMEM_DDESHARE = 02000H; 154 GMEM_NOTIFY = 04000H; 155 GMEM_LOWER = GMEM_NOT_BANKED; ***** ^ not supported yet 156 GHND = 042H; (* GMEM_MOVEABLE OR GMEM_ZEROINIT *) 157 GPTR = 040H; (* GMEM_FIXED OR GMEM_ZEROINIT *) 158 159 (* GlobalDiscard(x) ::= GlobalReAlloc(x, 0, GMEM_MOVEABLE) - see below *) 160 161 PROCEDURE GlobalAlloc(_:CARDINAL; _:LONGCARD) : HANDLE; ***** ^ duplicate identifier ***** ^ undeclared identifier 162 PROCEDURE GlobalCompact(_:LONGCARD) : LONGCARD; ***** ^ undeclared identifier ***** ^ undeclared identifier 163 PROCEDURE GlobalFree(_:HANDLE) : HANDLE; 164 PROCEDURE GlobalHandle(_:CARDINAL) : LONGCARD; ***** ^ undeclared identifier 165 PROCEDURE GlobalLock(_:HANDLE) : LPSTR; 166 PROCEDURE GlobalReAlloc(_:HANDLE; _:LONGCARD; _:CARDINAL) : HANDLE; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier 167 PROCEDURE GlobalSize(_:HANDLE) : LONGCARD; ***** ^ undeclared identifier 168 PROCEDURE GlobalUnlock(_:HANDLE) : BOOL; 169 PROCEDURE GlobalFlags(_:HANDLE) : CARDINAL; 170 PROCEDURE GlobalWire(_:HANDLE) : LPSTR; 171 PROCEDURE GlobalUnWire(_:HANDLE) : BOOL; 172 PROCEDURE GlobalLRUNewest(_:HANDLE) : HANDLE; 173 PROCEDURE GlobalLRUOldest(_:HANDLE) : HANDLE; 174 PROCEDURE GlobalNotify(_:FARPROC); 175 PROCEDURE GlobalPageLock(_:HANDLE) : CARDINAL; 176 PROCEDURE GlobalPageUnlock(_:HANDLE) : CARDINAL; 177 PROCEDURE GlobalFix(_:HANDLE); 178 PROCEDURE GlobalUnfix(_:HANDLE) : BOOL; 179 180 CONST 181 GMEM_DISCARDED = 04000H; 182 GMEM_LOCKCOUNT = 0FFH; 183 DataSegment = 0FFFFH; 184 185 (* LockData ::= LockSegment(DataSegment) *) 186 (* UnlockData ::= UnlockSegment(DataSegment) *) 187 188 PROCEDURE LockSegment(_:CARDINAL) : HANDLE; 189 PROCEDURE UnlockSegment(_:CARDINAL) : HANDLE; 190 191 CONST 192 LMEM_FIXED = 00H; 193 LMEM_MOVEABLE = 02H; 194 LMEM_NOCOMPACT = 010H; 195 LMEM_NODISCARD = 020H; 196 LMEM_ZEROINIT = 040H; 197 LMEM_MODIFY = 080H; 198 LMEM_DISCARDABLE = 0F00H; 199 LHND = 042H; (* LMEM_MOVEABLE OR LMEM_ZEROINIT *) 200 LPTR = 040H; (* LMEM_FIXED OR LMEM_ZEROINIT *) 201 NONZEROLHND = LMEM_MOVEABLE; ***** ^ not supported yet 202 NONZEROLPTR = LMEM_FIXED; ***** ^ not supported yet 203 204 LNOTIFY_OUTOFMEM = 0; 205 LNOTIFY_MOVE = 1; 206 LNOTIFY_DISCARD = 2; 207 208 VAR 209 pLocalHeap : NearADDRESS; ***** ^ undeclared identifier 210 211 (* LocalDiscard(x) ::= LocalReAlloc(x, 0, LMEM_MOVEABLE) *) 212 213 PROCEDURE LocalAlloc(_:CARDINAL; _:CARDINAL) : HANDLE; ***** ^ duplicate identifier 214 PROCEDURE LocalCompact(_:CARDINAL) : CARDINAL; 215 PROCEDURE LocalFree(_:HANDLE) : HANDLE; 216 PROCEDURE LocalHandle(_:CARDINAL) : HANDLE; 217 PROCEDURE LocalInit(_:CARDINAL; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 218 PROCEDURE LocalLock(_:HANDLE) : NearADDRESS; ***** ^ undeclared identifier 219 PROCEDURE LocalNotify(_:FARPROC) : FARPROC; 220 PROCEDURE LocalReAlloc(_:HANDLE; _:CARDINAL; _:CARDINAL) : HANDLE; ***** ^ duplicate identifier ***** ^ duplicate identifier 221 PROCEDURE LocalSize(_:HANDLE) : CARDINAL; 222 PROCEDURE LocalUnlock(_:HANDLE) : BOOL; 223 PROCEDURE LocalFlags(_:HANDLE) : CARDINAL; 224 PROCEDURE LocalShrink(_:HANDLE; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier 225 226 CONST 227 LMEM_DISCARDED = 04000H; 228 LMEM_LOCKCOUNT = 0FFH; 229 230 PROCEDURE SetSwapAreaSize(_:CARDINAL) : LONGINT; 231 PROCEDURE ValidateFreeSpaces() : LPSTR; 232 PROCEDURE LimitEmsPages(_:LONGCARD); ***** ^ undeclared identifier 233 PROCEDURE SetErrorMode(_:CARDINAL) : BOOL; 234 PROCEDURE ValidateCodeSegments(); 235 236 CONST 237 UnlockResource ::= GlobalUnlock; ***** ^ not supported yet 238 239 PROCEDURE FindResource(_:HANDLE; _:ARRAY OF CHAR; _:FarADDRESS) : HANDLE; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier 240 PROCEDURE LoadResource(_:HANDLE; _:HANDLE) : HANDLE; ***** ^ duplicate identifier 241 PROCEDURE FreeResource(_:HANDLE) : BOOL; 242 PROCEDURE LockResource(_:HANDLE) : LPSTR; 243 PROCEDURE SetResourceHandler(_:HANDLE; _:FarADDRESS; _:FARPROC) : FARPROC; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier 244 PROCEDURE AllocResource(_:HANDLE; _:HANDLE; _:LONGCARD) : HANDLE; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 245 PROCEDURE SizeofResource(_:HANDLE; _:HANDLE) : CARDINAL; ***** ^ duplicate identifier 246 PROCEDURE AccessResource(_:HANDLE; _:HANDLE) : INTEGER; ***** ^ duplicate identifier 247 248 249 CONST 250 DIFFERENCE = 11; 251 252 RT_CURSOR = LPSTR(1); ***** ^ not supported yet 253 RT_BITMAP = LPSTR(2); ***** ^ not supported yet 254 RT_ICON = LPSTR(3); ***** ^ not supported yet 255 RT_MENU = LPSTR(4); ***** ^ not supported yet 256 RT_DIALOG = LPSTR(5); ***** ^ not supported yet 257 RT_STRING = LPSTR(6); ***** ^ not supported yet 258 RT_FONTDIR = LPSTR(7); ***** ^ not supported yet 259 RT_FONT = LPSTR(8); ***** ^ not supported yet 260 RT_ACCELERATOR = LPSTR(9); ***** ^ not supported yet 261 RT_RCDATA = LPSTR(10); ***** ^ not supported yet 262 RT_GROUP_CURSOR = LPSTR(12); ***** ^ not supported yet 263 RT_GROUP_ICON = LPSTR(14); ***** ^ not supported yet 264 265 PROCEDURE Yield(); 266 PROCEDURE GetCurrentTask() : HANDLE; 267 268 TYPE 269 ATOM = CARDINAL; 270 271 272 PROCEDURE InitAtomTable(_:INTEGER) : BOOL; 273 PROCEDURE AddAtom(_:ARRAY OF CHAR) : ATOM; ***** ^ not supported yet 274 PROCEDURE DeleteAtom(_:ATOM) : ATOM; 275 PROCEDURE FindAtom(_:ARRAY OF CHAR) : ATOM; ***** ^ not supported yet 276 PROCEDURE GetAtomName(_:ATOM; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 277 PROCEDURE GlobalAddAtom(_:ARRAY OF CHAR) : ATOM; ***** ^ not supported yet 278 PROCEDURE GlobalDeleteAtom(_:ATOM) : ATOM; 279 PROCEDURE GlobalFindAtom(_:ARRAY OF CHAR) : ATOM; ***** ^ not supported yet 280 PROCEDURE GlobalGetAtomName(_:ATOM; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 281 PROCEDURE GetAtomHandle(_:ATOM) : HANDLE; 282 PROCEDURE GetProfileInt(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 283 PROCEDURE GetProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 284 PROCEDURE WriteProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 285 PROCEDURE GetPrivateProfileInt(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER; _:ARRAY OF CHAR) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 286 PROCEDURE GetPrivateProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER; _:ARRAY OF CHAR) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 287 PROCEDURE WritePrivateProfileString(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 288 PROCEDURE GetWindowsDirectory(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier 289 PROCEDURE GetSystemDirectory(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier 290 291 TYPE 292 CATCHBUF = ARRAY [0..8] OF INTEGER; ***** ^ not supported yet ***** ^ not supported yet 293 LPCATCHBUF = POINTER TO CATCHBUF; ***** ^ not supported yet 294 295 PROCEDURE Catch(VAR _:INTEGER) : INTEGER; 296 PROCEDURE Throw(VAR _:INTEGER; _:INTEGER); ***** ^ duplicate identifier 297 PROCEDURE FatalExit(_:INTEGER); 298 PROCEDURE SwapRecording(_:CARDINAL); 299 PROCEDURE AnsiToOem(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 300 PROCEDURE OemToAnsi(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : BOOL; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 301 PROCEDURE AnsiToOemBuff(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER); ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 302 PROCEDURE OemToAnsiBuff(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:INTEGER); ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 303 PROCEDURE AnsiUpper(_:ARRAY OF CHAR) : LPSTR; ***** ^ not supported yet 304 PROCEDURE AnsiUpperBuff(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier 305 PROCEDURE AnsiLower(_:ARRAY OF CHAR) : LPSTR; ***** ^ not supported yet 306 PROCEDURE AnsiLowerBuff(_:ARRAY OF CHAR; _:CARDINAL) : CARDINAL; ***** ^ not supported yet ***** ^ duplicate identifier 307 PROCEDURE AnsiNext(_:ARRAY OF CHAR) : LPSTR; ***** ^ not supported yet 308 PROCEDURE AnsiPrev(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : LPSTR; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 309 PROCEDURE OemKeyScan(_:CARDINAL) : LONGCARD; ***** ^ undeclared identifier 310 PROCEDURE VkKeyScan(_:CARDINAL) : CARDINAL; 311 PROCEDURE GetKeyboardType(_:INTEGER) : INTEGER; 312 PROCEDURE GetKBCodePage() : INTEGER; 313 PROCEDURE GetKeyNameText(_:LONGINT; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 314 PROCEDURE ToAscii(wVirtKey : CARDINAL; wScanCode : CARDINAL; lpKeyState : ARRAY OF CHAR; lpChar : ADDRESS; wFlags : CARDINAL) : INTEGER; ***** ^ not supported yet ***** ^ undeclared identifier 315 PROCEDURE IsCharAlpha(_:CHAR) : BOOL; 316 PROCEDURE IsCharAlphaNumeric(_:CHAR) : BOOL; 317 PROCEDURE IsCharUpper(_:CHAR) : BOOL; 318 PROCEDURE IsCharLower(_:CHAR) : BOOL; 319 PROCEDURE GetWinFlags() : LONGINT; 320 321 CONST 322 WF_PMODE = 01H; 323 WF_CPU286 = 02H; 324 WF_CPU386 = 04H; 325 WF_CPU486 = 08H; 326 WF_STANDARD = 010H; 327 WF_WIN286 = 010H; 328 WF_ENHANCED = 020H; 329 WF_WIN386 = 020H; 330 WF_CPU086 = 040H; 331 WF_CPU186 = 080H; 332 WF_LARGEFRAME = 0100H; 333 WF_SMALLFRAME = 0200H; 334 WF_80x87 = 0400H; 335 WEP_SYSTEM_EXIT = 1; 336 WEP_FREE_DLL = 0; 337 R2_BLACK = 1; 338 R2_NOTMERGEPEN = 2; 339 R2_MASKNOTPEN = 3; 340 R2_NOTCOPYPEN = 4; 341 R2_MASKPENNOT = 5; 342 R2_NOT = 6; 343 R2_XORPEN = 7; 344 R2_NOTMASKPEN = 8; 345 R2_MASKPEN = 9; 346 R2_NOTXORPEN = 10; 347 R2_NOP = 11; 348 R2_MERGENOTPEN = 12; 349 R2_COPYPEN = 13; 350 R2_MERGEPENNOT = 14; 351 R2_MERGEPEN = 15; 352 R2_WHITE = 16; 353 SRCCOPY = 0CC0020H; 354 SRCPAINT = 0EE0086H; 355 SRCAND = 08800C6H; 356 SRCINVERT = 0660046H; 357 SRCERASE = 0440328H; 358 NOTSRCCOPY = 0330008H; 359 NOTSRCERASE = 01100A6H; 360 MERGECOPY = 0C000CAH; 361 MERGEPAINT = 0BB0226H; 362 PATCOPY = 0F00021H; 363 PATPAINT = 0FB0A09H; 364 PATINVERT = 05A0049H; 365 DSTINVERT = 0550009H; 366 BLACKNESS = 042H; 367 WHITENESS = 0FF0062H; 368 BLACKONWHITE = 1; 369 WHITEONBLACK = 2; 370 COLORONCOLOR = 3; 371 ALTERNATE = 1; 372 WINDING = 2; 373 TA_NOUPDATECP = 0; 374 TA_UPDATECP = 1; 375 TA_LEFT = 0; 376 TA_RIGHT = 2; 377 TA_CENTER = 6; 378 TA_TOP = 0; 379 TA_BOTTOM = 8; 380 TA_BASELINE = 24; 381 ETO_GRAYED = 1; 382 ETO_OPAQUE = 2; 383 ETO_CLIPPED = 4; 384 ASPECT_FILTERING = 01H; 385 META_SETBKCOLOR = 0201H; 386 META_SETBKMODE = 0102H; 387 META_SETMAPMODE = 0103H; 388 META_SETROP2 = 0104H; 389 META_SETRELABS = 0105H; 390 META_SETPOLYFILLMODE = 0106H; 391 META_SETSTRETCHBLTMODE = 0107H; 392 META_SETTEXTCHAREXTRA = 0108H; 393 META_SETTEXTCOLOR = 0209H; 394 META_SETTEXTJUSTIFICATION = 020AH; 395 META_SETWINDOWORG = 020BH; 396 META_SETWINDOWEXT = 020CH; 397 META_SETVIEWPORTORG = 020DH; 398 META_SETVIEWPORTEXT = 020EH; 399 META_OFFSETWINDOWORG = 020FH; 400 META_SCALEWINDOWEXT = 0400H; 401 META_OFFSETVIEWPORTORG = 0211H; 402 META_SCALEVIEWPORTEXT = 0412H; 403 META_LINETO = 0213H; 404 META_MOVETO = 0214H; 405 META_EXCLUDECLIPRECT = 0415H; 406 META_INTERSECTCLIPRECT = 0416H; 407 META_ARC = 0817H; 408 META_ELLIPSE = 0418H; 409 META_FLOODFILL = 0419H; 410 META_PIE = 081AH; 411 META_RECTANGLE = 041BH; 412 META_ROUNDRECT = 061CH; 413 META_PATBLT = 061DH; 414 META_SAVEDC = 01EH; 415 META_SETPIXEL = 041FH; 416 META_OFFSETCLIPRGN = 0220H; 417 META_TEXTOUT = 0521H; 418 META_BITBLT = 0922H; 419 META_STRETCHBLT = 0B23H; 420 META_POLYGON = 0324H; 421 META_POLYLINE = 0325H; 422 META_ESCAPE = 0626H; 423 META_RESTOREDC = 0127H; 424 META_FILLREGION = 0228H; 425 META_FRAMEREGION = 0429H; 426 META_INVERTREGION = 012AH; 427 META_PAINTREGION = 012BH; 428 META_SELECTCLIPREGION = 012CH; 429 META_SELECTOBJECT = 012DH; 430 META_SETTEXTALIGN = 012EH; 431 META_DRAWTEXT = 062FH; 432 META_CHORD = 0830H; 433 META_SETMAPPERFLAGS = 0231H; 434 META_EXTTEXTOUT = 0A32H; 435 META_SETDIBTODEV = 0D33H; 436 META_SELECTPALETTE = 0234H; 437 META_REALIZEPALETTE = 035H; 438 META_ANIMATEPALETTE = 0436H; 439 META_SETPALENTRIES = 037H; 440 META_POLYPOLYGON = 0538H; 441 META_RESIZEPALETTE = 0139H; 442 META_DIBBITBLT = 0940H; 443 META_DIBSTRETCHBLT = 0B41H; 444 META_DIBCREATEPATTERNBRUSH= 0142H; 445 META_STRETCHDIB = 0F43H; 446 META_DELETEOBJECT = 01F0H; 447 META_CREATEPALETTE = 0F7H; 448 META_CREATEBRUSH = 0F8H; 449 META_CREATEPATTERNBRUSH = 01F9H; 450 META_CREATEPENINDIRECT = 02FAH; 451 META_CREATEFONTINDIRECT = 02FBH; 452 META_CREATEBRUSHINDIRECT = 02FCH; 453 META_CREATEBITMAPINDIRECT = 02FDH; 454 META_CREATEBITMAP = 06FEH; 455 META_CREATEREGION = 06FFH; 456 NEWFRAME = 1; 457 ABORTDOC = 2; 458 NEXTBAND = 3; 459 SETCOLORTABLE = 4; 460 GETCOLORTABLE = 5; 461 FLUSHOUTPUT = 6; 462 DRAFTMODE = 7; 463 QUERYESCSUPPORT = 8; 464 SETABORTPROC = 9; 465 STARTDOC = 10; 466 ENDDOC = 11; 467 GETPHYSPAGESIZE = 12; 468 GETPRINTINGOFFSET = 13; 469 GETSCALINGFACTOR = 14; 470 MFCOMMENT = 15; 471 GETPENWIDTH = 16; 472 SETCOPYCOUNT = 17; 473 SELECTPAPERSOURCE = 18; 474 DEVICEDATA = 19; 475 PASSTHROUGH = 19; 476 GETTECHNOLGY = 20; 477 GETTECHNOLOGY = 20; 478 SETENDCAP = 21; 479 SETLINEJOIN = 22; 480 SETMITERLIMIT = 23; 481 BANDINFO = 24; 482 DRAWPATTERNRECT = 25; 483 GETVECTORPENSIZE = 26; 484 GETVECTORBRUSHSIZE= 27; 485 ENABLEDUPLEX = 28; 486 GETSETPAPERBINS = 29; 487 GETSETPRINTORIENT = 30; 488 ENUMPAPERBINS = 31; 489 SETDIBSCALING = 32; 490 EPSPRINTING = 33; 491 ENUMPAPERMETRICS = 34; 492 GETSETPAPERMETRICS= 35; 493 POSTSCRIPT_DATA = 37; 494 POSTSCRIPT_IGNORE = 38; 495 GETEXTENDEDTEXTMETRICS = 256; 496 GETEXTENTTABLE = 257; 497 GETPAIRKERNTABLE = 258; 498 GETTRACKKERNTABLE = 259; 499 EXTTEXTOUT = 512; 500 ENABLERELATIVEWIDTHS = 768; 501 ENABLEPAIRKERNING = 769; 502 SETKERNTRACK = 770; 503 SETALLJUSTVALUES = 771; 504 SETCHARSET = 772; 505 STRETCHBLT = 2048; 506 BEGIN_PATH = 4096; 507 CLIP_TO_PATH = 4097; 508 END_PATH = 4098; 509 EXT_DEVICE_CAPS = 4099; 510 RESTORE_CTM = 4100; 511 SAVE_CTM = 4101; 512 SET_ARC_DIRECTION = 4102; 513 SET_BACKGROUND_COLOR = 4103; 514 SET_POLY_MODE = 4104; 515 SET_SCREEN_ANGLE = 4105; 516 SET_SPREAD = 4106; 517 TRANSFORM_CTM = 4107; 518 SET_CLIP_BOX = 4108; 519 SET_BOUNDS = 4109; 520 SP_NOTREPORTED = 04000H; 521 SP_ERROR = -1; 522 SP_APPABORT = -2; 523 SP_USERABORT = -3; 524 SP_OUTOFDISK = -4; 525 SP_OUTOFMEMORY = -5; 526 PR_JOBSTATUS = 00H; 527 OBJ_PEN = 1; 528 OBJ_BRUSH = 2; 529 530 TYPE 531 532 BITMAP = RECORD 533 bmType : INTEGER; 534 bmWidth : INTEGER; 535 bmHeight : INTEGER; 536 bmWidthBytes : INTEGER; 537 bmPlanes : SHORTCARD; 538 bmBitsPixel : SHORTCARD; 539 bmBits : LPSTR; 540 END; ***** ^ not supported yet 541 LPBITMAP = POINTER TO BITMAP; ***** ^ not supported yet 542 543 RGBTRIPLE = RECORD 544 rgbtBlue : SHORTCARD; 545 rgbtGreen : SHORTCARD; 546 rgbtRed : SHORTCARD; 547 END; ***** ^ not supported yet 548 549 RGBQUAD = RECORD 550 rgbBlue : SHORTCARD; 551 rgbGreen : SHORTCARD; 552 rgbRed : SHORTCARD; 553 rgbReserved : SHORTCARD; 554 END; ***** ^ not supported yet 555 556 BITMAPCOREHEADER = RECORD 557 bcSize : LONGCARD; ***** ^ undeclared identifier 558 bcWidth : CARDINAL; 559 bcHeight : CARDINAL; 560 bcPlanes : CARDINAL; 561 bcBitCount : CARDINAL; 562 END; ***** ^ not supported yet 563 LPBITMAPCOREHEADER = POINTER TO BITMAPCOREHEADER; ***** ^ not supported yet 564 565 BITMAPINFOHEADER = RECORD 566 biSize : LONGCARD; ***** ^ undeclared identifier 567 biWidth : LONGCARD; ***** ^ undeclared identifier 568 biHeight : LONGCARD; ***** ^ undeclared identifier 569 biPlanes : CARDINAL; 570 biBitCount : CARDINAL; 571 biCompression : LONGCARD; ***** ^ undeclared identifier 572 biSizeImage : LONGCARD; ***** ^ undeclared identifier 573 biXPelsPerMeter : LONGCARD; ***** ^ undeclared identifier 574 biYPelsPerMeter : LONGCARD; ***** ^ undeclared identifier 575 biClrUsed : LONGCARD; ***** ^ undeclared identifier 576 biClrImportant : LONGCARD; ***** ^ undeclared identifier 577 END; ***** ^ not supported yet 578 LPBITMAPINFOHEADER = POINTER TO BITMAPINFOHEADER; ***** ^ not supported yet 579 580 CONST 581 BI_RGB = 0; 582 BI_RLE8 = 1; 583 BI_RLE4 = 2; 584 585 TYPE 586 587 BITMAPINFO = RECORD 588 bmiHeader : BITMAPINFOHEADER; 589 bmiColors : ARRAY [0..0] OF RGBQUAD; ***** ^ not supported yet ***** ^ not supported yet 590 END; ***** ^ not supported yet 591 LPBITMAPINFO = POINTER TO BITMAPINFO; ***** ^ not supported yet 592 593 BITMAPCOREINFO = RECORD 594 bmciHeader : BITMAPCOREHEADER; 595 bmciColors : ARRAY [0..0] OF RGBTRIPLE; ***** ^ not supported yet ***** ^ not supported yet 596 END; ***** ^ not supported yet 597 LPBITMAPCOREINFO = POINTER TO BITMAPCOREINFO; ***** ^ not supported yet 598 599 BITMAPFILEHEADER = RECORD 600 bfType : CARDINAL; 601 bfSize : LONGCARD; ***** ^ undeclared identifier 602 bfReserved1 : CARDINAL; 603 bfReserved2 : CARDINAL; 604 bfOffBits : LONGCARD; ***** ^ undeclared identifier 605 END; ***** ^ not supported yet 606 LPBITMAPFILEHEADER = POINTER TO BITMAPFILEHEADER; ***** ^ not supported yet 607 608 609 TYPE 610 611 HANDLETABLE = RECORD 612 objectHandle : ARRAY [0..0] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 613 END; ***** ^ not supported yet 614 LPHANDLETABLE = POINTER TO HANDLETABLE; ***** ^ not supported yet 615 616 METARECORD = RECORD 617 rdSize : LONGCARD; ***** ^ undeclared identifier 618 rdFunction : CARDINAL; 619 rdParm : ARRAY [0..0] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 620 END; ***** ^ not supported yet 621 LPMETARECORD = POINTER TO METARECORD; ***** ^ not supported yet 622 623 METAFILEPICT = RECORD 624 mm : INTEGER; 625 xExt : INTEGER; 626 yExt : INTEGER; 627 hMF : HANDLE; 628 END; ***** ^ not supported yet 629 LPMETAFILEPICT = POINTER TO METAFILEPICT; ***** ^ not supported yet 630 631 METAHEADER = RECORD 632 mtType : CARDINAL; 633 mtHeaderSize : CARDINAL; 634 mtVersion : CARDINAL; 635 mtSize : LONGCARD; ***** ^ undeclared identifier 636 mtNoObjects : CARDINAL; 637 mtMaxRecord : LONGCARD; ***** ^ undeclared identifier 638 mtNoParameters : CARDINAL; 639 END; ***** ^ not supported yet 640 641 TEXTMETRIC = RECORD 642 tmHeight : CARDINAL; 643 tmAscent : CARDINAL; 644 tmDescent : CARDINAL; 645 tmInternalLeading : CARDINAL; 646 tmExternalLeading : CARDINAL; 647 tmAveCharWidth : CARDINAL; 648 tmMaxCharWidth : CARDINAL; 649 tmWeight : CARDINAL; 650 tmItalic : SHORTCARD; 651 tmUnderlined : SHORTCARD; 652 tmStruckOut : SHORTCARD; 653 tmFirstChar : CHAR; 654 tmLastChar : CHAR; 655 tmDefaultChar : CHAR; 656 tmBreakChar : CHAR; 657 tmPitchAndFamily : SHORTCARD; 658 tmCharSet : SHORTCARD; 659 tmOverhang : INTEGER; 660 tmDigitizedAspectX : INTEGER; 661 tmDigitizedAspectY : INTEGER; 662 END; ***** ^ not supported yet 663 LPTEXTMETRIC = POINTER TO TEXTMETRIC; ***** ^ not supported yet 664 665 PELARRAY = RECORD 666 paXCount : INTEGER; 667 paYCount : INTEGER; 668 paXExt : INTEGER; 669 paYExt : INTEGER; 670 paRGBs : SHORTCARD; 671 END; ***** ^ not supported yet 672 LPPELARRAY = POINTER TO PELARRAY; ***** ^ not supported yet 673 674 LOGBRUSH = RECORD 675 lbStyle : CARDINAL; 676 lbColor : LONGCARD; ***** ^ undeclared identifier 677 lbHatch : INTEGER; 678 END; ***** ^ not supported yet 679 LPLOGBRUSH = POINTER TO LOGBRUSH; ***** ^ not supported yet 680 681 PATTERN = LOGBRUSH; 682 LPPATTERN = POINTER TO LOGBRUSH; ***** ^ not supported yet 683 684 LOGPEN = RECORD 685 lopnStyle : CARDINAL; 686 lopnWidth : POINT; 687 lopnColor : LONGCARD; ***** ^ undeclared identifier 688 END; ***** ^ not supported yet 689 LPLOGPEN = POINTER TO LOGPEN; ***** ^ not supported yet 690 691 PALETTEENTRY = RECORD 692 peRed : SHORTCARD; 693 peGreen : SHORTCARD; 694 peBlue : SHORTCARD; 695 peFlags : SHORTCARD; 696 END; ***** ^ not supported yet 697 LPPALETTEENTRY = POINTER TO PALETTEENTRY; ***** ^ not supported yet 698 699 LOGPALETTE = RECORD 700 palVersion : CARDINAL; 701 palNumEntries : CARDINAL; 702 palPalEntry : ARRAY [0..0] OF PALETTEENTRY; ***** ^ not supported yet ***** ^ not supported yet 703 END; ***** ^ not supported yet 704 LPLOGPALETTE = POINTER TO LOGPALETTE; ***** ^ not supported yet 705 706 CONST 707 LF_FACESIZE = 32; 708 709 TYPE 710 711 LOGFONT = RECORD 712 lfHeight : INTEGER; 713 lfWidth : INTEGER; 714 lfEscapement : INTEGER; 715 lfOrientation : INTEGER; 716 lfWeight : INTEGER; 717 lfItalic : SHORTCARD; 718 lfUnderline : SHORTCARD; 719 lfStrikeOut : SHORTCARD; 720 lfCharSet : SHORTCARD; 721 lfOutPrecision : SHORTCARD; 722 lfClipPrecision : SHORTCARD; 723 lfQuality : SHORTCARD; 724 lfPitchAndFamily : SHORTCARD; 725 lfFaceName : ARRAY [0..31] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 726 END; ***** ^ not supported yet 727 LPLOGFONT = POINTER TO LOGFONT; ***** ^ not supported yet 728 729 CONST 730 OUT_DEFAULT_PRECIS = 0; 731 OUT_STRING_PRECIS = 1; 732 OUT_CHARACTER_PRECIS = 2; 733 OUT_STROKE_PRECIS = 3; 734 CLIP_DEFAULT_PRECIS = 0; 735 CLIP_CHARACTER_PRECIS = 1; 736 CLIP_STROKE_PRECIS = 2; 737 DEFAULT_QUALITY = 0; 738 DRAFT_QUALITY = 1; 739 PROOF_QUALITY = 2; 740 DEFAULT_PITCH = 0; 741 FIXED_PITCH = 1; 742 VARIABLE_PITCH = 2; 743 ANSI_CHARSET = 0; 744 SYMBOL_CHARSET = 2; 745 SHIFTJIS_CHARSET = 128; 746 OEM_CHARSET = 255; 747 748 FF_DONTCARE = (0<<4); ***** ^ not supported yet 749 FF_ROMAN = (1<<4); ***** ^ not supported yet 750 FF_SWISS = (2<<4); ***** ^ not supported yet 751 FF_MODERN = (3<<4); ***** ^ not supported yet 752 FF_SCRIPT = (4<<4); ***** ^ not supported yet 753 FF_DECORATIVE = (5<<4); ***** ^ not supported yet 754 755 CONST 756 FW_DONTCARE = 0; 757 FW_THIN = 100; 758 FW_EXTRALIGHT = 200; 759 FW_LIGHT = 300; 760 FW_NORMAL = 400; 761 FW_MEDIUM = 500; 762 FW_SEMIBOLD = 600; 763 FW_BOLD = 700; 764 FW_EXTRABOLD = 800; 765 FW_HEAVY = 900; 766 767 FW_ULTRALIGHT = FW_EXTRALIGHT; ***** ^ not supported yet 768 FW_REGULAR = FW_NORMAL; ***** ^ not supported yet 769 FW_DEMIBOLD = FW_SEMIBOLD; ***** ^ not supported yet 770 FW_ULTRABOLD = FW_EXTRABOLD; ***** ^ not supported yet 771 FW_BLACK = FW_HEAVY; ***** ^ not supported yet 772 773 CONST 774 RASTER_FONTTYPE = 01H; 775 DEVICE_FONTTYPE = 02H; 776 777 778 CONST 779 TRANSPARENT = 1; 780 OPAQUE = 2; 781 MM_TEXT = 1; 782 MM_LOMETRIC = 2; 783 MM_HIMETRIC = 3; 784 MM_LOENGLISH = 4; 785 MM_HIENGLISH = 5; 786 MM_TWIPS = 6; 787 MM_ISOTROPIC = 7; 788 MM_ANISOTROPIC = 8; 789 ABSOLUTE = 1; 790 RELATIVE = 2; 791 WHITE_BRUSH = 0; 792 LTGRAY_BRUSH = 1; 793 GRAY_BRUSH = 2; 794 DKGRAY_BRUSH = 3; 795 BLACK_BRUSH = 4; 796 NULL_BRUSH = 5; 797 798 HOLLOW_BRUSH = NULL_BRUSH; ***** ^ not supported yet 799 800 CONST 801 WHITE_PEN = 6; 802 BLACK_PEN = 7; 803 NULL_PEN = 8; 804 OEM_FIXED_FONT = 10; 805 ANSI_FIXED_FONT = 11; 806 ANSI_VAR_FONT = 12; 807 SYSTEM_FONT = 13; 808 DEVICE_DEFAULT_FONT = 14; 809 DEFAULT_PALETTE = 15; 810 SYSTEM_FIXED_FONT = 16; 811 BS_SOLID = 0; 812 BS_NULL = 1; 813 BS_HOLLOW = BS_NULL; ***** ^ not supported yet 814 BS_HATCHED = 2; 815 BS_PATTERN = 3; 816 BS_INDEXED = 4; 817 BS_DIBPATTERN = 5; 818 HS_HORIZONTAL = 0; 819 HS_VERTICAL = 1; 820 HS_FDIAGONAL = 2; 821 HS_BDIAGONAL = 3; 822 HS_CROSS = 4; 823 HS_DIAGCROSS = 5; 824 PS_SOLID = 0; 825 PS_DASH = 1; 826 PS_DOT = 2; 827 PS_DASHDOT = 3; 828 PS_DASHDOTDOT = 4; 829 PS_NULL = 5; 830 PS_INSIDEFRAME = 6; 831 DRIVERVERSION = 0; 832 TECHNOLOGY = 2; 833 HORZSIZE = 4; 834 VERTSIZE = 6; 835 HORZRES = 8; 836 VERTRES = 10; 837 BITSPIXEL = 12; 838 PLANES = 14; 839 NUMBRUSHES = 16; 840 NUMPENS = 18; 841 NUMMARKERS = 20; 842 NUMFONTS = 22; 843 NUMCOLORS = 24; 844 PDEVICESIZE = 26; 845 CURVECAPS = 28; 846 LINECAPS = 30; 847 POLYGONALCAPS = 32; 848 TEXTCAPS = 34; 849 CLIPCAPS = 36; 850 RASTERCAPS = 38; 851 ASPECTX = 40; 852 ASPECTY = 42; 853 ASPECTXY = 44; 854 LOGPIXELSX = 88; 855 LOGPIXELSY = 90; 856 SIZEPALETTE = 104; 857 NUMRESERVED = 106; 858 COLORRES = 108; 859 DT_PLOTTER = 0; 860 DT_RASDISPLAY = 1; 861 DT_RASPRINTER = 2; 862 DT_RASCAMERA = 3; 863 DT_CHARSTREAM = 4; 864 DT_METAFILE = 5; 865 DT_DISPFILE = 6; 866 CC_NONE = 0; 867 CC_CIRCLES = 1; 868 CC_PIE = 2; 869 CC_CHORD = 4; 870 CC_ELLIPSES = 8; 871 CC_WIDE = 16; 872 CC_STYLED = 32; 873 CC_WIDESTYLED = 64; 874 CC_INTERIORS = 128; 875 LC_NONE = 0; 876 LC_POLYLINE = 2; 877 LC_MARKER = 4; 878 LC_POLYMARKER = 8; 879 LC_WIDE = 16; 880 LC_STYLED = 32; 881 LC_WIDESTYLED = 64; 882 LC_INTERIORS = 128; 883 PC_NONE = 0; 884 PC_POLYGON = 1; 885 PC_RECTANGLE = 2; 886 PC_WINDPOLYGON = 4; 887 PC_TRAPEZOID = 4; 888 PC_SCANLINE = 8; 889 PC_WIDE = 16; 890 PC_STYLED = 32; 891 PC_WIDESTYLED = 64; 892 PC_INTERIORS = 128; 893 CP_NONE = 0; 894 CP_RECTANGLE = 1; 895 TC_OP_CHARACTER = 01H; 896 TC_OP_STROKE = 02H; 897 TC_CP_STROKE = 04H; 898 TC_CR_90 = 08H; 899 TC_CR_ANY = 010H; 900 TC_SF_X_YINDEP = 020H; 901 TC_SA_DOUBLE = 040H; 902 TC_SA_INTEGER = 080H; 903 TC_SA_CONTIN = 0100H; 904 TC_EA_DOUBLE = 0200H; 905 TC_IA_ABLE = 0400H; 906 TC_UA_ABLE = 0800H; 907 TC_SO_ABLE = 01000H; 908 TC_RA_ABLE = 02000H; 909 TC_VA_ABLE = 04000H; 910 TC_RESERVED = 08000H; 911 RC_BITBLT = 0; 912 RC_BANDING = 1; 913 RC_SCALING = 2; 914 RC_BITMAP64 = 3; 915 RC_GDI20_OUTPUT = 4; 916 RC_DI_BITMAP = 7; 917 RC_PALETTE = 8; 918 RC_DIBTODEV = 9; 919 RC_BIGFONT = 10; 920 RC_STRETCHBLT = 11; 921 RC_FLOODFILL = 12; 922 RC_STRETCHDIB = 13; 923 (* 924 RC_BITBLT = 1; 925 RC_BANDING = 2; 926 RC_SCALING = 4; 927 RC_BITMAP64 = 8; 928 RC_GDI20_OUTPUT = 010H; 929 RC_DI_BITMAP = 080H; 930 RC_PALETTE = 0100H; 931 RC_DIBTODEV = 0200H; 932 RC_BIGFONT = 0400H; 933 RC_STRETCHBLT = 0800H; 934 RC_FLOODFILL = 01000H; 935 RC_STRETCHDIB = 02000H; 936 *) 937 PC_RESERVED = 01H; 938 PC_EXPLICIT = 02H; 939 PC_NOCOLLAPSE = 04H; 940 DIB_RGB_COLORS = 0; 941 DIB_PAL_COLORS = 1; 942 SYSPAL_STATIC = 1; 943 SYSPAL_NOSTATIC = 2; 944 CBM_INIT = 04H; 945 DT_TOP = 00H; 946 DT_LEFT = 00H; 947 DT_CENTER = 01H; 948 DT_RIGHT = 02H; 949 DT_VCENTER = 04H; 950 DT_BOTTOM = 08H; 951 DT_WORDBREAK = 010H; 952 DT_SINGLELINE = 020H; 953 DT_EXPANDTABS = 040H; 954 DT_TABSTOP = 080H; 955 DT_NOCLIP = 0100H; 956 DT_EXTERNALLEADING = 0200H; 957 DT_CALCRECT = 0400H; 958 DT_NOPREFIX = 0800H; 959 DT_INTERNAL = 01000H; 960 961 PROCEDURE DrawText(_:HDC; _:ARRAY OF CHAR; _:INTEGER; VAR _:RECT; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 962 PROCEDURE DrawIcon(_:HDC; _:INTEGER; _:INTEGER; _:HICON) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 963 964 CONST 965 FLOODFILLBORDER = 0; 966 FLOODFILLSURFACE = 1; 967 968 PROCEDURE GetWindowDC(_:HWND) : HDC; 969 PROCEDURE GetDC(_:HWND) : HDC; 970 PROCEDURE ReleaseDC(_:HWND; _:HDC) : INTEGER; ***** ^ duplicate identifier 971 PROCEDURE CreateDC(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HDC; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 972 PROCEDURE CreateIC(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HDC; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 973 PROCEDURE CreateCompatibleDC(_:HDC) : HDC; 974 PROCEDURE DeleteDC(_:HDC) : BOOL; 975 PROCEDURE SaveDC(_:HDC) : INTEGER; 976 PROCEDURE RestoreDC(_:HDC; _:INTEGER) : BOOL; ***** ^ duplicate identifier 977 PROCEDURE MoveTo(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 978 PROCEDURE GetCurrentPosition(_:HDC) : LONGCARD; ***** ^ undeclared identifier 979 PROCEDURE LineTo(_:HDC; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 980 PROCEDURE GetDCOrg(_:HDC) : LONGCARD; ***** ^ undeclared identifier 981 PROCEDURE MulDiv(_:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 982 PROCEDURE ExtTextOut(_:HDC; _:INTEGER; _:INTEGER; _:CARDINAL; VAR _:RECT; _:ARRAY OF CHAR; _:CARDINAL; VAR _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 983 PROCEDURE Polyline(_:HDC; VAR _:POINT; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 984 PROCEDURE Polygon(_:HDC; VAR _:POINT; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 985 PROCEDURE PolyPolygon(_:HDC; VAR _:POINT; VAR _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 986 PROCEDURE Rectangle(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 987 PROCEDURE RoundRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 988 PROCEDURE Ellipse(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 989 PROCEDURE Arc(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 990 PROCEDURE Chord(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 991 PROCEDURE Pie(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 992 PROCEDURE PatBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 993 PROCEDURE BitBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 994 PROCEDURE StretchBlt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 995 PROCEDURE TextOut(_:HDC; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 996 PROCEDURE TabbedTextOut(_:HDC; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; VAR _:INTEGER; _:INTEGER) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 997 PROCEDURE GetCharWidth(_:HDC; _:CARDINAL; _:CARDINAL; VAR _:ARRAY OF CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 998 PROCEDURE SetPixel(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 999 PROCEDURE GetPixel(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1000 PROCEDURE FloodFill(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1001 PROCEDURE ExtFloodFill(_:HDC; _:INTEGER; _:INTEGER; _:LONGCARD; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier 1002 PROCEDURE LineDDA(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:FARPROC; _:ARRAY OF CHAR); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1003 PROCEDURE GetStockObject(_:INTEGER) : HANDLE; 1004 PROCEDURE CreatePen(_:INTEGER; _:INTEGER; _:LONGCARD) : HPEN; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1005 PROCEDURE CreatePenIndirect(VAR _:LOGPEN) : HPEN; 1006 PROCEDURE CreateSolidBrush(_:LONGCARD) : HBRUSH; ***** ^ undeclared identifier 1007 PROCEDURE CreateHatchBrush(_:INTEGER; _:LONGCARD) : HBRUSH; ***** ^ duplicate identifier ***** ^ undeclared identifier 1008 PROCEDURE SetBrushOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1009 PROCEDURE GetBrushOrg(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1010 PROCEDURE CreatePatternBrush(_:HBITMAP) : HBRUSH; 1011 PROCEDURE CreateBrushIndirect(VAR _:LOGBRUSH) : HBRUSH; 1012 PROCEDURE CreateBitmap(_:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR) : HBITMAP; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1013 PROCEDURE CreateBitmapIndirect(VAR _:BITMAP) : HBITMAP; 1014 PROCEDURE CreateCompatibleBitmap(_:HDC; _:INTEGER; _:INTEGER) : HBITMAP; ***** ^ duplicate identifier ***** ^ duplicate identifier 1015 PROCEDURE CreateDiscardableBitmap(_:HDC; _:INTEGER; _:INTEGER) : HBITMAP; ***** ^ duplicate identifier ***** ^ duplicate identifier 1016 PROCEDURE SetBitmapBits(_:HBITMAP; _:LONGCARD; _:ARRAY OF CHAR) : LONGINT; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ not supported yet 1017 PROCEDURE GetBitmapBits(_:HBITMAP; _:LONGINT; _:ARRAY OF CHAR) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1018 PROCEDURE SetBitmapDimension(_:HBITMAP; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1019 PROCEDURE GetBitmapDimension(_:HBITMAP) : LONGCARD; ***** ^ undeclared identifier 1020 PROCEDURE CreateFont(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR) : HFONT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1021 PROCEDURE CreateFontIndirect(VAR _:LOGFONT) : HFONT; 1022 PROCEDURE SelectClipRgn(_:HDC; _:HRGN) : INTEGER; ***** ^ duplicate identifier 1023 PROCEDURE CreateRectRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1024 PROCEDURE SetRectRgn(_:HRGN; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1025 PROCEDURE CreateRectRgnIndirect(VAR _:RECT) : HRGN; 1026 PROCEDURE CreateEllipticRgnIndirect(VAR _:RECT) : HRGN; 1027 PROCEDURE CreateEllipticRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1028 PROCEDURE CreatePolygonRgn(VAR _:POINT; _:INTEGER; _:INTEGER) : HRGN; ***** ^ duplicate identifier ***** ^ duplicate identifier 1029 PROCEDURE CreatePolyPolygonRgn(VAR _:POINT; VAR _:INTEGER; _:INTEGER; _:INTEGER) : HRGN; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1030 PROCEDURE CreateRoundRectRgn(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : HRGN; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1031 PROCEDURE GetObject(_:HANDLE; _:INTEGER; _:ARRAY OF BYTE) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1032 PROCEDURE DeleteObject(_:HANDLE) : BOOL; 1033 PROCEDURE SelectObject(_:HDC; _:HANDLE) : HANDLE; ***** ^ duplicate identifier 1034 PROCEDURE UnrealizeObject(_:HBRUSH) : BOOL; 1035 PROCEDURE SetBkColor(_:HDC; _:LONGCARD) : LONGCARD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 1036 PROCEDURE GetBkColor(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1037 PROCEDURE SetBkMode(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1038 PROCEDURE GetBkMode(_:HDC) : INTEGER; 1039 PROCEDURE SetTextColor(_:HDC; _:LONGCARD) : LONGCARD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 1040 PROCEDURE GetTextColor(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1041 PROCEDURE SetTextAlign(_:HDC; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier 1042 PROCEDURE GetTextAlign(_:HDC) : CARDINAL; 1043 PROCEDURE SetMapperFlags(_:HDC; _:LONGCARD) : LONGCARD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 1044 PROCEDURE GetAspectRatioFilter(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1045 PROCEDURE GetNearestColor(_:HDC; _:LONGCARD) : LONGCARD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 1046 PROCEDURE SetROP2(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1047 PROCEDURE GetROP2(_:HDC) : INTEGER; 1048 PROCEDURE SetStretchBltMode(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1049 PROCEDURE GetStretchBltMode(_:HDC) : INTEGER; 1050 PROCEDURE SetPolyFillMode(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1051 PROCEDURE GetPolyFillMode(_:HDC) : INTEGER; 1052 PROCEDURE SetMapMode(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1053 PROCEDURE GetMapMode(_:HDC) : INTEGER; 1054 PROCEDURE SetWindowOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1055 PROCEDURE GetWindowOrg(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1056 PROCEDURE SetWindowExt(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1057 PROCEDURE GetWindowExt(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1058 PROCEDURE SetViewportOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1059 PROCEDURE GetViewportOrg(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1060 PROCEDURE SetViewportExt(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1061 PROCEDURE GetViewportExt(_:HDC) : LONGCARD; ***** ^ undeclared identifier 1062 PROCEDURE OffsetViewportOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1063 PROCEDURE ScaleViewportExt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1064 PROCEDURE OffsetWindowOrg(_:HDC; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1065 PROCEDURE ScaleWindowExt(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1066 PROCEDURE GetClipBox(_:HDC; VAR _:RECT) : INTEGER; ***** ^ duplicate identifier 1067 PROCEDURE IntersectClipRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1068 PROCEDURE OffsetClipRgn(_:HDC; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1069 PROCEDURE ExcludeClipRect(_:HDC; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1070 PROCEDURE PtVisible(_:HDC; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1071 PROCEDURE CombineRgn(_:HRGN; _:HRGN; _:HRGN; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1072 PROCEDURE EqualRgn(_:HRGN; _:HRGN) : BOOL; ***** ^ duplicate identifier 1073 PROCEDURE OffsetRgn(_:HRGN; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1074 PROCEDURE GetRgnBox(_:HRGN; VAR _:RECT) : INTEGER; ***** ^ duplicate identifier 1075 PROCEDURE SetTextJustification(_:HDC; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1076 PROCEDURE GetTextExtent(_:HDC; _:ARRAY OF CHAR; _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier 1077 PROCEDURE GetTabbedTextExtent(_:HDC; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; VAR _:INTEGER) : LONGCARD; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1078 PROCEDURE SetTextCharacterExtra(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1079 PROCEDURE GetTextCharacterExtra(_:HDC) : INTEGER; 1080 PROCEDURE GetMetaFile(_:ARRAY OF CHAR) : HANDLE; ***** ^ not supported yet 1081 PROCEDURE DeleteMetaFile(_:HANDLE) : BOOL; 1082 PROCEDURE CopyMetaFile(_:HANDLE; _:ARRAY OF CHAR) : HANDLE; ***** ^ duplicate identifier ***** ^ not supported yet 1083 PROCEDURE PlayMetaFileRecord(_:HDC; VAR _:HANDLETABLE; VAR _:METARECORD; _:CARDINAL); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1084 PROCEDURE EnumMetaFile(_:HDC; _:HANDLE; _:FARPROC; VAR _:SHORTCARD) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1085 PROCEDURE PlayMetaFile(_:HDC; _:HANDLE) : BOOL; ***** ^ duplicate identifier 1086 PROCEDURE Escape(_:HDC; _:INTEGER; _:INTEGER; _:FarADDRESS; _:FarADDRESS) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1087 PROCEDURE EnumFonts(_:HDC; _:ARRAY OF CHAR; _:FARPROC; _:ARRAY OF CHAR) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1088 PROCEDURE EnumObjects(_:HDC; _:INTEGER; _:FARPROC; _:ARRAY OF CHAR) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1089 PROCEDURE GetTextFace(_:HDC; _:INTEGER; _:ARRAY OF CHAR) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1090 PROCEDURE GetTextMetrics(_:HDC; VAR _:TEXTMETRIC) : BOOL; ***** ^ duplicate identifier 1091 PROCEDURE GetDeviceCaps(_:HDC; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1092 PROCEDURE SetEnvironment(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1093 PROCEDURE GetEnvironment(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1094 PROCEDURE DPtoLP(_:HDC; VAR _:POINT; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1095 PROCEDURE LPtoDP(_:HDC; VAR _:POINT; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1096 PROCEDURE CreateMetaFile(_:ARRAY OF CHAR) : HANDLE; ***** ^ not supported yet 1097 PROCEDURE CloseMetaFile(_:HANDLE) : HANDLE; 1098 PROCEDURE GetMetaFileBits(_:HANDLE) : HANDLE; 1099 PROCEDURE SetMetaFileBits(_:HANDLE) : HANDLE; 1100 PROCEDURE SetDIBits(_:HDC; _:HANDLE; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1101 PROCEDURE GetDIBits(_:HDC; _:HANDLE; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1102 PROCEDURE SetDIBitsToDevice(_:HDC; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1103 PROCEDURE CreateDIBitmap(_:HDC; VAR _:BITMAPINFOHEADER; _:LONGCARD; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL) : HBITMAP; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1104 PROCEDURE CreateDIBPatternBrush(_:HANDLE; _:CARDINAL) : HBRUSH; ***** ^ duplicate identifier 1105 PROCEDURE StretchDIBits(_:HDC; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR; VAR _:BITMAPINFO; _:CARDINAL; _:LONGCARD) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1106 PROCEDURE CreatePalette(VAR _:LOGPALETTE) : HPALETTE; 1107 PROCEDURE SelectPalette(_:HDC; _:HPALETTE; _:BOOL) : HPALETTE; ***** ^ duplicate identifier ***** ^ duplicate identifier 1108 PROCEDURE RealizePalette(_:HDC) : CARDINAL; 1109 PROCEDURE UpdateColors(_:HDC) : INTEGER; 1110 PROCEDURE AnimatePalette(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1111 PROCEDURE SetPaletteEntries(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1112 PROCEDURE GetPaletteEntries(_:HPALETTE; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1113 PROCEDURE GetNearestPaletteIndex(_:HPALETTE; _:LONGCARD) : CARDINAL; ***** ^ duplicate identifier ***** ^ undeclared identifier 1114 PROCEDURE ResizePalette(_:HPALETTE; _:CARDINAL) : BOOL; ***** ^ duplicate identifier 1115 PROCEDURE GetSystemPaletteEntries(_:HDC; _:CARDINAL; _:CARDINAL; VAR _:PALETTEENTRY) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1116 PROCEDURE GetSystemPaletteUse(_:HDC; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier 1117 PROCEDURE SetSystemPaletteUse(_:HDC; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier 1118 PROCEDURE wvsprintf(_:ARRAY OF CHAR; _:ARRAY OF CHAR; _:ARRAY OF BYTE) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier 1119 (*# save, call(var_arg=>on, c_conv=>on, reg_param=>()),name(prefix=>c) *) 1120 PROCEDURE wsprintf(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 1121 (*# restore *) 1122 CONST 1123 SB_HORZ = 0; 1124 SB_VERT = 1; 1125 SB_CTL = 2; 1126 SB_BOTH = 3; 1127 SB_LINEUP = 0; 1128 SB_LINEDOWN = 1; 1129 SB_PAGEUP = 2; 1130 SB_PAGEDOWN = 3; 1131 SB_THUMBPOSITION = 4; 1132 SB_THUMBTRACK = 5; 1133 SB_TOP = 6; 1134 SB_BOTTOM = 7; 1135 SB_ENDSCROLL = 8; 1136 SW_HIDE = 0; 1137 SW_SHOWNORMAL = 1; 1138 SW_NORMAL = 1; 1139 SW_SHOWMINIMIZED = 2; 1140 SW_SHOWMAXIMIZED = 3; 1141 SW_MAXIMIZE = 3; 1142 SW_SHOWNOACTIVATE = 4; 1143 SW_SHOW = 5; 1144 SW_MINIMIZE = 6; 1145 SW_SHOWMINNOACTIVE = 7; 1146 SW_SHOWNA = 8; 1147 SW_RESTORE = 9; 1148 HIDE_WINDOW = 0; 1149 SHOW_OPENWINDOW = 1; 1150 SHOW_ICONWINDOW = 2; 1151 SHOW_FULLSCREEN = 3; 1152 SHOW_OPENNOACTIVATE= 4; 1153 SW_PARENTCLOSING = 1; 1154 SW_OTHERZOOM = 2; 1155 SW_PARENTOPENING = 3; 1156 SW_OTHERUNZOOM = 4; 1157 ERROR = 0; 1158 NULLREGION = 1; 1159 SIMPLEREGION = 2; 1160 COMPLEXREGION = 3; 1161 RGN_AND = 1; 1162 RGN_OR = 2; 1163 RGN_XOR = 3; 1164 RGN_DIFF = 4; 1165 RGN_COPY = 5; 1166 VK_LBUTTON = 01H; 1167 VK_RBUTTON = 02H; 1168 VK_CANCEL = 03H; 1169 VK_MBUTTON = 04H; 1170 VK_BACK = 08H; 1171 VK_TAB = 09H; 1172 VK_CLEAR = 0CH; 1173 VK_RETURN = 0DH; 1174 VK_SHIFT = 010H; 1175 VK_CONTROL = 011H; 1176 VK_MENU = 012H; 1177 VK_PAUSE = 013H; 1178 VK_CAPITAL = 014H; 1179 VK_ESCAPE = 01BH; 1180 VK_SPACE = 020H; 1181 VK_PRIOR = 021H; 1182 VK_NEXT = 022H; 1183 VK_END = 023H; 1184 VK_HOME = 024H; 1185 VK_LEFT = 025H; 1186 VK_UP = 026H; 1187 VK_RIGHT = 027H; 1188 VK_DOWN = 028H; 1189 VK_SELECT = 029H; 1190 VK_PRINT = 02AH; 1191 VK_EXECUTE = 02BH; 1192 VK_SNAPSHOT = 02CH; 1193 VK_INSERT = 02DH; 1194 VK_DELETE = 02EH; 1195 VK_HELP = 02FH; 1196 VK_NUMPAD0 = 060H; 1197 VK_NUMPAD1 = 061H; 1198 VK_NUMPAD2 = 062H; 1199 VK_NUMPAD3 = 063H; 1200 VK_NUMPAD4 = 064H; 1201 VK_NUMPAD5 = 065H; 1202 VK_NUMPAD6 = 066H; 1203 VK_NUMPAD7 = 067H; 1204 VK_NUMPAD8 = 068H; 1205 VK_NUMPAD9 = 069H; 1206 VK_MULTIPLY = 06AH; 1207 VK_ADD = 06BH; 1208 VK_SEPARATOR = 06CH; 1209 VK_SUBTRACT = 06DH; 1210 VK_DECIMAL = 06EH; 1211 VK_DIVIDE = 06FH; 1212 VK_F1 = 070H; 1213 VK_F2 = 071H; 1214 VK_F3 = 072H; 1215 VK_F4 = 073H; 1216 VK_F5 = 074H; 1217 VK_F6 = 075H; 1218 VK_F7 = 076H; 1219 VK_F8 = 077H; 1220 VK_F9 = 078H; 1221 VK_F10 = 079H; 1222 VK_F11 = 07AH; 1223 VK_F12 = 07BH; 1224 VK_F13 = 07CH; 1225 VK_F14 = 07DH; 1226 VK_F15 = 07EH; 1227 VK_F16 = 07FH; 1228 VK_NUMLOCK = 090H; 1229 WH_MSGFILTER = -1; 1230 WH_JOURNALRECORD = 0; 1231 WH_JOURNALPLAYBACK = 1; 1232 WH_KEYBOARD = 2; 1233 WH_GETMESSAGE = 3; 1234 WH_CALLWNDPROC = 4; 1235 WH_CBT = 5; 1236 WH_SYSMSGFILTER = 6; 1237 WH_WINDOWMGR = 7; 1238 HC_LPLPFNNEXT = -2; 1239 HC_LPFNNEXT = -1; 1240 HC_ACTION = 0; 1241 HC_GETNEXT = 1; 1242 HC_SKIP = 2; 1243 HC_NOREM = 3; 1244 HC_NOREMOVE = 3; 1245 HC_SYSMODALON = 4; 1246 HC_SYSMODALOFF = 5; 1247 HCBT_MOVESIZE = 0; 1248 HCBT_MINMAX = 1; 1249 HCBT_QS = 2; 1250 MSGF_DIALOGBOX = 0; 1251 MSGF_MESSAGEBOX = 1; 1252 MSGF_MENU = 2; 1253 MSGF_MOVE = 3; 1254 MSGF_SIZE = 4; 1255 MSGF_SCROLLBAR = 5; 1256 MSGF_NEXTWINDOW = 6; 1257 WC_INIT = 1; 1258 WC_SWP = 2; 1259 WC_DEFWINDOWPROC = 3; 1260 WC_MINMAX = 4; 1261 WC_MOVE = 5; 1262 WC_SIZE = 6; 1263 WC_DRAWCAPTION = 7; 1264 1265 TYPE 1266 1267 EVENTMSG = RECORD 1268 message : CARDINAL; 1269 paramL : CARDINAL; 1270 paramH : CARDINAL; 1271 time : LONGCARD; ***** ^ undeclared identifier 1272 END; ***** ^ not supported yet 1273 LPEVENTMSGMSG = POINTER TO EVENTMSG; ***** ^ not supported yet 1274 1275 WNDCLASS = RECORD 1276 style : CARDINAL; 1277 lpfnWndProc : FarADDRESS; (* Address of PROCEDURE *); ***** ^ undeclared identifier 1278 cbClsExtra : INTEGER; 1279 cbWndExtra : INTEGER; 1280 hInstance : HANDLE; 1281 hIcon : HICON; 1282 hCursor : HCURSOR; 1283 hbrBackground : HBRUSH; 1284 lpszMenuName : LPSTR; 1285 lpszClassName : LPSTR; 1286 END; ***** ^ not supported yet 1287 LPWNDCLASS = POINTER TO WNDCLASS; ***** ^ not supported yet 1288 1289 MSG = RECORD 1290 hwnd : CARDINAL; 1291 message : CARDINAL; 1292 wParam : CARDINAL; 1293 lParam : LONGINT; 1294 time : LONGCARD; ***** ^ undeclared identifier 1295 pt : POINT; 1296 END; ***** ^ not supported yet 1297 LPMSG = POINTER TO MSG; ***** ^ not supported yet 1298 1299 CONST 1300 GWL_WNDPROC = -4; 1301 GWW_HINSTANCE = -6; 1302 GWW_HWNDPARENT = -8; 1303 GWW_ID = -12; 1304 GWL_STYLE = -16; 1305 GWL_EXSTYLE = -20; 1306 GCL_MENUNAME = -8; 1307 GCW_HBRBACKGROUND = -10; 1308 GCW_HCURSOR = -12; 1309 GCW_HICON = -14; 1310 GCW_HMODULE = -16; 1311 GCW_CBWNDEXTRA = -18; 1312 GCW_CBCLSEXTRA = -20; 1313 GCL_WNDPROC = -24; 1314 GCW_STYLE = -26; 1315 WM_NULL = 00H; 1316 WM_CREATE = 01H; 1317 WM_DESTROY = 02H; 1318 WM_MOVE = 03H; 1319 WM_SIZE = 05H; 1320 WM_ACTIVATE = 06H; 1321 WM_SETFOCUS = 07H; 1322 WM_KILLFOCUS = 08H; 1323 WM_ENABLE = 0AH; 1324 WM_SETREDRAW = 0BH; 1325 WM_SETTEXT = 0CH; 1326 WM_GETTEXT = 0DH; 1327 WM_GETTEXTLENGTH = 0EH; 1328 WM_PAINT = 0FH; 1329 WM_CLOSE = 010H; 1330 WM_QUERYENDSESSION = 011H; 1331 WM_QUIT = 012H; 1332 WM_QUERYOPEN = 013H; 1333 WM_ERASEBKGND = 014H; 1334 WM_SYSCOLORCHANGE = 015H; 1335 WM_ENDSESSION = 016H; 1336 WM_SHOWWINDOW = 018H; 1337 WM_CTLCOLOR = 019H; 1338 WM_WININICHANGE = 01AH; 1339 WM_DEVMODECHANGE = 01BH; 1340 WM_ACTIVATEAPP = 01CH; 1341 WM_FONTCHANGE = 01DH; 1342 WM_TIMECHANGE = 01EH; 1343 WM_CANCELMODE = 01FH; 1344 WM_SETCURSOR = 020H; 1345 WM_MOUSEACTIVATE = 021H; 1346 WM_CHILDACTIVATE = 022H; 1347 WM_QUEUESYNC = 023H; 1348 WM_GETMINMAXINFO = 024H; 1349 WM_PAINTICON = 026H; 1350 WM_ICONERASEBKGND = 027H; 1351 WM_NEXTDLGCTL = 028H; 1352 WM_SPOOLERSTATUS = 02AH; 1353 WM_DRAWITEM = 02BH; 1354 WM_MEASUREITEM = 02CH; 1355 WM_DELETEITEM = 02DH; 1356 WM_VKEYTOITEM = 02EH; 1357 WM_CHARTOITEM = 02FH; 1358 WM_SETFONT = 030H; 1359 WM_GETFONT = 031H; 1360 WM_QUERYDRAGICON = 037H; 1361 WM_COMPAREITEM = 039H; 1362 WM_COMPACTING = 041H; 1363 WM_NCCREATE = 081H; 1364 WM_NCDESTROY = 082H; 1365 WM_NCCALCSIZE = 083H; 1366 WM_NCHITTEST = 084H; 1367 WM_NCPAINT = 085H; 1368 WM_NCACTIVATE = 086H; 1369 WM_GETDLGCODE = 087H; 1370 WM_NCMOUSEMOVE = 0A0H; 1371 WM_NCLBUTTONDOWN = 0A1H; 1372 WM_NCLBUTTONUP = 0A2H; 1373 WM_NCLBUTTONDBLCLK = 0A3H; 1374 WM_NCRBUTTONDOWN = 0A4H; 1375 WM_NCRBUTTONUP = 0A5H; 1376 WM_NCRBUTTONDBLCLK = 0A6H; 1377 WM_NCMBUTTONDOWN = 0A7H; 1378 WM_NCMBUTTONUP = 0A8H; 1379 WM_NCMBUTTONDBLCLK = 0A9H; 1380 WM_KEYFIRST = 0100H; 1381 WM_KEYDOWN = 0100H; 1382 WM_KEYUP = 0101H; 1383 WM_CHAR = 0102H; 1384 WM_DEADCHAR = 0103H; 1385 WM_SYSKEYDOWN = 0104H; 1386 WM_SYSKEYUP = 0105H; 1387 WM_SYSCHAR = 0106H; 1388 WM_SYSDEADCHAR = 0107H; 1389 WM_KEYLAST = 0108H; 1390 WM_INITDIALOG = 0110H; 1391 WM_COMMAND = 0111H; 1392 WM_SYSCOMMAND = 0112H; 1393 WM_TIMER = 0113H; 1394 WM_HSCROLL = 0114H; 1395 WM_VSCROLL = 0115H; 1396 WM_INITMENU = 0116H; 1397 WM_INITMENUPOPUP = 0117H; 1398 WM_MENUSELECT = 011FH; 1399 WM_MENUCHAR = 0120H; 1400 WM_ENTERIDLE = 0121H; 1401 WM_MOUSEFIRST = 0200H; 1402 WM_MOUSEMOVE = 0200H; 1403 WM_LBUTTONDOWN = 0201H; 1404 WM_LBUTTONUP = 0202H; 1405 WM_LBUTTONDBLCLK = 0203H; 1406 WM_RBUTTONDOWN = 0204H; 1407 WM_RBUTTONUP = 0205H; 1408 WM_RBUTTONDBLCLK = 0206H; 1409 WM_MBUTTONDOWN = 0207H; 1410 WM_MBUTTONUP = 0208H; 1411 WM_MBUTTONDBLCLK = 0209H; 1412 WM_MOUSELAST = 0209H; 1413 WM_PARENTNOTIFY = 0210H; 1414 WM_MDICREATE = 0220H; 1415 WM_MDIDESTROY = 0221H; 1416 WM_MDIACTIVATE = 0222H; 1417 WM_MDIRESTORE = 0223H; 1418 WM_MDINEXT = 0224H; 1419 WM_MDIMAXIMIZE = 0225H; 1420 WM_MDITILE = 0226H; 1421 WM_MDICASCADE = 0227H; 1422 WM_MDIICONARRANGE = 0228H; 1423 WM_MDIGETACTIVE = 0229H; 1424 WM_MDISETMENU = 0230H; 1425 WM_CUT = 0300H; 1426 WM_COPY = 0301H; 1427 WM_PASTE = 0302H; 1428 WM_CLEAR = 0303H; 1429 WM_UNDO = 0304H; 1430 WM_RENDERFORMAT = 0305H; 1431 WM_RENDERALLFORMATS= 0306H; 1432 WM_DESTROYCLIPBOARD= 0307H; 1433 WM_DRAWCLIPBOARD = 0308H; 1434 WM_PAINTCLIPBOARD = 0309H; 1435 WM_VSCROLLCLIPBOARD= 030AH; 1436 WM_SIZECLIPBOARD = 030BH; 1437 WM_ASKCBFORMATNAME = 030CH; 1438 WM_CHANGECBCHAIN = 030DH; 1439 WM_HSCROLLCLIPBOARD= 030EH; 1440 WM_QUERYNEWPALETTE = 030FH; 1441 WM_PALETTEISCHANGING = 0310H; 1442 WM_PALETTECHANGED = 0311H; 1443 WM_USER = 0400H; 1444 ST_BEGINSWP = 0; 1445 ST_ENDSWP = 1; 1446 HTERROR = -2; 1447 HTTRANSPARENT = -1; 1448 HTNOWHERE = 0; 1449 HTCLIENT = 1; 1450 HTCAPTION = 2; 1451 HTSYSMENU = 3; 1452 HTGROWBOX = 4; 1453 HTSIZE = HTGROWBOX; ***** ^ not supported yet 1454 HTMENU = 5; 1455 HTHSCROLL = 6; 1456 HTVSCROLL = 7; 1457 HTREDUCE = 8; 1458 HTZOOM = 9; 1459 HTLEFT = 10; 1460 HTRIGHT = 11; 1461 HTTOP = 12; 1462 HTTOPLEFT = 13; 1463 HTTOPRIGHT = 14; 1464 HTBOTTOM = 15; 1465 HTBOTTOMLEFT = 16; 1466 HTBOTTOMRIGHT = 17; 1467 HTSIZEFIRST = HTLEFT; ***** ^ not supported yet 1468 HTSIZELAST = HTBOTTOMRIGHT; ***** ^ not supported yet 1469 1470 MA_ACTIVATE = 1; 1471 MA_ACTIVATEANDEAT = 2; 1472 MA_NOACTIVATE = 3; 1473 1474 PROCEDURE RegisterWindowMessage(_:ARRAY OF CHAR) : CARDINAL; ***** ^ not supported yet 1475 1476 CONST 1477 SIZENORMAL = 0; 1478 SIZEICONIC = 1; 1479 SIZEFULLSCREEN = 2; 1480 SIZEZOOMSHOW = 3; 1481 SIZEZOOMHIDE = 4; 1482 MK_LBUTTON = 01H; 1483 MK_RBUTTON = 02H; 1484 MK_SHIFT = 04H; 1485 MK_CONTROL = 08H; 1486 MK_MBUTTON = 010H; 1487 WS_OVERLAPPED = 00H; 1488 WS_POPUP = 080000000H; 1489 WS_CHILD = 040000000H; 1490 WS_MINIMIZE = 020000000H; 1491 WS_VISIBLE = 010000000H; 1492 WS_DISABLED = 08000000H; 1493 WS_CLIPSIBLINGS = 04000000H; 1494 WS_CLIPCHILDREN = 02000000H; 1495 WS_MAXIMIZE = 01000000H; 1496 WS_CAPTION = 0C00000H; 1497 WS_BORDER = 0800000H; 1498 WS_DLGFRAME = 0400000H; 1499 WS_VSCROLL = 0200000H; 1500 WS_HSCROLL = 0100000H; 1501 WS_SYSMENU = 080000H; 1502 WS_THICKFRAME = 040000H; 1503 WS_GROUP = 020000H; 1504 WS_TABSTOP = 010000H; 1505 WS_MINIMIZEBOX = 020000H; 1506 WS_MAXIMIZEBOX = 010000H; 1507 WS_TILED = WS_OVERLAPPED; ***** ^ not supported yet 1508 WS_ICONIC = WS_MINIMIZE; ***** ^ not supported yet 1509 WS_SIZEBOX = WS_THICKFRAME; ***** ^ not supported yet 1510 WS_OVERLAPPEDWINDOW = 0CF0000H; (* WS_OVERLAPPED OR WS_CAPTION OR WS_SYSMENU OR WS_THICKFRAME OR WS_MINIMIZEBOX OR WS_MAXIMIZEBOX; *) 1511 WS_POPUPWINDOW = 080880000H; (* WS_POPUP OR WS_BORDER OR WS_SYSMENU; *) 1512 WS_CHILDWINDOW = WS_CHILD; ***** ^ not supported yet 1513 WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW; ***** ^ not supported yet 1514 WS_EX_DLGMODALFRAME = 01H; 1515 WS_EX_NOPARENTNOTIFY = 04H; 1516 1517 CS_VREDRAW = 01H; 1518 CS_HREDRAW = 02H; 1519 CS_KEYCVTWINDOW = 04H; 1520 CS_DBLCLKS = 08H; 1521 CS_OWNDC = 020H; 1522 CS_CLASSDC = 040H; 1523 CS_PARENTDC = 080H; 1524 CS_NOKEYCVT = 0100H; 1525 CS_NOCLOSE = 0200H; 1526 CS_SAVEBITS = 0800H; 1527 CS_BYTEALIGNCLIENT = 01000H; 1528 CS_BYTEALIGNWINDOW = 02000H; 1529 CS_GLOBALCLASS = 04000H; 1530 1531 CF_TEXT = 1; 1532 CF_BITMAP = 2; 1533 CF_METAFILEPICT = 3; 1534 CF_SYLK = 4; 1535 CF_DIF = 5; 1536 CF_TIFF = 6; 1537 CF_OEMTEXT = 7; 1538 CF_DIB = 8; 1539 CF_PALETTE = 9; 1540 CF_OWNERDISPLAY = 080H; 1541 CF_DSPTEXT = 081H; 1542 CF_DSPBITMAP = 082H; 1543 CF_DSPMETAFILEPICT = 083H; 1544 CF_PRIVATEFIRST = 0200H; 1545 CF_PRIVATELAST = 02FFH; 1546 CF_GDIOBJFIRST = 0300H; 1547 CF_GDIOBJLAST = 03FFH; 1548 1549 TYPE 1550 1551 PAINTSTRUCT = RECORD 1552 hdc : HDC; 1553 fErase : BOOL; 1554 rcPaint : RECT; 1555 fRestore : BOOL; 1556 fIncUpdate : BOOL; 1557 rgbReserved : ARRAY [0..15] OF SHORTCARD; ***** ^ not supported yet ***** ^ not supported yet 1558 END; ***** ^ not supported yet 1559 LPPAINTSTRUCT = POINTER TO PAINTSTRUCT; ***** ^ not supported yet 1560 1561 CREATESTRUCT = RECORD 1562 lpCreateParams : LPSTR; 1563 hInstance : HANDLE; 1564 hMenu : HANDLE; 1565 hwndParent : HWND; 1566 cy : INTEGER; 1567 cx : INTEGER; 1568 y : INTEGER; 1569 x : INTEGER; 1570 style : LONGINT; 1571 lpszName : LPSTR; 1572 lpszClass : LPSTR; 1573 dwExStyle : LONGCARD; ***** ^ undeclared identifier 1574 END; ***** ^ not supported yet 1575 LPCREATESTRUCT = POINTER TO CREATESTRUCT; ***** ^ not supported yet 1576 1577 CONST 1578 ODT_MENU = 1; 1579 ODT_LISTBOX = 2; 1580 ODT_COMBOBOX = 3; 1581 ODT_BUTTON = 4; 1582 ODA_DRAWENTIRE = 0; 1583 ODA_SELECT = 1; 1584 ODA_FOCUS = 2; 1585 ODS_SELECTED = 0; 1586 ODS_GRAYED = 1; 1587 ODS_DISABLED = 2; 1588 ODS_CHECKED = 3; 1589 ODS_FOCUS = 4; 1590 (* 1591 ODA_DRAWENTIRE = 01H; 1592 ODA_SELECT = 02H; 1593 ODA_FOCUS = 04H; 1594 ODS_SELECTED = 01H; 1595 ODS_GRAYED = 02H; 1596 ODS_DISABLED = 04H; 1597 ODS_CHECKED = 08H; 1598 ODS_FOCUS = 010H; 1599 *) 1600 TYPE 1601 1602 MEASUREITEMSTRUCT = RECORD 1603 CtlType : CARDINAL; 1604 CtlID : CARDINAL; 1605 itemID : CARDINAL; 1606 itemWidth : CARDINAL; 1607 itemHeight : CARDINAL; 1608 itemData : LONGCARD; ***** ^ undeclared identifier 1609 END; ***** ^ not supported yet 1610 LPMEASUREITEMSTRUCT = POINTER TO MEASUREITEMSTRUCT; ***** ^ not supported yet 1611 1612 DRAWITEMSTRUCT = RECORD 1613 CtlType : CARDINAL; 1614 CtlID : CARDINAL; 1615 itemID : CARDINAL; 1616 itemAction : BITSET; ***** ^ undeclared identifier 1617 itemState : BITSET; ***** ^ undeclared identifier 1618 hwndItem : HWND; 1619 hDC : HDC; 1620 rcItem : RECT; 1621 itemData : LONGCARD; ***** ^ undeclared identifier 1622 END; ***** ^ not supported yet 1623 LPDRAWITEMSTRUCT = POINTER TO DRAWITEMSTRUCT; ***** ^ not supported yet 1624 1625 DELETEITEMSTRUCT = RECORD 1626 CtlType : CARDINAL; 1627 CtlID : CARDINAL; 1628 itemID : CARDINAL; 1629 hwndItem : HWND; 1630 itemData : LONGCARD; ***** ^ undeclared identifier 1631 END; ***** ^ not supported yet 1632 LPDELETEITEMSTRUCT = POINTER TO DELETEITEMSTRUCT; ***** ^ not supported yet 1633 1634 COMPAREITEMSTRUCT = RECORD 1635 CtlType : CARDINAL; 1636 CtlID : CARDINAL; 1637 hwndItem : HWND; 1638 itemID1 : CARDINAL; 1639 itemData1 : LONGCARD; ***** ^ undeclared identifier 1640 itemID2 : CARDINAL; 1641 itemData2 : LONGCARD; ***** ^ undeclared identifier 1642 END; ***** ^ not supported yet 1643 LPCOMPAREITEMSTRUCT = POINTER TO COMPAREITEMSTRUCT; ***** ^ not supported yet 1644 1645 PROCEDURE GetMessage(VAR _:MSG; _:HWND; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1646 PROCEDURE TranslateMessage(VAR _:MSG) : BOOL; 1647 PROCEDURE DispatchMessage(VAR _:MSG) : LONGINT; 1648 PROCEDURE PeekMessage(VAR _:MSG; _:HWND; _:CARDINAL; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1649 1650 CONST 1651 PM_NOREMOVE = 00H; 1652 PM_REMOVE = 01H; 1653 PM_NOYIELD = 02H; 1654 1655 PROCEDURE lstrcmp( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 1656 PROCEDURE lstrcmpi( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 1657 PROCEDURE lstrcpy( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): LPSTR; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 1658 PROCEDURE lstrcat( _:ARRAY OF CHAR; _:ARRAY OF CHAR ): LPSTR; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 1659 PROCEDURE lstrlen( _:ARRAY OF CHAR ): INTEGER; ***** ^ not supported yet 1660 1661 PROCEDURE _lopen( _:ARRAY OF CHAR; _:INTEGER ): INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier 1662 PROCEDURE _lclose( _:INTEGER ): INTEGER; 1663 PROCEDURE _lcreat( _:ARRAY OF CHAR; _:INTEGER ): INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier 1664 PROCEDURE _llseek( _:INTEGER; _:LONGINT; _:INTEGER ): LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier 1665 PROCEDURE _lread( _:INTEGER; _:ARRAY OF BYTE; _:INTEGER ): WORD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1666 PROCEDURE _lwrite( _:INTEGER; _:ARRAY OF BYTE; _:INTEGER ): WORD; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1667 1668 CONST 1669 READ = 0; (* Flags for _lopen *) 1670 WRITE = 1; 1671 READ_WRITE = 2; 1672 1673 PROCEDURE ExitWindows(dwReserved : LONGCARD; wReturnCode : CARDINAL) : BOOL; ***** ^ undeclared identifier 1674 PROCEDURE SwapMouseButton(_:BOOL) : BOOL; 1675 PROCEDURE GetMessagePos() : LONGCARD; ***** ^ undeclared identifier 1676 PROCEDURE GetMessageTime() : LONGINT; 1677 PROCEDURE GetSysModalWindow() : HWND; 1678 PROCEDURE SetSysModalWindow(_:HWND) : HWND; 1679 PROCEDURE SendMessage(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1680 PROCEDURE PostMessage(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1681 PROCEDURE PostAppMessage(_:HANDLE; _:CARDINAL; _:CARDINAL; _:LONGINT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1682 PROCEDURE ReplyMessage(_:LONGINT); 1683 PROCEDURE WaitMessage(); 1684 PROCEDURE DefWindowProc(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1685 PROCEDURE PostQuitMessage(_:INTEGER); 1686 PROCEDURE CallWindowProc(_:FARPROC; _:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1687 PROCEDURE InSendMessage() : BOOL; 1688 PROCEDURE GetDoubleClickTime() : CARDINAL; 1689 PROCEDURE SetDoubleClickTime(_:CARDINAL); 1690 PROCEDURE RegisterClass(VAR _:WNDCLASS) : BOOL; 1691 PROCEDURE UnregisterClass(_:ARRAY OF CHAR; _:HANDLE) : BOOL; ***** ^ not supported yet ***** ^ duplicate identifier 1692 PROCEDURE GetClassInfo(_:HANDLE; _:ARRAY OF CHAR; VAR _:WNDCLASS) : BOOL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1693 PROCEDURE SetMessageQueue(_:INTEGER) : BOOL; 1694 1695 CONST 1696 CW_USEDEFAULT = MIN(INTEGER); ***** ^ undeclared identifier ***** ^ not supported yet 1697 1698 PROCEDURE CreateWindow(_:FarADDRESS; _:ARRAY OF CHAR; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; _:HMENU; _:HANDLE; _:FarADDRESS) : HWND; ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1699 PROCEDURE CreateWindowEx(_:LONGCARD; _:FarADDRESS; _:ARRAY OF CHAR; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; _:HMENU; _:HANDLE; _:ARRAY OF CHAR) : HWND; ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1700 PROCEDURE IsWindow(_:HWND) : BOOL; 1701 PROCEDURE IsChild(_:HWND; _:HWND) : BOOL; ***** ^ duplicate identifier 1702 PROCEDURE DestroyWindow(_:HWND) : BOOL; 1703 PROCEDURE ShowWindow(_:HWND; _:INTEGER) : BOOL; ***** ^ duplicate identifier 1704 PROCEDURE FlashWindow(_:HWND; _:BOOL) : BOOL; ***** ^ duplicate identifier 1705 PROCEDURE ShowOwnedPopups(_:HWND; _:BOOL); ***** ^ duplicate identifier 1706 PROCEDURE OpenIcon(_:HWND) : BOOL; 1707 PROCEDURE CloseWindow(_:HWND); 1708 PROCEDURE MoveWindow(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1709 PROCEDURE SetWindowPos(_:HWND; _:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:CARDINAL); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1710 PROCEDURE BeginDeferWindowPos(nNumWindows : INTEGER) : HANDLE; 1711 PROCEDURE DeferWindowPos(hWinPosInfo : HANDLE; hWnd : HWND; hWndInsertAfter : HWND; x : INTEGER; y : INTEGER; cx : INTEGER; cy : INTEGER; wFlags : CARDINAL) : HANDLE; 1712 PROCEDURE EndDeferWindowPos(hWinPosInfo : HANDLE); 1713 PROCEDURE IsWindowVisible(_:HWND) : BOOL; 1714 PROCEDURE IsIconic(_:HWND) : BOOL; 1715 PROCEDURE AnyPopup() : BOOL; 1716 PROCEDURE BringWindowToTop(_:HWND); 1717 PROCEDURE IsZoomed(_:HWND) : BOOL; 1718 1719 CONST 1720 SWP_NOSIZE = 01H; 1721 SWP_NOMOVE = 02H; 1722 SWP_NOZORDER = 04H; 1723 SWP_NOREDRAW = 08H; 1724 SWP_NOACTIVATE = 010H; 1725 SWP_DRAWFRAME = 020H; 1726 SWP_SHOWWINDOW = 040H; 1727 SWP_HIDEWINDOW = 080H; 1728 SWP_NOCOPYBITS = 0100H; 1729 SWP_NOREPOSITION = 0200H; 1730 1731 PROCEDURE CreateDialog(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC) : HWND; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1732 PROCEDURE CreateDialogIndirect(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC) : HWND; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1733 PROCEDURE CreateDialogParam(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC; _:LONGINT) : HWND; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1734 PROCEDURE CreateDialogIndirectParam(_:HANDLE; _:ARRAY OF CHAR; _:HWND; _:FARPROC; _:LONGINT) : HWND; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1735 PROCEDURE DialogBox(_:HANDLE; _:FarADDRESS; _:HWND; _:FARPROC) : INTEGER; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1736 PROCEDURE DialogBoxIndirect(_:HANDLE; _:HANDLE; _:HWND; _:FARPROC) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1737 PROCEDURE DialogBoxParam(_:HANDLE; _:FarADDRESS; _:HWND; _:FARPROC; _:LONGINT) : INTEGER; ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1738 PROCEDURE DialogBoxIndirectParam(_:HANDLE; _:HANDLE; _:HWND; _:FARPROC; _:LONGINT) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1739 PROCEDURE EndDialog(_:HWND; _:INTEGER); ***** ^ duplicate identifier 1740 PROCEDURE GetDlgItem(_:HWND; _:INTEGER) : HWND; ***** ^ duplicate identifier 1741 PROCEDURE SetDlgItemInt(_:HWND; _:INTEGER; _:CARDINAL; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1742 PROCEDURE GetDlgItemInt(_:HWND; _:INTEGER; VAR _:BOOL; _:BOOL) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1743 PROCEDURE SetDlgItemText(_:HWND; _:INTEGER; _:ARRAY OF CHAR); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1744 PROCEDURE GetDlgItemText(_:HWND; _:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1745 PROCEDURE CheckDlgButton(_:HWND; _:INTEGER; _:CARDINAL); ***** ^ duplicate identifier ***** ^ duplicate identifier 1746 PROCEDURE CheckRadioButton(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1747 PROCEDURE IsDlgButtonChecked(_:HWND; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier 1748 PROCEDURE SendDlgItemMessage(_:HWND; _:INTEGER; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1749 PROCEDURE GetNextDlgGroupItem(_:HWND; _:HWND; _:BOOL) : HWND; ***** ^ duplicate identifier ***** ^ duplicate identifier 1750 PROCEDURE GetNextDlgTabItem(_:HWND; _:HWND; _:BOOL) : HWND; ***** ^ duplicate identifier ***** ^ duplicate identifier 1751 PROCEDURE GetDlgCtrlID(_:HWND) : INTEGER; 1752 PROCEDURE GetDialogBaseUnits() : LONGINT; 1753 PROCEDURE DefDlgProc(_:HWND; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1754 1755 CONST 1756 DLGWINDOWEXTRA = 30; 1757 1758 PROCEDURE CallMsgFilter(VAR _:MSG; _:INTEGER) : BOOL; ***** ^ duplicate identifier 1759 PROCEDURE OpenClipboard(_:HWND) : BOOL; 1760 PROCEDURE CloseClipboard() : BOOL; 1761 PROCEDURE GetClipboardOwner() : HWND; 1762 PROCEDURE SetClipboardViewer(_:HWND) : HWND; 1763 PROCEDURE GetClipboardViewer() : HWND; 1764 PROCEDURE ChangeClipboardChain(_:HWND; _:HWND) : BOOL; ***** ^ duplicate identifier 1765 PROCEDURE SetClipboardData(_:CARDINAL; _:HANDLE) : HANDLE; ***** ^ duplicate identifier 1766 PROCEDURE GetClipboardData(_:CARDINAL) : HANDLE; 1767 PROCEDURE RegisterClipboardFormat(_:ARRAY OF CHAR) : CARDINAL; ***** ^ not supported yet 1768 PROCEDURE CountClipboardFormats() : INTEGER; 1769 PROCEDURE EnumClipboardFormats(_:CARDINAL) : CARDINAL; 1770 PROCEDURE GetClipboardFormatName(_:CARDINAL; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1771 PROCEDURE EmptyClipboard() : BOOL; 1772 PROCEDURE IsClipboardFormatAvailable(_:CARDINAL) : BOOL; 1773 PROCEDURE GetPriorityClipboardFormat(VAR _:CARDINAL; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1774 PROCEDURE SetFocus(_:HWND) : HWND; 1775 PROCEDURE GetFocus() : HWND; 1776 PROCEDURE GetActiveWindow() : HWND; 1777 PROCEDURE GetKeyState(_:INTEGER) : INTEGER; 1778 PROCEDURE GetAsyncKeyState(_:INTEGER) : INTEGER; 1779 PROCEDURE GetKeyboardState(VAR _:SHORTCARD); 1780 PROCEDURE SetKeyboardState(VAR _:SHORTCARD); 1781 PROCEDURE EnableHardwareInput(_:BOOL) : BOOL; 1782 PROCEDURE GetInputState() : BOOL; 1783 PROCEDURE GetCapture() : HWND; 1784 PROCEDURE SetCapture(_:HWND) : HWND; 1785 PROCEDURE ReleaseCapture(); 1786 PROCEDURE SetTimer(_:HWND; _:INTEGER; _:CARDINAL; _:FARPROC) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1787 PROCEDURE KillTimer(_:HWND; _:INTEGER) : BOOL; ***** ^ duplicate identifier 1788 PROCEDURE EnableWindow(_:HWND; _:BOOL) : BOOL; ***** ^ duplicate identifier 1789 PROCEDURE IsWindowEnabled(_:HWND) : BOOL; 1790 PROCEDURE LoadAccelerators(_:HANDLE; _:ARRAY OF CHAR) : HANDLE; ***** ^ duplicate identifier ***** ^ not supported yet 1791 PROCEDURE TranslateAccelerator(_:HWND; _:HANDLE; VAR _:MSG) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1792 1793 CONST 1794 SM_CXSCREEN = 0; 1795 SM_CYSCREEN = 1; 1796 SM_CXVSCROLL = 2; 1797 SM_CYHSCROLL = 3; 1798 SM_CYCAPTION = 4; 1799 SM_CXBORDER = 5; 1800 SM_CYBORDER = 6; 1801 SM_CXDLGFRAME = 7; 1802 SM_CYDLGFRAME = 8; 1803 SM_CYVTHUMB = 9; 1804 SM_CXHTHUMB = 10; 1805 SM_CXICON = 11; 1806 SM_CYICON = 12; 1807 SM_CXCURSOR = 13; 1808 SM_CYCURSOR = 14; 1809 SM_CYMENU = 15; 1810 SM_CXFULLSCREEN = 16; 1811 SM_CYFULLSCREEN = 17; 1812 SM_CYKANJIWINDOW = 18; 1813 SM_MOUSEPRESENT = 19; 1814 SM_CYVSCROLL = 20; 1815 SM_CXHSCROLL = 21; 1816 SM_DEBUG = 22; 1817 SM_SWAPBUTTON = 23; 1818 SM_RESERVED1 = 24; 1819 SM_RESERVED2 = 25; 1820 SM_RESERVED3 = 26; 1821 SM_RESERVED4 = 27; 1822 SM_CXMIN = 28; 1823 SM_CYMIN = 29; 1824 SM_CXSIZE = 30; 1825 SM_CYSIZE = 31; 1826 SM_CXFRAME = 32; 1827 SM_CYFRAME = 33; 1828 SM_CXMINTRACK = 34; 1829 SM_CYMINTRACK = 35; 1830 SM_CMETRICS = 36; 1831 1832 PROCEDURE GetSystemMetrics(_:INTEGER) : INTEGER; 1833 PROCEDURE LoadMenu(_:HANDLE; _:ARRAY OF CHAR) : HMENU; ***** ^ duplicate identifier ***** ^ not supported yet 1834 PROCEDURE LoadMenuIndirect(_:ARRAY OF CHAR) : HMENU; ***** ^ not supported yet 1835 PROCEDURE GetMenu(_:HWND) : HMENU; 1836 PROCEDURE SetMenu(_:HWND; _:HMENU) : BOOL; ***** ^ duplicate identifier 1837 PROCEDURE ChangeMenu(_:HMENU; _:CARDINAL; _:FarADDRESS; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1838 PROCEDURE HiliteMenuItem(_:HWND; _:HMENU; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1839 PROCEDURE GetMenuString(_:HMENU; _:CARDINAL; _:ARRAY OF CHAR; _:INTEGER; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 1840 PROCEDURE GetMenuState(_:HMENU; _:CARDINAL; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1841 PROCEDURE DrawMenuBar(_:HWND); 1842 PROCEDURE GetSystemMenu(_:HWND; _:BOOL) : HMENU; ***** ^ duplicate identifier 1843 PROCEDURE CreateMenu() : HMENU; 1844 PROCEDURE CreatePopupMenu() : HMENU; 1845 PROCEDURE DestroyMenu(_:HMENU) : BOOL; 1846 PROCEDURE CheckMenuItem(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1847 PROCEDURE EnableMenuItem(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1848 PROCEDURE GetSubMenu(_:HMENU; _:INTEGER) : HMENU; ***** ^ duplicate identifier 1849 PROCEDURE GetMenuItemID(_:HMENU; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier 1850 PROCEDURE GetMenuItemCount(_:HMENU) : CARDINAL; 1851 PROCEDURE InsertMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:ARRAY OF CHAR) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet 1852 PROCEDURE AppendMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:FarADDRESS) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1853 PROCEDURE ModifyMenu(_:HMENU; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:FarADDRESS) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1854 PROCEDURE RemoveMenu(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1855 PROCEDURE DeleteMenu(_:HMENU; _:CARDINAL; _:CARDINAL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1856 PROCEDURE SetMenuItemBitmaps(_:HMENU; _:CARDINAL; _:CARDINAL; _:HBITMAP; _:HBITMAP) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1857 PROCEDURE GetMenuCheckMarkDimensions() : LONGINT; 1858 PROCEDURE TrackPopupMenu(_:HMENU; _:CARDINAL; _:INTEGER; _:INTEGER; _:INTEGER; _:HWND; VAR _:RECT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1859 PROCEDURE GrayString(_:HDC; _:HBRUSH; _:FARPROC; _:LONGCARD; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1860 PROCEDURE UpdateWindow(_:HWND); 1861 PROCEDURE SetActiveWindow(_:HWND) : HWND; 1862 PROCEDURE BeginPaint(_:HWND; VAR _:PAINTSTRUCT) : HDC; ***** ^ duplicate identifier 1863 PROCEDURE EndPaint(_:HWND; VAR _:PAINTSTRUCT); ***** ^ duplicate identifier 1864 PROCEDURE GetUpdateRect(_:HWND; VAR _:RECT; _:BOOL) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1865 PROCEDURE GetUpdateRgn(_:HWND; _:HRGN; _:BOOL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1866 PROCEDURE ExcludeUpdateRgn(_:HDC; _:HWND) : INTEGER; ***** ^ duplicate identifier 1867 PROCEDURE InvalidateRect(_:HWND; VAR _:RECT; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier 1868 PROCEDURE ValidateRect(_:HWND; VAR _:RECT); ***** ^ duplicate identifier 1869 PROCEDURE InvalidateRgn(_:HWND; _:HRGN; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier 1870 PROCEDURE ValidateRgn(_:HWND; _:HRGN); ***** ^ duplicate identifier 1871 PROCEDURE ScrollWindow(_:HWND; _:INTEGER; _:INTEGER; VAR _:RECT; VAR _:RECT); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1872 PROCEDURE ScrollDC(_:HDC; _:INTEGER; _:INTEGER; VAR _:RECT; VAR _:RECT; _:HRGN; VAR _:RECT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1873 PROCEDURE SetScrollPos(_:HWND; _:INTEGER; _:INTEGER; _:BOOL) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1874 PROCEDURE GetScrollPos(_:HWND; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 1875 PROCEDURE SetScrollRange(_:HWND; _:INTEGER; _:INTEGER; _:INTEGER; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1876 PROCEDURE GetScrollRange(_:HWND; _:INTEGER; VAR _:INTEGER; VAR _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1877 PROCEDURE ShowScrollBar(_:HWND; _:CARDINAL; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier 1878 PROCEDURE SetProp(_:HWND; _:ARRAY OF CHAR; _:HANDLE) : BOOL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1879 PROCEDURE GetProp(_:HWND; _:ARRAY OF CHAR) : HANDLE; ***** ^ duplicate identifier ***** ^ not supported yet 1880 PROCEDURE RemoveProp(_:HWND; _:ARRAY OF CHAR) : HANDLE; ***** ^ duplicate identifier ***** ^ not supported yet 1881 PROCEDURE EnumProps(_:HWND; _:FARPROC) : INTEGER; ***** ^ duplicate identifier 1882 PROCEDURE SetWindowText(_:HWND; _:ARRAY OF CHAR); ***** ^ duplicate identifier ***** ^ not supported yet 1883 PROCEDURE GetWindowText(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1884 PROCEDURE GetWindowTextLength(_:HWND) : INTEGER; 1885 PROCEDURE GetClientRect(_:HWND; VAR _:RECT); ***** ^ duplicate identifier 1886 PROCEDURE GetWindowRect(_:HWND; VAR _:RECT); ***** ^ duplicate identifier 1887 PROCEDURE AdjustWindowRect(VAR _:RECT; _:LONGINT; _:BOOL); ***** ^ duplicate identifier ***** ^ duplicate identifier 1888 PROCEDURE AdjustWindowRectEx(VAR _:RECT; _:LONGINT; _:BOOL; _:LONGCARD); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 1889 1890 1891 CONST 1892 MB_OK = 00H; 1893 MB_OKCANCEL = 01H; 1894 MB_ABORTRETRYIGNORE = 02H; 1895 MB_YESNOCANCEL = 03H; 1896 MB_YESNO = 04H; 1897 MB_RETRYCANCEL = 05H; 1898 MB_ICONHAND = 010H; 1899 MB_ICONQUESTION = 020H; 1900 MB_ICONEXCLAMATION = 030H; 1901 MB_ICONASTERISK = 040H; 1902 MB_ICONINFORMATION = MB_ICONASTERISK; ***** ^ not supported yet 1903 MB_ICONSTOP = MB_ICONHAND; ***** ^ not supported yet 1904 MB_DEFBUTTON1 = 00H; 1905 MB_DEFBUTTON2 = 0100H; 1906 MB_DEFBUTTON3 = 0200H; 1907 MB_APPLMODAL = 00H; 1908 MB_SYSTEMMODAL = 01000H; 1909 MB_TASKMODAL = 02000H; 1910 MB_NOFOCUS = 08000H; 1911 MB_TYPEMASK = 0FH; 1912 MB_ICONMASK = 0F0H; 1913 MB_DEFMASK = 0F00H; 1914 MB_MODEMASK = 03000H; 1915 MB_MISCMASK = 0C000H; 1916 1917 PROCEDURE MessageBox(_:HWND; _:ARRAY OF CHAR; _:ARRAY OF CHAR; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 1918 PROCEDURE MessageBeep(_:CARDINAL); 1919 PROCEDURE ShowCursor(_:BOOL) : INTEGER; 1920 PROCEDURE SetCursorPos(_:INTEGER; _:INTEGER); ***** ^ duplicate identifier 1921 PROCEDURE SetCursor(_:HCURSOR) : HCURSOR; 1922 PROCEDURE GetCursorPos(VAR _:POINT); 1923 PROCEDURE ClipCursor(VAR _:RECT); 1924 PROCEDURE CreateCaret(_:HWND; _:HBITMAP; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1925 PROCEDURE GetCaretBlinkTime() : CARDINAL; 1926 PROCEDURE SetCaretBlinkTime(_:CARDINAL); 1927 PROCEDURE DestroyCaret(); 1928 PROCEDURE HideCaret(_:HWND); 1929 PROCEDURE ShowCaret(_:HWND); 1930 PROCEDURE SetCaretPos(_:INTEGER; _:INTEGER); ***** ^ duplicate identifier 1931 PROCEDURE GetCaretPos(VAR _:POINT); 1932 PROCEDURE ClientToScreen(_:HWND; VAR _:POINT); ***** ^ duplicate identifier 1933 PROCEDURE ScreenToClient(_:HWND; VAR _:POINT); ***** ^ duplicate identifier 1934 PROCEDURE WindowFromPoint(_:POINT) : HWND; 1935 PROCEDURE ChildWindowFromPoint(_:HWND; _:POINT) : HWND; ***** ^ duplicate identifier 1936 1937 CONST 1938 CTLCOLOR_MSGBOX = 0; 1939 CTLCOLOR_EDIT = 1; 1940 CTLCOLOR_LISTBOX = 2; 1941 CTLCOLOR_BTN = 3; 1942 CTLCOLOR_DLG = 4; 1943 CTLCOLOR_SCROLLBAR = 5; 1944 CTLCOLOR_STATIC = 6; 1945 CTLCOLOR_MAX = 8; 1946 COLOR_SCROLLBAR = 0; 1947 COLOR_BACKGROUND = 1; 1948 COLOR_ACTIVECAPTION = 2; 1949 COLOR_INACTIVECAPTION = 3; 1950 COLOR_MENU = 4; 1951 COLOR_WINDOW = 5; 1952 COLOR_WINDOWFRAME = 6; 1953 COLOR_MENUTEXT = 7; 1954 COLOR_WINDOWTEXT = 8; 1955 COLOR_CAPTIONTEXT = 9; 1956 COLOR_ACTIVEBORDER = 10; 1957 COLOR_INACTIVEBORDER = 11; 1958 COLOR_APPWORKSPACE = 12; 1959 COLOR_HIGHLIGHT = 13; 1960 COLOR_HIGHLIGHTTEXT = 14; 1961 COLOR_BTNFACE = 15; 1962 COLOR_BTNSHADOW = 16; 1963 COLOR_GRAYTEXT = 17; 1964 COLOR_BTNTEXT = 18; 1965 1966 COLOR_ENDCOLORS = COLOR_BTNTEXT; ***** ^ not supported yet 1967 1968 PROCEDURE GetSysColor(_:INTEGER) : LONGINT; 1969 PROCEDURE SetSysColors(_:INTEGER; VAR _:INTEGER; VAR _:LONGINT); ***** ^ duplicate identifier ***** ^ duplicate identifier 1970 PROCEDURE FillRgn(_:HDC; _:HRGN; _:HBRUSH) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1971 PROCEDURE FrameRgn(_:HDC; _:HRGN; _:HBRUSH; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1972 PROCEDURE InvertRgn(_:HDC; _:HRGN) : BOOL; ***** ^ duplicate identifier 1973 PROCEDURE PaintRgn(_:HDC; _:HRGN) : BOOL; ***** ^ duplicate identifier 1974 PROCEDURE PtInRegion(_:HRGN; _:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1975 PROCEDURE DrawFocusRect(_:HDC; VAR _:RECT); ***** ^ duplicate identifier 1976 PROCEDURE FillRect(_:HDC; VAR _:RECT; _:HBRUSH) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1977 PROCEDURE FrameRect(_:HDC; VAR _:RECT; _:HBRUSH) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1978 PROCEDURE InvertRect(_:HDC; VAR _:RECT); ***** ^ duplicate identifier 1979 PROCEDURE SetRect(VAR _:RECT; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 1980 PROCEDURE SetRectEmpty(VAR _:RECT); 1981 PROCEDURE CopyRect(VAR _:RECT; VAR _:RECT) : INTEGER; ***** ^ duplicate identifier 1982 PROCEDURE InflateRect(VAR _:RECT; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier 1983 PROCEDURE IntersectRect(VAR _:RECT; VAR _:RECT; VAR _:RECT) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1984 PROCEDURE UnionRect(VAR _:RECT; VAR _:RECT; VAR _:RECT) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 1985 PROCEDURE OffsetRect(VAR _:RECT; _:INTEGER; _:INTEGER); ***** ^ duplicate identifier ***** ^ duplicate identifier 1986 PROCEDURE IsRectEmpty(VAR _:RECT) : BOOL; 1987 PROCEDURE EqualRect(VAR _:RECT; VAR _:RECT) : BOOL; ***** ^ duplicate identifier 1988 PROCEDURE PtInRect(VAR _:RECT; _:POINT) : BOOL; ***** ^ duplicate identifier 1989 PROCEDURE RectVisible(_:HDC; VAR _:RECT) : BOOL; ***** ^ duplicate identifier 1990 PROCEDURE RectInRegion(_:HRGN; VAR _:RECT) : BOOL; ***** ^ duplicate identifier 1991 PROCEDURE GetCurrentTime() : LONGCARD; ***** ^ undeclared identifier 1992 PROCEDURE GetTickCount() : LONGCARD; ***** ^ undeclared identifier 1993 PROCEDURE GetWindowWord(_:HWND; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier 1994 PROCEDURE SetWindowWord(_:HWND; _:INTEGER; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1995 PROCEDURE GetWindowLong(_:HWND; _:INTEGER) : LONGINT; ***** ^ duplicate identifier 1996 PROCEDURE SetWindowLong(_:HWND; _:INTEGER; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier 1997 PROCEDURE GetClassWord(_:HWND; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier 1998 PROCEDURE SetClassWord(_:HWND; _:INTEGER; _:CARDINAL) : CARDINAL; ***** ^ duplicate identifier ***** ^ duplicate identifier 1999 PROCEDURE GetClassLong(_:HWND; _:INTEGER) : LONGINT; ***** ^ duplicate identifier 2000 PROCEDURE SetClassLong(_:HWND; _:INTEGER; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier 2001 PROCEDURE GetDesktopHwnd() : HWND; 2002 PROCEDURE GetDesktopWindow() : HWND; 2003 PROCEDURE GetParent(_:HWND) : HWND; 2004 PROCEDURE SetParent(_:HWND; _:HWND) : HWND; ***** ^ duplicate identifier 2005 PROCEDURE EnumChildWindows(_:HWND; _:FARPROC; _:LONGINT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 2006 PROCEDURE FindWindow(_:ARRAY OF CHAR; _:ARRAY OF CHAR) : HWND; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 2007 PROCEDURE EnumWindows(_:FARPROC; _:LONGINT) : BOOL; ***** ^ duplicate identifier 2008 PROCEDURE EnumTaskWindows(_:HANDLE; _:FARPROC; _:LONGINT) : BOOL; ***** ^ duplicate identifier ***** ^ duplicate identifier 2009 PROCEDURE GetClassName(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2010 PROCEDURE GetTopWindow(_:HWND) : HWND; 2011 PROCEDURE GetNextWindow(_:HWND; _:CARDINAL) : HWND; ***** ^ duplicate identifier 2012 PROCEDURE GetWindowTask(_:HWND) : HANDLE; 2013 PROCEDURE GetLastActivePopup(_:HWND) : HWND; 2014 2015 CONST 2016 GW_HWNDFIRST = 0; 2017 GW_HWNDLAST = 1; 2018 GW_HWNDNEXT = 2; 2019 GW_HWNDPREV = 3; 2020 GW_OWNER = 4; 2021 GW_CHILD = 5; 2022 2023 2024 PROCEDURE GetWindow(_:HWND; _:CARDINAL) : HWND; ***** ^ duplicate identifier 2025 PROCEDURE SetWindowsHook(_:INTEGER; _:FARPROC) : FARPROC; ***** ^ duplicate identifier 2026 PROCEDURE UnhookWindowsHook(_:INTEGER; _:FARPROC) : BOOL; ***** ^ duplicate identifier 2027 PROCEDURE DefHookProc(_:INTEGER; _:CARDINAL; _:LONGCARD; VAR _:FARPROC) : LONGCARD; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ undeclared identifier ***** ^ duplicate identifier ***** ^ undeclared identifier 2028 2029 CONST 2030 MF_INSERT = 00H; 2031 MF_CHANGE = 080H; 2032 MF_APPEND = 0100H; 2033 MF_DELETE = 0200H; 2034 MF_REMOVE = 01000H; 2035 MF_BYCOMMAND = 00H; 2036 MF_BYPOSITION = 0400H; 2037 MF_SEPARATOR = 0800H; 2038 MF_ENABLED = 00H; 2039 MF_GRAYED = 01H; 2040 MF_DISABLED = 02H; 2041 MF_UNCHECKED = 00H; 2042 MF_CHECKED = 08H; 2043 MF_USECHECKBITMAPS = 0200H; 2044 MF_STRING = 00H; 2045 MF_BITMAP = 04H; 2046 MF_OWNERDRAW = 0100H; 2047 MF_POPUP = 010H; 2048 MF_MENUBARBREAK = 020H; 2049 MF_MENUBREAK = 040H; 2050 MF_UNHILITE = 00H; 2051 MF_HILITE = 080H; 2052 MF_SYSMENU = 02000H; 2053 MF_HELP = 04000H; 2054 MF_MOUSESELECT = 08000H; 2055 2056 TYPE 2057 2058 MENUITEMTEMPLATEHEADER = RECORD 2059 versionNumber : CARDINAL; 2060 offset : CARDINAL; 2061 END; ***** ^ not supported yet 2062 2063 MENUITEMTEMPLATE = RECORD 2064 mtOption : CARDINAL; 2065 mtID : CARDINAL; 2066 mtString : LPSTR; 2067 END; ***** ^ not supported yet 2068 2069 CONST 2070 MF_END = 080H; 2071 SC_SIZE = 0F000H; 2072 SC_MOVE = 0F010H; 2073 SC_MINIMIZE = 0F020H; 2074 SC_MAXIMIZE = 0F030H; 2075 SC_NEXTWINDOW = 0F040H; 2076 SC_PREVWINDOW = 0F050H; 2077 SC_CLOSE = 0F060H; 2078 SC_VSCROLL = 0F070H; 2079 SC_HSCROLL = 0F080H; 2080 SC_MOUSEMENU = 0F090H; 2081 SC_KEYMENU = 0F100H; 2082 SC_ARRANGE = 0F110H; 2083 SC_RESTORE = 0F120H; 2084 SC_TASKLIST = 0F130H; 2085 2086 SC_ICON = SC_MINIMIZE; ***** ^ not supported yet 2087 SC_ZOOM = SC_MAXIMIZE; ***** ^ not supported yet 2088 2089 PROCEDURE LoadBitmap(_:HANDLE; _:FarADDRESS) : HBITMAP; ***** ^ duplicate identifier ***** ^ undeclared identifier 2090 PROCEDURE LoadCursor(_:HANDLE; _:FarADDRESS) : HCURSOR; ***** ^ duplicate identifier ***** ^ undeclared identifier 2091 PROCEDURE CreateCursor(_:HANDLE; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HCURSOR; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 2092 PROCEDURE DestroyCursor(_:HCURSOR) : BOOL; 2093 2094 CONST 2095 IDC_ARROW = LPSTR(32512); ***** ^ not supported yet 2096 IDC_IBEAM = LPSTR(32513); ***** ^ not supported yet 2097 IDC_WAIT = LPSTR(32514); ***** ^ not supported yet 2098 IDC_CROSS = LPSTR(32515); ***** ^ not supported yet 2099 IDC_UPARROW = LPSTR(32516); ***** ^ not supported yet 2100 IDC_SIZE = LPSTR(32640); ***** ^ not supported yet 2101 IDC_ICON = LPSTR(32641); ***** ^ not supported yet 2102 IDC_SIZENWSE = LPSTR(32642); ***** ^ not supported yet 2103 IDC_SIZENESW = LPSTR(32643); ***** ^ not supported yet 2104 IDC_SIZEWE = LPSTR(32644); ***** ^ not supported yet 2105 IDC_SIZENS = LPSTR(32645); ***** ^ not supported yet 2106 2107 PROCEDURE LoadIcon(_:HANDLE; _:FarADDRESS) : HICON; ***** ^ duplicate identifier ***** ^ undeclared identifier 2108 PROCEDURE CreateIcon(_:HANDLE; _:INTEGER; _:INTEGER; _:SHORTCARD; _:SHORTCARD; _:ARRAY OF CHAR; _:ARRAY OF CHAR) : HICON; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 2109 PROCEDURE DestroyIcon(_:HICON) : BOOL; 2110 2111 CONST 2112 ORD_LANGDRIVER = 1; 2113 2114 IDI_APPLICATION = LPSTR(32512); ***** ^ not supported yet 2115 IDI_HAND = LPSTR(32513); ***** ^ not supported yet 2116 IDI_QUESTION = LPSTR(32514); ***** ^ not supported yet 2117 IDI_EXCLAMATION = LPSTR(32515); ***** ^ not supported yet 2118 IDI_ASTERISK = LPSTR(32516); ***** ^ not supported yet 2119 2120 PROCEDURE LoadString(_:HANDLE; _:CARDINAL; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2121 PROCEDURE AddFontResource(_:ARRAY OF CHAR) : INTEGER; ***** ^ not supported yet 2122 PROCEDURE RemoveFontResource(_:ARRAY OF CHAR) : BOOL; ***** ^ not supported yet 2123 2124 2125 CONST 2126 CP_HWND = 0; 2127 CP_OPEN = 1; 2128 CP_DIRECT = 2; 2129 VK_KANA = 015H; 2130 VK_ROMAJI = 016H; 2131 VK_ZENKAKU = 017H; 2132 VK_HIRAGANA = 018H; 2133 VK_KANJI = 019H; 2134 VK_CONVERT = 01CH; 2135 VK_NONCONVERT = 01DH; 2136 VK_ACCEPT = 01EH; 2137 VK_MODECHANGE = 01FH; 2138 KNJ_START = 01H; 2139 KNJ_END = 02H; 2140 KNJ_QUERY = 03H; 2141 KNJ_LEARN_MODE = 010H; 2142 KNJ_GETMODE = 011H; 2143 KNJ_SETMODE = 012H; 2144 KNJ_CODECONVERT = 020H; 2145 KNJ_CONVERT = 021H; 2146 KNJ_NEXT = 022H; 2147 KNJ_PREVIOUS = 023H; 2148 KNJ_ACCEPT = 024H; 2149 KNJ_LEARN = 030H; 2150 KNJ_REGISTER = 031H; 2151 KNJ_REMOVE = 032H; 2152 KNJ_CHANGE_UDIC = 033H; 2153 KNJ_JIS1toJIS1KATAKANA = 014H; 2154 KNJ_JIS1toSJIS2 = 013H; 2155 KNJ_JIS1toSJIS2HIRAGANA = 015H; 2156 KNJ_JIS1toSJIS2KATAKANA = 016H; 2157 KNJ_JIS1toDEFAULT = 010H; 2158 KNJ_JIS1toSJIS2OEM = 01FH; 2159 KNJ_JIS2toSJIS2 = 023H; 2160 KNJ_SJIS2toJIS2 = 032H; 2161 KNJ_MD_ALPHA = 01H; 2162 KNJ_MD_HIRAGANA = 02H; 2163 KNJ_MD_HALF = 04H; 2164 KNJ_MD_JIS = 08H; 2165 KNJ_MD_SPECIAL = 010H; 2166 KNJ_CVT_NEXT = 01H; 2167 KNJ_CVT_PREV = 02H; 2168 KNJ_CVT_KATAKANA = 03H; 2169 KNJ_CVT_HIRAGANA = 04H; 2170 KNJ_CVT_JIS1 = 05H; 2171 KNJ_CVT_SJIS2 = 06H; 2172 KNJ_CVT_DEFAULT = 07H; 2173 KNJ_CVT_TYPED = 08H; 2174 2175 TYPE 2176 2177 KANJISTRUCT = RECORD 2178 fnc : INTEGER; 2179 wParam : INTEGER; 2180 lpSource : LPSTR; 2181 lpDest : LPSTR; 2182 wCount : INTEGER; 2183 lpReserved1 : LPSTR; 2184 lpReserved2 : LPSTR; 2185 END; ***** ^ not supported yet 2186 LPKANJISTRUCT = POINTER TO KANJISTRUCT; ***** ^ not supported yet 2187 2188 PROCEDURE ConvertRequest(_:HWND; VAR _:KANJISTRUCT) : INTEGER; ***** ^ duplicate identifier 2189 PROCEDURE SetConvertParams(_:INTEGER; _:INTEGER) : BOOL; ***** ^ duplicate identifier 2190 PROCEDURE SetConvertHook(_:BOOL); 2191 PROCEDURE IsTwoByteCharPrefix(_:CHAR) : BOOL; 2192 2193 CONST 2194 IDOK = 1; 2195 IDCANCEL = 2; 2196 IDABORT = 3; 2197 IDRETRY = 4; 2198 IDIGNORE = 5; 2199 IDYES = 6; 2200 IDNO = 7; 2201 ES_LEFT = 00H; 2202 ES_CENTER = 01H; 2203 ES_RIGHT = 02H; 2204 ES_MULTILINE = 04H; 2205 ES_UPPERCASE = 08H; 2206 ES_LOWERCASE = 010H; 2207 ES_PASSWORD = 020H; 2208 ES_AUTOVSCROLL = 040H; 2209 ES_AUTOHSCROLL = 080H; 2210 ES_NOHIDESEL = 0100H; 2211 ES_OEMCONVERT = 0400H; 2212 EN_SETFOCUS = 0100H; 2213 EN_KILLFOCUS = 0200H; 2214 EN_CHANGE = 0300H; 2215 EN_UPDATE = 0400H; 2216 EN_ERRSPACE = 0500H; 2217 EN_MAXTEXT = 0501H; 2218 EN_HSCROLL = 0601H; 2219 EN_VSCROLL = 0602H; 2220 EM_GETSEL = WM_USER+0; ***** ^ not supported yet 2221 EM_SETSEL = WM_USER+1; ***** ^ not supported yet 2222 EM_GETRECT = WM_USER+2; ***** ^ not supported yet 2223 EM_SETRECT = WM_USER+3; ***** ^ not supported yet 2224 EM_SETRECTNP = WM_USER+4; ***** ^ not supported yet 2225 EM_SCROLL = WM_USER+5; ***** ^ not supported yet 2226 EM_LINESCROLL = WM_USER+6; ***** ^ not supported yet 2227 EM_GETMODIFY = WM_USER+8; ***** ^ not supported yet 2228 EM_SETMODIFY = WM_USER+9; ***** ^ not supported yet 2229 EM_GETLINECOUNT = WM_USER+10; ***** ^ not supported yet 2230 EM_LINEINDEX = WM_USER+11; ***** ^ not supported yet 2231 EM_SETHANDLE = WM_USER+12; ***** ^ not supported yet 2232 EM_GETHANDLE = WM_USER+13; ***** ^ not supported yet 2233 EM_GETTHUMB = WM_USER+14; ***** ^ not supported yet 2234 EM_LINELENGTH = WM_USER+17; ***** ^ not supported yet 2235 EM_REPLACESEL = WM_USER+18; ***** ^ not supported yet 2236 EM_SETFONT = WM_USER+19; ***** ^ not supported yet 2237 EM_GETLINE = WM_USER+20; ***** ^ not supported yet 2238 EM_LIMITTEXT = WM_USER+21; ***** ^ not supported yet 2239 EM_CANUNDO = WM_USER+22; ***** ^ not supported yet 2240 EM_UNDO = WM_USER+23; ***** ^ not supported yet 2241 EM_FMTLINES = WM_USER+24; ***** ^ not supported yet 2242 EM_LINEFROMCHAR = WM_USER+25; ***** ^ not supported yet 2243 EM_SETWORDBREAK = WM_USER+26; ***** ^ not supported yet 2244 EM_SETTABSTOPS = WM_USER+27; ***** ^ not supported yet 2245 EM_SETPASSWORDCHAR = WM_USER+28; ***** ^ not supported yet 2246 EM_EMPTYUNDOBUFFER = WM_USER+29; ***** ^ not supported yet 2247 EM_MSGMAX = WM_USER+30; ***** ^ not supported yet 2248 BS_PUSHBUTTON = 00H; 2249 BS_DEFPUSHBUTTON = 01H; 2250 BS_CHECKBOX = 02H; 2251 BS_AUTOCHECKBOX = 03H; 2252 BS_RADIOBUTTON = 04H; 2253 BS_3STATE = 05H; 2254 BS_AUTO3STATE = 06H; 2255 BS_GROUPBOX = 07H; 2256 BS_USERBUTTON = 08H; 2257 BS_AUTORADIOBUTTON = 09H; 2258 BS_PUSHBOX = 0AH; 2259 BS_OWNERDRAW = 0BH; 2260 BS_LEFTTEXT = 020H; 2261 BN_CLICKED = 0; 2262 BN_PAINT = 1; 2263 BN_HILITE = 2; 2264 BN_UNHILITE = 3; 2265 BN_DISABLE = 4; 2266 BN_DOUBLECLICKED = 5; 2267 BM_GETCHECK = WM_USER+0; ***** ^ not supported yet 2268 BM_SETCHECK = WM_USER+1; ***** ^ not supported yet 2269 BM_GETSTATE = WM_USER+2; ***** ^ not supported yet 2270 BM_SETSTATE = WM_USER+3; ***** ^ not supported yet 2271 BM_SETSTYLE = WM_USER+4; ***** ^ not supported yet 2272 SS_LEFT = 00H; 2273 SS_CENTER = 01H; 2274 SS_RIGHT = 02H; 2275 SS_ICON = 03H; 2276 SS_BLACKRECT = 04H; 2277 SS_GRAYRECT = 05H; 2278 SS_WHITERECT = 06H; 2279 SS_BLACKFRAME = 07H; 2280 SS_GRAYFRAME = 08H; 2281 SS_WHITEFRAME = 09H; 2282 SS_USERITEM = 0AH; 2283 SS_SIMPLE = 0BH; 2284 SS_LEFTNOWORDWRAP = 0CH; 2285 SS_NOPREFIX = 080H; 2286 2287 PROCEDURE IsDialogMessage(_:HWND; VAR _:MSG) : BOOL; ***** ^ duplicate identifier 2288 PROCEDURE MapDialogRect(_:HWND; VAR _:RECT); ***** ^ duplicate identifier 2289 PROCEDURE DlgDirList(_:HWND; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2290 PROCEDURE DlgDirSelect(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2291 PROCEDURE DlgDirListComboBox(_:HWND; _:ARRAY OF CHAR; _:INTEGER; _:INTEGER; _:CARDINAL) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2292 PROCEDURE DlgDirSelectComboBox(_:HWND; _:ARRAY OF CHAR; _:INTEGER) : BOOL; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2293 2294 CONST 2295 DS_ABSALIGN = 01H; 2296 DS_SYSMODAL = 02H; 2297 DS_LOCALEDIT = 020H; 2298 DS_SETFONT = 040H; 2299 DS_MODALFRAME = 080H; 2300 DS_NOIDLEMSG = 0100H; 2301 DM_GETDEFID = WM_USER+0; ***** ^ not supported yet 2302 DM_SETDEFID = WM_USER+1; ***** ^ not supported yet 2303 DC_HASDEFID = 0534BH; 2304 DLGC_WANTARROWS = 01H; 2305 DLGC_WANTTAB = 02H; 2306 DLGC_WANTALLKEYS = 04H; 2307 DLGC_WANTMESSAGE = 04H; 2308 DLGC_HASSETSEL = 08H; 2309 DLGC_DEFPUSHBUTTON = 010H; 2310 DLGC_UNDEFPUSHBUTTON = 020H; 2311 DLGC_RADIOBUTTON = 040H; 2312 DLGC_WANTCHARS = 080H; 2313 DLGC_STATIC = 0100H; 2314 DLGC_BUTTON = 02000H; 2315 LB_CTLCODE = 0; 2316 LB_OKAY = 0; 2317 LB_ERR = -1; 2318 LB_ERRSPACE = -2; 2319 LBN_ERRSPACE = -2; 2320 LBN_SELCHANGE = 1; 2321 LBN_DBLCLK = 2; 2322 LBN_SELCANCEL = 3; 2323 LBN_SETFOCUS = 4; 2324 LBN_KILLFOCUS = 5; 2325 LB_ADDSTRING = WM_USER+1; ***** ^ not supported yet 2326 LB_INSERTSTRING = WM_USER+2; ***** ^ not supported yet 2327 LB_DELETESTRING = WM_USER+3; ***** ^ not supported yet 2328 LB_RESETCONTENT = WM_USER+5; ***** ^ not supported yet 2329 LB_SETSEL = WM_USER+6; ***** ^ not supported yet 2330 LB_SETCURSEL = WM_USER+7; ***** ^ not supported yet 2331 LB_GETSEL = WM_USER+8; ***** ^ not supported yet 2332 LB_GETCURSEL = WM_USER+9; ***** ^ not supported yet 2333 LB_GETTEXT = WM_USER+10; ***** ^ not supported yet 2334 LB_GETTEXTLEN = WM_USER+11; ***** ^ not supported yet 2335 LB_GETCOUNT = WM_USER+12; ***** ^ not supported yet 2336 LB_SELECTSTRING = WM_USER+13; ***** ^ not supported yet 2337 LB_DIR = WM_USER+14; ***** ^ not supported yet 2338 LB_GETTOPINDEX = WM_USER+15; ***** ^ not supported yet 2339 LB_FINDSTRING = WM_USER+16; ***** ^ not supported yet 2340 LB_GETSELCOUNT = WM_USER+17; ***** ^ not supported yet 2341 LB_GETSELITEMS = WM_USER+18; ***** ^ not supported yet 2342 LB_SETTABSTOPS = WM_USER+19; ***** ^ not supported yet 2343 LB_GETHORIZONTALEXTENT = WM_USER+20; ***** ^ not supported yet 2344 LB_SETHORIZONTALEXTENT = WM_USER+21; ***** ^ not supported yet 2345 LB_SETCOLUMNWIDTH = WM_USER+22; ***** ^ not supported yet 2346 LB_SETTOPINDEX = WM_USER+24; ***** ^ not supported yet 2347 LB_GETITEMRECT = WM_USER+25; ***** ^ not supported yet 2348 LB_GETITEMDATA = WM_USER+26; ***** ^ not supported yet 2349 LB_SETITEMDATA = WM_USER+27; ***** ^ not supported yet 2350 LB_SELITEMRANGE = WM_USER+28; ***** ^ not supported yet 2351 LB_MSGMAX = WM_USER+33; ***** ^ not supported yet 2352 LBS_NOTIFY = 01H; 2353 LBS_SORT = 02H; 2354 LBS_NOREDRAW = 04H; 2355 LBS_MULTIPLESEL = 08H; 2356 LBS_OWNERDRAWFIXED = 010H; 2357 LBS_OWNERDRAWVARIABLE = 020H; 2358 LBS_HASSTRINGS = 040H; 2359 LBS_USETABSTOPS = 080H; 2360 LBS_NOINTEGRALHEIGHT = 0100H; 2361 LBS_MULTICOLUMN = 0200H; 2362 LBS_WANTKEYBOARDINPUT = 0400H; 2363 LBS_EXTENDEDSEL = 0800H; 2364 LBS_STANDARD = 0A00003H; (*LBS_NOTIFY OR LBS_SORT OR WS_VSCROLL OR WS_BORDER;*) 2365 2366 CB_OKAY = 0; 2367 CB_ERR = -1; 2368 CB_ERRSPACE = -2; 2369 CBN_ERRSPACE = -1; 2370 CBN_SELCHANGE = 1; 2371 CBN_DBLCLK = 2; 2372 CBN_SETFOCUS = 3; 2373 CBN_KILLFOCUS = 4; 2374 CBN_EDITCHANGE = 5; 2375 CBN_EDITUPDATE = 6; 2376 CBN_DROPDOWN = 7; 2377 CBS_SIMPLE = 01H; 2378 CBS_DROPDOWN = 02H; 2379 CBS_DROPDOWNLIST = 03H; 2380 CBS_OWNERDRAWFIXED = 010H; 2381 CBS_OWNERDRAWVARIABLE = 020H; 2382 CBS_AUTOHSCROLL = 040H; 2383 CBS_OEMCONVERT = 080H; 2384 CBS_SORT = 0100H; 2385 CBS_HASSTRINGS = 0200H; 2386 CBS_NOINTEGRALHEIGHT = 0400H; 2387 2388 CB_GETEDITSEL = WM_USER+0; ***** ^ not supported yet 2389 CB_LIMITTEXT = WM_USER+1; ***** ^ not supported yet 2390 CB_SETEDITSEL = WM_USER+2; ***** ^ not supported yet 2391 CB_ADDSTRING = WM_USER+3; ***** ^ not supported yet 2392 CB_DELETESTRING = WM_USER+4; ***** ^ not supported yet 2393 CB_DIR = WM_USER+5; ***** ^ not supported yet 2394 CB_GETCOUNT = WM_USER+6; ***** ^ not supported yet 2395 CB_GETCURSEL = WM_USER+7; ***** ^ not supported yet 2396 CB_GETLBTEXT = WM_USER+8; ***** ^ not supported yet 2397 CB_GETLBTEXTLEN = WM_USER+9; ***** ^ not supported yet 2398 CB_INSERTSTRING = WM_USER+10; ***** ^ not supported yet 2399 CB_RESETCONTENT = WM_USER+11; ***** ^ not supported yet 2400 CB_FINDSTRING = WM_USER+12; ***** ^ not supported yet 2401 CB_SELECTSTRING = WM_USER+13; ***** ^ not supported yet 2402 CB_SETCURSEL = WM_USER+14; ***** ^ not supported yet 2403 CB_SHOWDROPDOWN = WM_USER+15; ***** ^ not supported yet 2404 CB_GETITEMDATA = WM_USER+16; ***** ^ not supported yet 2405 CB_SETITEMDATA = WM_USER+17; ***** ^ not supported yet 2406 CB_GETDROPPEDCONTROLRECT = WM_USER+18; ***** ^ not supported yet 2407 CB_MSGMAX = WM_USER+19; ***** ^ not supported yet 2408 2409 SBS_HORZ = 00H; 2410 SBS_VERT = 01H; 2411 SBS_TOPALIGN = 02H; 2412 SBS_LEFTALIGN = 02H; 2413 SBS_BOTTOMALIGN = 04H; 2414 SBS_RIGHTALIGN = 04H; 2415 SBS_SIZEBOXTOPLEFTALIGN = 02H; 2416 SBS_SIZEBOXBOTTOMRIGHTALIGN = 04H; 2417 SBS_SIZEBOX = 08H; 2418 2419 PROCEDURE OpenSound() : INTEGER; 2420 PROCEDURE CloseSound(); 2421 PROCEDURE SetVoiceQueueSize(_:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 2422 PROCEDURE SetVoiceNote(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2423 PROCEDURE SetVoiceAccent(_:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2424 PROCEDURE SetVoiceEnvelope(_:INTEGER; _:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 2425 PROCEDURE SetSoundNoise(_:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 2426 PROCEDURE SetVoiceSound(_:INTEGER; _:LONGINT; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier 2427 PROCEDURE StartSound() : INTEGER; 2428 PROCEDURE StopSound() : INTEGER; 2429 PROCEDURE WaitSoundState(_:INTEGER) : INTEGER; 2430 PROCEDURE SyncAllVoices() : INTEGER; 2431 PROCEDURE CountVoiceNotes(_:INTEGER) : INTEGER; 2432 PROCEDURE GetThresholdEvent() : LPINT; 2433 PROCEDURE GetThresholdStatus() : INTEGER; 2434 PROCEDURE SetVoiceThreshold(_:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 2435 2436 2437 CONST 2438 S_QUEUEEMPTY = 0; 2439 S_THRESHOLD = 1; 2440 S_ALLTHRESHOLD = 2; 2441 S_NORMAL = 0; 2442 S_LEGATO = 1; 2443 S_STACCATO = 2; 2444 S_PERIOD512 = 0; 2445 S_PERIOD1024 = 1; 2446 S_PERIOD2048 = 2; 2447 S_PERIODVOICE = 3; 2448 S_WHITE512 = 4; 2449 S_WHITE1024 = 5; 2450 S_WHITE2048 = 6; 2451 S_WHITEVOICE = 7; 2452 S_SERDVNA = -1; 2453 S_SEROFM = -2; 2454 S_SERMACT = -3; 2455 S_SERQFUL = -4; 2456 S_SERBDNT = -5; 2457 S_SERDLN = -6; 2458 S_SERDCC = -7; 2459 S_SERDTP = -8; 2460 S_SERDVL = -9; 2461 S_SERDMD = -10; 2462 S_SERDSH = -11; 2463 S_SERDPT = -12; 2464 S_SERDFQ = -13; 2465 S_SERDDR = -14; 2466 S_SERDSR = -15; 2467 S_SERDST = -16; 2468 NOPARITY = 0; 2469 ODDPARITY = 1; 2470 EVENPARITY = 2; 2471 MARKPARITY = 3; 2472 SPACEPARITY = 4; 2473 ONESTOPBIT = 0; 2474 ONE5STOPBITS = 1; 2475 TWOSTOPBITS = 2; 2476 IGNORE = 0; 2477 INFINITE = 0FFFFH; 2478 CE_RXOVER = 01H; 2479 CE_OVERRUN = 02H; 2480 CE_RXPARITY = 04H; 2481 CE_FRAME = 08H; 2482 CE_BREAK = 010H; 2483 CE_CTSTO = 020H; 2484 CE_DSRTO = 040H; 2485 CE_RLSDTO = 080H; 2486 CE_TXFULL = 0100H; 2487 CE_PTO = 0200H; 2488 CE_IOE = 0400H; 2489 CE_DNS = 0800H; 2490 CE_OOP = 01000H; 2491 CE_MODE = 08000H; 2492 IE_BADID = -1; 2493 IE_OPEN = -2; 2494 IE_NOPEN = -3; 2495 IE_MEMORY = -4; 2496 IE_DEFAULT = -5; 2497 IE_HARDWARE = -10; 2498 IE_BYTESIZE = -11; 2499 IE_BAUDRATE = -12; 2500 EV_RXCHAR = 01H; 2501 EV_RXFLAG = 02H; 2502 EV_TXEMPTY = 04H; 2503 EV_CTS = 08H; 2504 EV_DSR = 010H; 2505 EV_RLSD = 020H; 2506 EV_BREAK = 040H; 2507 EV_ERR = 080H; 2508 EV_RING = 0100H; 2509 EV_PERR = 0200H; 2510 SETXOFF = 1; 2511 SETXON = 2; 2512 SETRTS = 3; 2513 CLRRTS = 4; 2514 SETDTR = 5; 2515 CLRDTR = 6; 2516 RESETDEV = 7; 2517 LPTx = 080H; 2518 2519 TYPE 2520 DCBBits = (fBinary,fRtsDisable,fPartiy,fOutxCtsFlow,fOutxDsrFlow, 2521 fDummy6,fDummy7,fDtrDisable,fOutX,fInX,fPeChar,fNull, 2522 fChEvt,fDtrFlow,fRtsFlow,fDummy15); 2523 DCBBitSet = SET OF DCBBits; ***** ^ not supported yet 2524 DCB = RECORD 2525 Id : SHORTCARD; 2526 BaudRate : CARDINAL; 2527 ByteSize : SHORTCARD; 2528 Parity : SHORTCARD; 2529 StopBits : SHORTCARD; 2530 RlsTimeout : CARDINAL; 2531 CtsTimeout : CARDINAL; 2532 DsrTimeout : CARDINAL; 2533 fBits : DCBBitSet; 2534 XonChar : CHAR; 2535 XoffChar : CHAR; 2536 XonLim : CARDINAL; 2537 XoffLim : CARDINAL; 2538 PeChar : CHAR; 2539 EofChar : CHAR; 2540 EvtChar : CHAR; 2541 TxDelay : CARDINAL; 2542 END; (*DCB*) ***** ^ not supported yet 2543 2544 COMSTAT = RECORD 2545 fCtsHold : SHORTCARD; (* bit fields: fCtsHold:1, fDsrHold:1, fRlsdHold:1, fXoffHold:1, fXoffSent:1, fEof:1, fTxim:1 *) 2546 cbInQue : CARDINAL; 2547 cbOutQue : CARDINAL; 2548 END; ***** ^ not supported yet 2549 2550 PROCEDURE OpenComm(_:ARRAY OF CHAR; _:CARDINAL; _:CARDINAL) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier 2551 PROCEDURE SetCommState(VAR _:DCB) : INTEGER; 2552 PROCEDURE GetCommState(_:INTEGER; VAR _:DCB) : INTEGER; ***** ^ duplicate identifier 2553 PROCEDURE ReadComm(_:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2554 PROCEDURE UngetCommChar(_:INTEGER; _:CHAR) : INTEGER; ***** ^ duplicate identifier 2555 PROCEDURE WriteComm(_:INTEGER; _:ARRAY OF CHAR; _:INTEGER) : INTEGER; ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2556 PROCEDURE CloseComm(_:INTEGER) : INTEGER; 2557 PROCEDURE GetCommError(_:INTEGER; VAR _:COMSTAT) : INTEGER; ***** ^ duplicate identifier 2558 PROCEDURE BuildCommDCB(_:ARRAY OF CHAR; VAR _:DCB) : INTEGER; ***** ^ not supported yet ***** ^ duplicate identifier 2559 PROCEDURE TransmitCommChar(_:INTEGER; _:CHAR) : INTEGER; ***** ^ duplicate identifier 2560 PROCEDURE SetCommEventMask(_:INTEGER; _:CARDINAL) : ADDRESS; ***** ^ duplicate identifier ***** ^ undeclared identifier 2561 PROCEDURE GetCommEventMask(_:INTEGER; _:INTEGER) : CARDINAL; ***** ^ duplicate identifier 2562 PROCEDURE SetCommBreak(_:INTEGER) : INTEGER; 2563 PROCEDURE ClearCommBreak(_:INTEGER) : INTEGER; 2564 PROCEDURE FlushComm(_:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 2565 PROCEDURE EscapeCommFunction(_:INTEGER; _:INTEGER) : INTEGER; ***** ^ duplicate identifier 2566 2567 TYPE 2568 2569 MDICREATESTRUCT = RECORD 2570 szClass : LPSTR; 2571 szTitle : LPSTR; 2572 hOwner : CARDINAL; 2573 x : INTEGER; 2574 y : INTEGER; 2575 cx : INTEGER; 2576 cy : INTEGER; 2577 style : LONGINT; 2578 lParam : LONGINT; 2579 END; ***** ^ not supported yet 2580 LPMDICREATESTRUCT = POINTER TO MDICREATESTRUCT; ***** ^ not supported yet 2581 2582 CLIENTCREATESTRUCT = RECORD 2583 hWindowMenu : CARDINAL; 2584 idFirstChild : CARDINAL; 2585 END; ***** ^ not supported yet 2586 LPCLIENTCREATESTRUCT = POINTER TO CLIENTCREATESTRUCT; ***** ^ not supported yet 2587 2588 PROCEDURE DefFrameProc(_:CARDINAL; _:CARDINAL; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2589 PROCEDURE DefMDIChildProc(_:CARDINAL; _:CARDINAL; _:CARDINAL; _:LONGINT) : LONGINT; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 2590 PROCEDURE TranslateMDISysAccel(_:CARDINAL; VAR _:MSG) : INTEGER; ***** ^ duplicate identifier 2591 PROCEDURE ArrangeIconicWindows(_:CARDINAL) : CARDINAL; 2592 2593 CONST 2594 HELP_CONTEXT = 01H; 2595 HELP_QUIT = 02H; 2596 HELP_INDEX = 03H; 2597 HELP_HELPONHELP = 04H; 2598 HELP_SETINDEX = 05H; 2599 HELP_KEY = 0101H; 2600 HELP_MULTIKEY = 0201H; 2601 2602 PROCEDURE WinHelp(hwndMain : CARDINAL; lpszHelp : ARRAY OF CHAR; usCommand : CARDINAL; ulData : LONGCARD) : INTEGER; ***** ^ not supported yet ***** ^ undeclared identifier 2603 2604 TYPE 2605 2606 MULTIKEYHELP = RECORD 2607 mkSize : CARDINAL; 2608 mkKeylist : SHORTCARD; 2609 szKeyphrase : ARRAY [0..0] OF SHORTCARD; ***** ^ not supported yet ***** ^ not supported yet 2610 END; ***** ^ not supported yet 2611 2612 (*# save,call(c_conv=>off,reg_param=>(),near_call=>off),name(prefix=>none)*) 2613 PROCEDURE ProfInsChk() : INTEGER; 2614 PROCEDURE ProfSetup(_:INTEGER; _:INTEGER); ***** ^ duplicate identifier 2615 PROCEDURE ProfSampRate(_:INTEGER; _:INTEGER); ***** ^ duplicate identifier 2616 PROCEDURE ProfStart(); 2617 PROCEDURE ProfStop(); 2618 PROCEDURE ProfClear(); 2619 PROCEDURE ProfFlush(); 2620 PROCEDURE ProfFinish(); 2621 (*# restore *) 2622 2623 PROCEDURE GlobalDosAlloc(_:LONGCARD):LONGCARD; ***** ^ undeclared identifier ***** ^ undeclared identifier 2624 PROCEDURE GlobalDosFree(_:CARDINAL):CARDINAL; 2625 2626 PROCEDURE FatalAppExit(_:CARDINAL;_:ARRAY OF CHAR); ***** ^ duplicate identifier ***** ^ not supported yet 2627 PROCEDURE GetDOSEnvironment():FarADDRESS; ***** ^ undeclared identifier 2628 2629 CONST 2630 CCHDEVICENAME = 32; 2631 2632 TYPE 2633 DEVMODE = RECORD 2634 dmDeviceName : ARRAY[0..CCHDEVICENAME-1] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 2635 dmSpecVersion : CARDINAL; 2636 dmDriverVersion : CARDINAL; 2637 dmSize : CARDINAL; 2638 dmDriverExtra : CARDINAL; 2639 dmFields : LONGCARD; ***** ^ undeclared identifier 2640 dmOrientation : SHORTCARD; 2641 dmPaperSize : SHORTCARD; 2642 dmPaperLength : SHORTCARD; 2643 dmPaperWidth : SHORTCARD; 2644 dmScale : SHORTCARD; 2645 dmCopies : SHORTCARD; 2646 dmDefaultSource : SHORTCARD; 2647 dmPrintQuality : SHORTCARD; 2648 dmColor : SHORTCARD; 2649 dmDuplex : SHORTCARD; 2650 END; (*DEVMODE*) ***** ^ not supported yet 2651 PDEVMODE = POINTER TO DEVMODE; ***** ^ not supported yet 2652 2653 PROCEDURE DefineHandleTable(_:CARDINAL):BOOL; 2654 PROCEDURE DeviceCapabilities(_:ARRAY OF CHAR;_:ARRAY OF CHAR;_:CARDINAL;_:ARRAY OF CHAR;VAR _:DEVMODE):LONGCARD; ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ undeclared identifier 2655 PROCEDURE DeviceMode(_:HWND;_:HANDLE;_:ARRAY OF CHAR;_:ARRAY OF CHAR); ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet 2656 PROCEDURE ExtDeviceMode(_:HWND;_:HANDLE;VAR _:DEVMODE;_:ARRAY OF CHAR;_:ARRAY OF CHAR;VAR _:DEVMODE;_:ARRAY OF CHAR;_:CARDINAL):INTEGER; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ not supported yet ***** ^ duplicate identifier 2657 2658 (* extras *) 2659 2660 PROCEDURE WAITEVENT( c:CARDINAL); 2661 PROCEDURE INITAPP( c:CARDINAL):CARDINAL; 2662 PROCEDURE _exit( c:CARDINAL); 2663 2664 VAR 2665 (* The following are for use as VAR parameters when NULL required *) 2666 NullVar[0:0] : ARRAY[0..0] OF BYTE; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 2667 NullStr[0:0] : ARRAY[0..0] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 2668 NullRect[0:0] : RECT; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 2669 2670 (* Inline utility procedures *) 2671 (*# restore *) 2672 2673 (*# save,call(inline=>on,seg_name=>INLINE,near_call=>off) *) 2674 2675 INLINE PROCEDURE GlobalDiscard(h:HANDLE):HANDLE; 2676 BEGIN 2677 RETURN GlobalReAlloc(h,0,GMEM_MOVEABLE); 2678 END GlobalDiscard; 2679 2680 INLINE PROCEDURE LockData(dummy:WORD):HANDLE; 2681 BEGIN 2682 RETURN LockSegment(0FFFFH); 2683 END LockData; 2684 2685 INLINE PROCEDURE UnlockData(dummy:WORD):HANDLE; 2686 BEGIN 2687 RETURN UnlockSegment(0FFFFH); 2688 END UnlockData; 2689 2690 2691 CONST 2692 (*%T _fcall *) _Ret = 0CBH; (*%E *) 2693 (*%F _fcall *) _Ret = 0C3H; (*%E *) 2694 TYPE 2695 _C1 = ARRAY[0..0] OF BYTE; 2696 _C2 = ARRAY[0..1] OF BYTE; 2697 _C3 = ARRAY[0..2] OF BYTE; 2698 _C4 = ARRAY[0..3] OF BYTE; 2699 _C5 = ARRAY[0..4] OF BYTE; 2700 _C7 = ARRAY[0..6] OF BYTE; 2701 2702 (*# call(reg_param=>(ax,dx),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *) 2703 INLINE PROCEDURE MAKELONG (lo,hi : WORD):LONGWORD = _C1(_Ret); 2704 (*# call(reg_param=>(ax,dx),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *) 2705 INLINE PROCEDURE LOWORD(lw:LONGWORD):WORD = _C1(_Ret); 2706 INLINE PROCEDURE LOCARD(lw:LONGWORD):CARDINAL = _C1(_Ret); 2707 INLINE PROCEDURE LOINT (lw:LONGWORD):INTEGER = _C1(_Ret); 2708 (*# call(reg_param=>(dx,ax),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *) 2709 INLINE PROCEDURE HIWORD(lw:LONGWORD):WORD = _C1(_Ret); 2710 INLINE PROCEDURE HICARD(lw:LONGWORD):CARDINAL = _C1(_Ret); 2711 INLINE PROCEDURE HIINT (lw:LONGWORD):INTEGER = _C1(_Ret); 2712 (*# call(reg_param=>(ax),reg_saved=>(bx,cx,dx,si,di,es,ds,st1,st2)) *) 2713 INLINE PROCEDURE LOBYTE(lw:WORD):BYTE = _C1(_Ret); 2714 (*# call(reg_param=>(ax),reg_saved=>(bx,cx,dx,si,di,es,ds,st1,st2)) *) 2715 INLINE PROCEDURE HIBYTE(lw:WORD):BYTE = _C3(86H,0C4H (* xchg al,ah *),_Ret); 2716 (*# call(reg_param=>(ax,bx,dx),reg_saved=>(cx,si,di,es,ds,st1,st2)) *) 2717 INLINE PROCEDURE RGB(r,g,b:BYTE):LONGWORD = _C5(88H,0DCH (* mov ah,bl *),0B6H,0 (* mov dh,0 *),_Ret); 2718 (*# call(reg_param=>(ax,bx,dx),reg_saved=>(cx,si,di,es,ds,st1,st2)) *) 2719 INLINE PROCEDURE PALETTERGB(r,g,b:BYTE):LONGWORD = _C5(88H,0DCH (* mov ah,bl *),0B6H,2 (* mov dh,2 *),_Ret); 2720 (*# call(reg_param=>(ax),reg_saved=>(bx,cx,si,di,es,ds,st1,st2)) *) 2721 INLINE PROCEDURE PALETTEINDEX(i:WORD):LONGWORD = _C4(0BAH,0,1 (* mov dx,100H *),_Ret); 2722 (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *) 2723 INLINE PROCEDURE GetRValue(rgb:LONGWORD):BYTE = _C1(_Ret); 2724 (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *) 2725 INLINE PROCEDURE GetGValue(rgb:LONGWORD):BYTE = _C3(86H,0C4H (* xchg ah,al *),_Ret); 2726 (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,es,ds,st1,st2)) *) 2727 INLINE PROCEDURE GetBValue(rgb:LONGWORD):BYTE = _C3(88H,0DCH (* mov ah,bl *),_Ret); 2728 (*# call(reg_param=>(ax,bx),reg_saved=>(cx,dx,si,di,ds,es,st0,st1,st2))*) 2729 INLINE PROCEDURE Min(a,b:WORD):WORD=_C7(03BH,0C3H,072H,002H,08BH,0C3H,_Ret); 2730 INLINE PROCEDURE Max(a,b:WORD):WORD=_C7(03BH,0C3H,077H,002H,08BH,0C3H,_Ret); 2731 (*# restore *) 2732 2733 END Windows. 1377 errors