home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / f16_b.zip / WINAPIF.B < prev    next >
Text File  |  1994-01-11  |  56KB  |  1,145 lines
  1. ! Define FWinMain
  2.  
  3. c$pragma aux FWinMain parm( value*2, value*2, value*4, value*2 )
  4.  
  5. ! Define BreakPoint (to be called for setting breakpoints in DLLs)
  6.     
  7. c$pragma aux BreakPoint = zcc
  8.  
  9. c$ifdef __386__
  10.  
  11. c$include win3api.fi
  12.  
  13. c$else
  14.  
  15. ! Force default run-time and windows libraries
  16.  
  17. c$pragma library
  18. c$pragma library windows
  19.  
  20. ! Force startup code to be included
  21.  
  22. c$pragma aux wstart "_cstart_"
  23.  
  24. ! Define alias names for pragmas
  25.  
  26. c$pragma aux (__pascal) callback far export
  27.  
  28. c$pragma aux (__pascal) winapi far
  29.  
  30. c$pragma aux (__cdecl) windecl far
  31.  
  32. ! Define "dll_function" alias (to be used for DLL functions)
  33.  
  34. c$pragma aux (__pascal) dll_function parm( value )
  35.  
  36. !-------------------------------------------------------------------------------
  37. !  Define pragma which invokes 32-bit DLLs from 16-bit Windows applications
  38. !-------------------------------------------------------------------------------
  39.  
  40. c$pragma aux (__pascal) dll32_call = \
  41. c                 z58        \ pop    AX
  42. c                 z5a        \ pop    DX
  43. c                 z0e        \ push    CS
  44. c                 ze80000    \ call    0
  45. c                 z59        \ pop    CX
  46. c                 z83c108    \ add    CX,8h
  47. c                 z51        \ push    CX
  48. c                 z52        \ push    DX
  49. c                 z50        \ push    AX
  50. c                 zcb        \ retf
  51. c                 parm( reference far, value*2, value*4 ) \
  52. c                 modify exact [dx ax cx]
  53.  
  54. !-------------------------------------------------------------------------------
  55. !  General Purpose Defines
  56. !-------------------------------------------------------------------------------
  57.  
  58. c$pragma aux MAKELONG = \
  59. c                   parm ( value*2, value*2 ) [ax] [dx] \
  60. c                   value [dx ax] \
  61. c                   modify exact []
  62. c$pragma aux HIWORD = \
  63. c                   parm( value*4 ) [ax dx] \
  64. c                   value [dx] \
  65. c                   modify exact []
  66. c$pragma aux LOBYTE = \
  67. c                   parm( value*1 ) [al] \
  68. c                   value [al] \
  69. c                   modify exact []
  70. c$pragma aux HIBYTE = \
  71. c                   parm( value*2 ) [ax] \
  72. c                   value [ah] \
  73. c                   modify exact []
  74. c$pragma aux LOWORD = \
  75. c                   parm( value*2 ) [ax] \
  76. c                   value [ax] \
  77. c                   modify exact []
  78.  
  79. !-------------------------------------------------------------------------------
  80. !  KERNEL Section
  81. !-------------------------------------------------------------------------------
  82.  
  83. !---- begin KERNEL -------------------------------------------------------------
  84.  
  85. ! Loader Routines
  86.  
  87. c$pragma aux (winapi) GetVersion parm
  88. c$pragma aux (winapi) GetNumTasks parm
  89. c$pragma aux (winapi) GetCodeHandle parm( value*4 )
  90. c$pragma aux (winapi) GetCodeInfo parm( reference far, reference far )
  91. c$pragma aux (winapi) GetModuleHandle parm( value far )
  92. c$pragma aux (winapi) GetModuleUsage parm( value*2 )
  93. c$pragma aux (winapi) GetModuleFileName parm( value*2, value far, value*2 )
  94. c$pragma aux (winapi) GetInstanceData parm( value*2, reference near, value*2 )
  95. c$pragma aux (winapi) GetProcAddress parm( value*2, value far )
  96. c$pragma aux (winapi) MakeProcInstance parm( value far, value*2 )
  97. c$pragma aux (winapi) FreeProcInstance parm( value far )
  98. c$pragma aux (winapi) LoadLibrary parm( value far )
  99. c$pragma aux (winapi) LoadModule parm( value far, reference far )
  100. c$pragma aux (winapi) FreeModule parm( value*2 )
  101. c$pragma aux (winapi) FreeLibrary parm( value*2 )
  102. c$pragma aux (winapi) GetFreeSpace parm( value*2 )
  103. c$pragma aux (winapi) WinExec parm( value far, value*2 )
  104. c$pragma aux (winapi) DebugBreak parm
  105. c$pragma aux (winapi) OutputDebugString parm( value far )
  106. c$pragma aux (winapi) SwitchStackBack parm
  107. c$pragma aux (winapi) SwitchStackTo parm( value*2, value*2, value*2 )
  108. c$pragma aux (winapi) GetCurrentPDB parm
  109.  
  110. !---- begin OPENFILE -----------------------------------------------------------
  111.  
  112. c$pragma aux (winapi) OpenFile parm( value far, reference far, value*2 )
  113.  
  114. c$pragma aux (winapi) GetTempDrive parm( value*1 )
  115. c$pragma aux (winapi) GetTempFileName parm( value*1, value far, value*2, \
  116. c                                           value far )
  117. c$pragma aux (winapi) SetHandleCount parm( value*2 )
  118.  
  119. c$pragma aux (winapi) GetDriveType parm( value*2 )
  120.  
  121. !---- end OPENFILE -------------------------------------------------------------
  122.  
  123. !---- begin MEMMGR -------------------------------------------------------------
  124.  
  125. c$pragma aux (winapi) GlobalAlloc parm( value*2, value*4 )
  126. c$pragma aux (winapi) GlobalDosAlloc parm( value*4 )
  127. c$pragma aux (winapi) GlobalDosFree parm( value*2 )
  128. c$pragma aux (winapi) GlobalCompact parm( value*4 )
  129. c$pragma aux (winapi) GlobalFree parm( value*2 )
  130. c$pragma aux (winapi) GlobalHandle parm( value*2 )
  131. c$pragma aux (winapi) GlobalLock parm( value*2 )
  132. c$pragma aux (winapi) GlobalReAlloc parm( value*2, value*4, value*2 )
  133. c$pragma aux (winapi) GlobalSize parm( value*2 )
  134. c$pragma aux (winapi) GlobalUnlock parm( value*2 )
  135. c$pragma aux (winapi) GlobalFlags parm( value*2 )
  136. c$pragma aux (winapi) GlobalWire parm( value*2 )
  137. c$pragma aux (winapi) GlobalUnWire parm( value*2 )
  138. c$pragma aux (winapi) GlobalUnlock parm( value*2 )
  139. c$pragma aux (winapi) GlobalLRUNewest parm( value*2 )
  140. c$pragma aux (winapi) GlobalLRUOldest parm( value*2 )
  141. c$pragma aux (winapi) GlobalNotify parm( reference far )
  142. c$pragma aux (winapi) GlobalPageLock parm( value*2 )
  143. c$pragma aux (winapi) GlobalPageUnlock parm( value*2 )
  144. c$pragma aux (winapi) GlobalFix parm( value*2 )
  145. c$pragma aux (winapi) GlobalUnfix parm( value*2 )
  146.  
  147. c$pragma aux (winapi) GlobalDiscard parm( value*2 )
  148.  
  149. c$pragma aux (winapi) LockSegment parm( value*2 )
  150. c$pragma aux (winapi) UnlockSegment parm( value*2 )
  151.  
  152. c$pragma aux (winapi) LockData parm( value*2 )
  153.  
  154. c$pragma aux (winapi) UnLockData parm( value*2 )
  155.  
  156. c$pragma aux (winapi) LocalAlloc parm( value*2, value*2 )
  157. c$pragma aux (winapi) LocalCompact parm( value*2 )
  158. c$pragma aux (winapi) LocalFree parm( value*2 )
  159. c$pragma aux (winapi) LocalHandle parm( value*2 )
  160. c$pragma aux (winapi) LocalInit parm( value*2, value*2, value*2 )
  161. c$pragma aux (winapi) LocalLock parm( value*2 )
  162. c$pragma aux (winapi) LocalNotify parm( reference far )
  163. c$pragma aux (winapi) LocalReAlloc parm( value*2, value*2, value*2 )
  164. c$pragma aux (winapi) LocalSize parm( value*2 )
  165. c$pragma aux (winapi) LocalUnlock parm( value*2 )
  166. c$pragma aux (winapi) LocalFlags parm( value*2 )
  167. c$pragma aux (winapi) LocalShrink parm( value*2, value*2 )
  168.  
  169. c$pragma aux (winapi) LocalDiscard parm( value*2 )
  170.  
  171. !---- end MEMMGR ---------------------------------------------------------------
  172.  
  173. c$pragma aux (winapi) SetSwapAreaSize parm( value*2 )
  174. c$pragma aux (winapi) ValidateFreeSpaces parm
  175. c$pragma aux (winapi) LimitEmsPages parm( value*4 )
  176. c$pragma aux (winapi) SetErrorMode parm( value*2 )
  177. c$pragma aux (winapi) ValidateCodeSegments parm
  178.  
  179. c$pragma aux (winapi) GetDOSEnvironment parm
  180.  
  181. c$pragma aux (winapi) AllocDStoCSAlias parm( value*2 )
  182. c$pragma aux (winapi) AllocSelector parm( value*2 )
  183. c$pragma aux (winapi) ChangeSelector parm( value*2, value*2 )
  184. c$pragma aux (winapi) FreeSelector parm( value*2 )
  185.  
  186. c$pragma aux (winapi) UnlockResource "GlobalUnlock" parm ( value*2 )
  187.  
  188. c$pragma aux (winapi) FindResource parm( value*2, value far, value far )
  189. c$pragma aux (winapi) LoadResource parm( value*2, value*2 )
  190. c$pragma aux (winapi) FreeResource parm( value*2 )
  191. c$pragma aux (winapi) LockResource parm( value*2 )
  192. c$pragma aux (winapi) SetResourceHandler parm( value*2, reference far, \
  193. c                                              reference far )
  194. c$pragma aux (winapi) AllocResource parm( value*2, value*2, value*4 )
  195. c$pragma aux (winapi) SizeofResource parm( value*2, value*2 )
  196. c$pragma aux (winapi) AccessResource parm( value*2, value*2 )
  197.  
  198. c$pragma aux MAKEINTRESOURCE = z31d2 \ xor dx,dx
  199. c                   parm( value*2 ) [ax] \
  200. c                   value [dx ax] \
  201. c                   modify exact [dx]
  202.  
  203. c$pragma aux (winapi) Yield parm
  204. c$pragma aux (winapi) GetCurrentTask parm
  205.  
  206. !---- begin ATOM ---------------------------------------------------------------
  207.  
  208. c$pragma aux (winapi) InitAtomTable parm( value*2 )
  209. c$pragma aux (winapi) AddAtom parm( value far )
  210. c$pragma aux (winapi) DeleteAtom parm( value*2 )
  211. c$pragma aux (winapi) FindAtom parm( value far )
  212. c$pragma aux (winapi) GetAtomName parm( value*2, value far, value*2 )
  213. c$pragma aux (winapi) GlobalAddAtom parm( value far )
  214. c$pragma aux (winapi) GlobalDeleteAtom parm( value*2 )
  215. c$pragma aux (winapi) GlobalFindAtom parm( value far )
  216. c$pragma aux (winapi) GlobalGetAtomName parm( value*2, value far, value*2 )
  217. c$pragma aux (winapi) GetAtomHandle parm( value*2 )
  218.  
  219. !---- end ATOM -----------------------------------------------------------------
  220.  
  221. ! User Profile Routines
  222.  
  223. c$pragma aux (winapi) GetProfileInt parm( value far, value far, value*2 )
  224. c$pragma aux (winapi) GetProfileString parm( value far, value far, value far, \
  225. c                                            value far, value*2 )
  226. c$pragma aux (winapi) WriteProfileString parm( value far, value far, value far )
  227. c$pragma aux (winapi) GetPrivateProfileInt parm( value far, value far, \
  228. c                                                value*2, value far )
  229. c$pragma aux (winapi) GetPrivateProfileString parm( value far, value far, \
  230. c                                                   value far, value far, \
  231. c                                                   value*2, value far )
  232. c$pragma aux (winapi) WritePrivateProfileString parm( value far, value far, \
  233. c                                                     value far, value far )
  234.  
  235. c$pragma aux (winapi) GetWindowsDirectory parm( value far, value*2 )
  236. c$pragma aux (winapi) GetSystemDirectory parm( value far, value*2 )
  237.  
  238. ! Catch() and Throw()
  239.  
  240. c$pragma aux (winapi) Catch parm( reference far )
  241. c$pragma aux (winapi) Throw parm( reference far, value*2 )
  242.  
  243. c$pragma aux (winapi) FatalAppExit parm( value*2, value far )
  244. c$pragma aux (winapi) FatalExit parm( value*2 )
  245.  
  246. c$pragma aux (winapi) SwapRecording parm( value*2 )
  247.  
  248. ! Character Translation Routines
  249.  
  250. c$pragma aux (winapi) AnsiToOem parm( value far, value far )
  251. c$pragma aux (winapi) OemToAnsi parm( value far, value far )
  252. c$pragma aux (winapi) AnsiToOemBuff parm( value far, value far, value*2 )
  253. c$pragma aux (winapi) OemToAnsiBuff parm( value far, value far, value*2 )
  254. c$pragma aux (winapi) AnsiUpper parm( value far )
  255. c$pragma aux (winapi) AnsiUpperBuff parm( value far, value*2 )
  256. c$pragma aux (winapi) AnsiLower parm( value far )
  257. c$pragma aux (winapi) AnsiLowerBuff parm( value far, value*2 )
  258. c$pragma aux (winapi) AnsiNext parm( value far )
  259. c$pragma aux (winapi) AnsiPrev parm( value far, value far )
  260.  
  261. !---- begin KEYBOARDINFO -------------------------------------------------------
  262.  
  263. ! Keyboard Information Routines
  264.  
  265. c$pragma aux (winapi) OemKeyScan parm( value*2 )
  266. c$pragma aux (winapi) VkKeyScan parm( value*2 )
  267. c$pragma aux (winapi) GetKeyboardType parm( value*2 )
  268. c$pragma aux (winapi) MapVirtualKey parm( value*2, value*2 )
  269. c$pragma aux (winapi) GetKBCodePage parm
  270. c$pragma aux (winapi) GetKeyNameText parm( value*4, value far, value*2 )
  271. c$pragma aux (winapi) ToAscii parm( value*2, value*2, reference far, \
  272. c                                   reference far, value*2 )
  273.  
  274. !---- end KEYBOARDINFO ---------------------------------------------------------
  275.  
  276. !---- begin LANGUAGE -----------------------------------------------------------
  277.  
  278. ! Language dependent Routines
  279.  
  280. c$pragma aux (winapi) IsCharAlpha parm( value*1 )
  281. c$pragma aux (winapi) IsCharAlphaNumeric parm( value*1 )
  282. c$pragma aux (winapi) IsCharUpper parm( value*1 )
  283. c$pragma aux (winapi) IsCharLower parm( value*1 )
  284.  
  285. !---- end LANGUAGE -------------------------------------------------------------
  286.  
  287. c$pragma aux (winapi) GetWinFlags parm
  288.  
  289. !---- end KERNEL ---------------------------------------------------------------
  290.  
  291. !-------------------------------------------------------------------------------
  292. !  GDI Section
  293. !-------------------------------------------------------------------------------
  294.  
  295. !---- begin GDI ----------------------------------------------------------------
  296.  
  297. c$pragma aux RGB = z30f6 \ xor dh,dh
  298. c                  parm ( value*1, value*1, value*1 ) [al] [ah] [dl] \
  299. c                  value [ax dx] \
  300. c                  modify exact [dh]
  301. c$pragma aux PALETTERGB = zb602 \ mov dh,02h
  302. c                  parm ( value*1, value*1, value*1 ) [al] [ah] [dl] \
  303. c                  value [ax dx] \
  304. c                  modify exact [dh]
  305. c$pragma aux PALETTEINDEX = zba0001 \ mov dx,0100h
  306. c                  parm ( value*2 ) [ax] \
  307. c                  value [ax dx] \
  308. c                  modify exact [dx]
  309. c$pragma aux GetRValue = \
  310. c                  parm ( value*4 ) [dx ax] \
  311. c                  value [al] \
  312. c                  modify exact []
  313. c$pragma aux GetGValue = \
  314. c                  parm ( value*4 ) [dx ax] \
  315. c                  value [ah] \
  316. c                  modify exact []
  317. c$pragma aux GetBValue = \
  318. c                  parm ( value*4 ) [dx ax] \
  319. c                  value [dl] \
  320. c                  modify exact []
  321.  
  322. !---- begin DRAWTEXT -----------------------------------------------------------
  323.  
  324. c$pragma aux (winapi) DrawText parm( value*2, value far, value*2, \
  325. c                                    reference far, value*2 )
  326. c$pragma aux (winapi) DrawIcon parm( value*2, value*2, value*2, value*2 )
  327.  
  328. !---- end DRAWTEXT -------------------------------------------------------------
  329.  
  330. c$pragma aux (winapi) GetWindowDC parm( value*2 )
  331. c$pragma aux (winapi) GetDC parm( value*2 )
  332. c$pragma aux (winapi) ReleaseDC parm( value*2, value*2 )
  333. c$pragma aux (winapi) CreateDC parm( value far, value far, value far, \
  334. c                                    value far )
  335. c$pragma aux (winapi) CreateIC parm( value far, value far, value far, \
  336. c                                    value far )
  337. c$pragma aux (winapi) CreateCompatibleDC parm( value*2 )
  338. c$pragma aux (winapi) DeleteDC parm( value*2 )
  339. c$pragma aux (winapi) SaveDC parm( value*2 )
  340. c$pragma aux (winapi) RestoreDC parm( value*2, value*2 )
  341. c$pragma aux (winapi) MoveTo parm( value*2, value*2, value*2 )
  342. c$pragma aux (winapi) GetCurrentPosition parm( value*2 )
  343. c$pragma aux (winapi) LineTo parm( value*2, value*2, value*2 )
  344. c$pragma aux (winapi) GetDCOrg parm( value*2 )
  345.  
  346. c$pragma aux (winapi) MulDiv parm( value*2, value*2, value*2 )
  347.  
  348. c$pragma aux (winapi) ExtTextOut parm( value*2, value*2, value*2, value*2, \
  349. c                                      reference far, value far, value*2, \
  350. c                                      reference far )
  351.  
  352. c$pragma aux (winapi) Polyline parm( value*2, reference far, value*2 )
  353. c$pragma aux (winapi) Polygon parm( value*2, reference far, value*2 )
  354. c$pragma aux (winapi) PolyPolygon parm( value*2, reference far, \
  355. c                                       reference far, value*2 )
  356.  
  357. c$pragma aux (winapi) Rectangle parm( value*2, value*2, value*2, value*2, \
  358. c                                     value*2 )
  359. c$pragma aux (winapi) RoundRect parm( value*2, value*2, value*2, value*2, \
  360. c                                     value*2, value*2, value*2 )
  361. c$pragma aux (winapi) Ellipse parm( value*2, value*2, value*2, value*2, \
  362. c                                   value*2 )
  363. c$pragma aux (winapi) Arc parm( value*2, value*2, value*2, value*2, \
  364. c                                   value*2, value*2, value*2, value*2, \
  365. c                                   value*2 )
  366. c$pragma aux (winapi) Chord parm( value*2, value*2, value*2, value*2, \
  367. c                                 value*2, value*2, value*2, value*2, \
  368. c                                 value*2 )
  369. c$pragma aux (winapi) Pie parm( value*2, value*2, value*2, value*2, value*2, \
  370. c                               value*2, value*2, value*2, value*2 )
  371. c$pragma aux (winapi) PatBlt parm( value*2, value*2, value*2, value*2, \
  372. c                                  value*2, value*4 )
  373. c$pragma aux (winapi) BitBlt parm( value*2, value*2, value*2, value*2, \
  374. c                                  value*2, value*2, value*2, value*2, value*4 )
  375. c$pragma aux (winapi) StretchBlt parm( value*2, value*2, value*2, value*2, \
  376. c                                      value*2, value*2, value*2, value*2, \
  377. c                                      value*2, value*2, value*4 )
  378. c$pragma aux (winapi) TextOut parm( value*2, value*2, value*2, value far, \
  379. c                                   value*2 )
  380. c$pragma aux (winapi) TabbedTextOut parm( value*2, value*2, value*2, \
  381. c                                         value far, value*2, value*2, \
  382. c                                         reference far, value*2 )
  383. c$pragma aux (winapi) GetCharWidth parm( value*2, value*2, value*2, \
  384. c                                        reference far )
  385. c$pragma aux (winapi) SetPixel parm( value*2, value*2, value*2, value*4 )
  386. c$pragma aux (winapi) GetPixel parm( value*2, value*2, value*2 )
  387. c$pragma aux (winapi) FloodFill parm( value*2, value*2, value*2, value*4 )
  388. c$pragma aux (winapi) ExtFloodFill parm( value*2, value*2, value*2, \
  389. c                                        value*4, value*2 )
  390. c$pragma aux (winapi) LineDDA parm( value*2, value*2, value*2, value*2, \
  391. c                                   reference far, reference far )
  392.  
  393. c$pragma aux (winapi) GetStockObject parm( value*2 )
  394.  
  395. c$pragma aux (winapi) CreatePen parm( value*2, value*2, value*4 )
  396. c$pragma aux (winapi) CreatePenIndirect parm( reference far )
  397.  
  398. c$pragma aux (winapi) CreateSolidBrush parm( value*4 )
  399. c$pragma aux (winapi) CreateHatchBrush parm( value*2, value*4 )
  400. c$pragma aux (winapi) SetBrushOrg parm( value*2, value*2, value*2 )
  401. c$pragma aux (winapi) GetBrushOrg parm( value*2 )
  402. c$pragma aux (winapi) CreatePatternBrush parm( value*2 )
  403. c$pragma aux (winapi) CreateBrushIndirect parm( reference far )
  404.  
  405. c$pragma aux (winapi) CreateBitmap parm( value*2, value*2, value*1, \
  406. c                                        value*1, reference far )
  407. c$pragma aux (winapi) CreateBitmapIndirect parm( reference far )
  408. c$pragma aux (winapi) CreateCompatibleBitmap parm( value*2, value*2, value*2 )
  409. c$pragma aux (winapi) CreateDiscardableBitmap parm( value*2, value*2, value*2 )
  410.  
  411. c$pragma aux (winapi) SetBitmapBits parm( value*2, value*4, reference far )
  412. c$pragma aux (winapi) GetBitmapBits parm( value*2, value*4, reference far )
  413. c$pragma aux (winapi) SetBitmapDimension parm( value*2, value*2, value*2 )
  414. c$pragma aux (winapi) GetBitmapDimension parm( value*2 )
  415.  
  416. c$pragma aux (winapi) CreateFont parm( value*2, value*2, value*2, value*2, \
  417. c                                      value*2, value*1, value*1, value*1, \
  418. c                                      value*1, value*1, value*1, value*1, \
  419. c                                      value*1, value far )
  420. c$pragma aux (winapi) CreateFontIndirect parm( reference far )
  421.  
  422. c$pragma aux (winapi) SelectClipRgn parm( value*2, value*2 )
  423. c$pragma aux (winapi) CreateRectRgn parm( value*2, value*2, value*2, \
  424. c                                         value*2 )
  425. c$pragma aux (winapi) SetRectRgn parm( value*2, value*2, value*2, value*2, \
  426. c                                      value*2 )
  427. c$pragma aux (winapi) CreateRectRgnIndirect parm( reference far )
  428. c$pragma aux (winapi) CreateEllipticRgnIndirect parm( reference far )
  429. c$pragma aux (winapi) CreateEllipticRgn parm( value*2, value*2, value*2, \
  430. c                                             value*2 )
  431. c$pragma aux (winapi) CreatePolygonRgn parm( reference far, value*2, value*2 )
  432. c$pragma aux (winapi) CreatePolyPolygonRgn parm( reference far, \
  433. c                                                reference far, value*2, \
  434. c                                                value*2 )
  435. c$pragma aux (winapi) CreateRoundRectRgn parm( value*2, value*2, value*2, \
  436. c                                              value*2, value*2, value*2 )
  437.  
  438. c$pragma aux (winapi) GetObject parm( value*2, value*2, reference far )
  439. c$pragma aux (winapi) DeleteObject parm( value*2 )
  440. c$pragma aux (winapi) SelectObject parm( value*2, value*2 )
  441. c$pragma aux (winapi) UnrealizeObject parm( value*2 )
  442.  
  443. c$pragma aux (winapi) SetBkColor parm( value*2, value*4 )
  444. c$pragma aux (winapi) GetBkColor parm( value*2 )
  445. c$pragma aux (winapi) SetBkMode parm( value*2, value*2 )
  446. c$pragma aux (winapi) GetBkMode parm( value*2 )
  447. c$pragma aux (winapi) SetTextColor parm( value*2, value*4 )
  448. c$pragma aux (winapi) GetTextColor parm( value*2 )
  449. c$pragma aux (winapi) SetTextAlign parm( value*2, value*2 )
  450. c$pragma aux (winapi) GetTextAlign parm( value*2 )
  451. c$pragma aux (winapi) SetMapperFlags parm( value*2, value*4 )
  452. c$pragma aux (winapi) GetAspectRatioFilter parm( value*2 )
  453. c$pragma aux (winapi) GetNearestColor parm( value*2, value*4 )
  454. c$pragma aux (winapi) SetROP2 parm( value*2, value*2 )
  455. c$pragma aux (winapi) GetROP2 parm( value*2 )
  456. c$pragma aux (winapi) SetStretchBltMode parm( value*2, value*2 )
  457. c$pragma aux (winapi) GetStretchBltMode parm( value*2 )
  458. c$pragma aux (winapi) SetPolyFillMode parm( value*2, value*2 )
  459. c$pragma aux (winapi) GetPolyFillMode parm( value*2 )
  460. c$pragma aux (winapi) SetMapMode parm( value*2, value*2 )
  461. c$pragma aux (winapi) GetMapMode parm( value*2 )
  462. c$pragma aux (winapi) SetWindowOrg parm( value*2, value*2, value*2 )
  463. c$pragma aux (winapi) GetWindowOrg parm( value*2 )
  464. c$pragma aux (winapi) SetWindowExt parm( value*2, value*2, value*2 )
  465. c$pragma aux (winapi) GetWindowExt parm( value*2 )
  466. c$pragma aux (winapi) SetViewportOrg parm( value*2, value*2, value*2 )
  467. c$pragma aux (winapi) GetViewportOrg parm( value*2 )
  468. c$pragma aux (winapi) SetViewportExt parm( value*2, value*2, value*2 )
  469. c$pragma aux (winapi) GetViewportExt parm( value*2 )
  470. c$pragma aux (winapi) OffsetViewportOrg parm( value*2, value*2, value*2 )
  471. c$pragma aux (winapi) ScaleViewportExt parm( value*2, value*2, value*2, \
  472. c                                            value*2, value*2 )
  473. c$pragma aux (winapi) OffsetWindowOrg parm( value*2, value*2, value*2 )
  474. c$pragma aux (winapi) ScaleWindowExt parm( value*2, value*2, value*2, \
  475. c                                          value*2, value*2 )
  476.  
  477. c$pragma aux (winapi) GetClipBox parm( value*2, reference far )
  478. c$pragma aux (winapi) IntersectClipRect parm( value*2, value*2, value*2, \
  479. c                                             value*2, value*2 )
  480. c$pragma aux (winapi) OffsetClipRgn parm( value*2, value*2, value*2 )
  481. c$pragma aux (winapi) ExcludeClipRect parm( value*2, value*2, value*2, \
  482. c                                           value*2, value*2 )
  483. c$pragma aux (winapi) PtVisible parm( value*2, value*2, value*2 )
  484. c$pragma aux (winapi) CombineRgn parm( value*2, value*2, value*2, value*2 )
  485. c$pragma aux (winapi) EqualRgn parm( value*2, value*2 )
  486. c$pragma aux (winapi) OffsetRgn parm( value*2, value*2, value*2 )
  487. c$pragma aux (winapi) GetRgnBox parm( value*2, reference far )
  488.  
  489. c$pragma aux (winapi) SetTextJustification parm( value*2, value*2, value*2 )
  490. c$pragma aux (winapi) GetTextExtent parm( value*2, value far, value*2 )
  491. c$pragma aux (winapi) GetTabbedTextExtent parm( value*2, value far, \
  492. c                                               value*2, value*2, \
  493. c                                               reference far )
  494. c$pragma aux (winapi) SetTextCharacterExtra parm( value*2, value*2 )
  495. c$pragma aux (winapi) GetTextCharacterExtra parm( value*2 )
  496.  
  497. c$pragma aux (winapi) GetMetaFile parm( value far )
  498. c$pragma aux (winapi) DeleteMetaFile parm( value*2 )
  499. c$pragma aux (winapi) CopyMetaFile parm( value*2, value far )
  500.  
  501. !---- begin METAFILE -----------------------------------------------------------
  502.  
  503. c$pragma aux (winapi) PlayMetaFileRecord parm( value*2, reference far, \
  504. c                                              reference far, value*2 )
  505. c$pragma aux (winapi) EnumMetaFile parm( value*2, value*2, reference far, \
  506. c                                        reference far )
  507.  
  508. !---- end METAFILE -------------------------------------------------------------
  509.  
  510. c$pragma aux (winapi) PlayMetaFile parm( value*2, value*2 )
  511. c$pragma aux (winapi) Escape parm( value*2, value*2, value*2, \
  512. c                                  reference far, reference far )
  513. c$pragma aux (winapi) EnumFonts parm( value*2, value far, reference far, \
  514. c                                     reference far )
  515. c$pragma aux (winapi) EnumObjects parm( value*2, value*2, reference far, \
  516. c                                       reference far )
  517. c$pragma aux (winapi) GetTextFace parm( value*2, value*2, value far )
  518.  
  519. !---- begin TEXTMETRIC ---------------------------------------------------------
  520.  
  521. c$pragma aux (winapi) GetTextMetrics parm( value*2, reference far )
  522.  
  523. !---- end TEXTMETRIC -----------------------------------------------------------
  524.  
  525. c$pragma aux (winapi) GetDeviceCaps parm( value*2, value*2 )
  526.  
  527. c$pragma aux (winapi) SetEnvironment parm( value far, value far, value*2 )
  528. c$pragma aux (winapi) GetEnvironment parm( value far, value far, value*2 )
  529.  
  530. c$pragma aux (winapi) DPtoLP parm( value*2, reference far, value*2 )
  531. c$pragma aux (winapi) LPtoDP parm( value*2, reference far, value*2 )
  532.  
  533. c$pragma aux (winapi) CreateMetaFile parm( value far )
  534. c$pragma aux (winapi) CloseMetaFile parm( value*2 )
  535. c$pragma aux (winapi) GetMetaFileBits parm( value*2 )
  536. c$pragma aux (winapi) SetMetaFileBits parm( value*2 )
  537.  
  538. c$pragma aux (winapi) SetDIBits parm( value*2, value*2, value*2, value*2, \
  539. c                                     reference far, reference far, value*2 )
  540. c$pragma aux (winapi) GetDIBits parm( value*2, value*2, value*2, value*2, \
  541. c                                     reference far, reference far, value*2 )
  542. c$pragma aux (winapi) SetDIBitsToDevice parm( value*2, value*2, value*2, \
  543. c                                             value*2, value*2, value*2, \
  544. c                                             value*2, value*2, value*2, \
  545. c                                             reference far, \
  546. c                                             reference far, value*2 )
  547. c$pragma aux (winapi) CreateDIBitmap parm( value*2, reference far, \
  548. c                                          value*4, reference far, \
  549. c                                          reference far, value*2 )
  550. c$pragma aux (winapi) CreateDIBPatternBrush parm( value*2, value*2 )
  551. c$pragma aux (winapi) StretchDIBits parm( value*2, value*2, value*2, \
  552. c                                         value*2, value*2, value*2, \
  553. c                                         value*2, value*2, value*2, \
  554. c                                         reference far, reference far, \
  555. c                                         value*2, value*4 )
  556.  
  557. c$pragma aux (winapi) CreatePalette parm( reference far )
  558. c$pragma aux (winapi) SelectPalette parm( value*2, value*2, value*2 )
  559. c$pragma aux (winapi) RealizePalette parm( value*2 )
  560. c$pragma aux (winapi) UpdateColors parm( value*2 )
  561. c$pragma aux (winapi) AnimatePalette parm( value*2, value*2, value*2, \
  562. c                                          reference far )
  563. c$pragma aux (winapi) SetPaletteEntries parm( value*2, value*2, value*2, \
  564. c                                             reference far )
  565. c$pragma aux (winapi) GetPaletteEntries parm( value*2, value*2, value*2, \
  566. c                                             reference far )
  567. c$pragma aux (winapi) GetNearestPaletteIndex parm( value*2, value*4 )
  568. c$pragma aux (winapi) ResizePalette parm( value*2, value*2 )
  569.  
  570. c$pragma aux (winapi) GetSystemPaletteEntries parm( value*2, value*2, \
  571. c                                                   value*2, \
  572. c                                                   reference far )
  573. c$pragma aux (winapi) GetSystemPaletteUse parm( value*2, value*2 )
  574. c$pragma aux (winapi) SetSystemPaletteUse parm( value*2, value*2 )
  575.  
  576. !---- end GDI ------------------------------------------------------------------
  577.  
  578. !-------------------------------------------------------------------------------
  579. !      USER Section
  580. !-------------------------------------------------------------------------------
  581.  
  582. !---- begin USER ---------------------------------------------------------------
  583.  
  584. c$pragma aux (winapi) wvsprintf parm( value far, value far, reference far )
  585. c$pragma aux (windecl) wsprintf parm( value far, value far )
  586.  
  587. !---- begin WINMESSAGES --------------------------------------------------------
  588.  
  589. c$pragma aux (winapi) RegisterWindowMessage parm( value far )
  590.  
  591. !---- end WINMESSAGES ----------------------------------------------------------
  592.  
  593. !---- begin MSG ----------------------------------------------------------------
  594.  
  595. ! Message Function Templates
  596.  
  597. c$pragma aux (winapi) GetMessage parm( reference far, value*2, value*2, \
  598. c                                      value*2 )
  599. c$pragma aux (winapi) TranslateMessage parm( reference far )
  600. c$pragma aux (winapi) DispatchMessage parm( reference far )
  601. c$pragma aux (winapi) PeekMessage parm( reference far, value*2, value*2, \
  602. c                                       value*2, value*2 )
  603.  
  604. !---- end MSG ------------------------------------------------------------------
  605.  
  606. c$pragma aux (winapi) ExitWindows parm( value*4, value*2 )
  607.  
  608. c$pragma aux (winapi) SwapMouseButton parm( value*2 )
  609. c$pragma aux (winapi) GetMessagePos parm
  610. c$pragma aux (winapi) GetMessageTime parm
  611.  
  612. c$pragma aux (winapi) GetSysModalWindow parm
  613. c$pragma aux (winapi) SetSysModalWindow parm( value*2 )
  614.  
  615. c$pragma aux (winapi) SendMessage parm( value*2, value*2, value*2, value*4 )
  616. c$pragma aux (winapi) PostMessage parm( value*2, value*2, value*2, value*4 )
  617. c$pragma aux (winapi) PostAppMessage parm( value*2, value*2, value*2, value*4 )
  618. c$pragma aux (winapi) ReplyMessage parm( value*4 )
  619. c$pragma aux (winapi) WaitMessage parm
  620. c$pragma aux (winapi) DefWindowProc parm( value*2, value*2, value*2, value*4 )
  621. c$pragma aux (winapi) PostQuitMessage parm( value*2 )
  622. c$pragma aux (winapi) CallWindowProc parm( reference far, value*2, \
  623. c                                          value*2, value*2, value*4 )
  624. c$pragma aux (winapi) InSendMessage parm
  625.  
  626. c$pragma aux (winapi) GetDoubleClickTime parm
  627. c$pragma aux (winapi) SetDoubleClickTime parm( value*2 )
  628.  
  629. c$pragma aux (winapi) RegisterClass parm( reference far )
  630. c$pragma aux (winapi) UnregisterClass parm( value far, value*2 )
  631. c$pragma aux (winapi) GetClassInfo parm( value*2, value far, reference far )
  632.  
  633. c$pragma aux (winapi) SetMessageQueue parm( value*2 )
  634.  
  635. c$pragma aux (winapi) CreateWindow parm( value far, value far, value*4, \
  636. c                                        value*2, value*2, value*2, \
  637. c                                        value*2, value*2, value*2, \
  638. c                                        value*2, value*4 )
  639. c$pragma aux (winapi) CreateWindowEx parm( value*4, value far, \
  640. c                                          value far, value*4, value*2, \
  641. c                                          value*2, value*2, value*2, \
  642. c                                          value*2, value*2, value*2, \
  643. c                                          value*4 )
  644.  
  645. c$pragma aux (winapi) IsWindow parm( value*2 )
  646. c$pragma aux (winapi) IsChild parm( value*2, value*2 )
  647. c$pragma aux (winapi) DestroyWindow parm( value*2 )
  648.  
  649. c$pragma aux (winapi) ShowWindow parm( value*2, value*2 )
  650. c$pragma aux (winapi) FlashWindow parm( value*2, value*2 )
  651. c$pragma aux (winapi) ShowOwnedPopups parm( value*2, value*2 )
  652.  
  653. c$pragma aux (winapi) OpenIcon parm( value*2 )
  654. c$pragma aux (winapi) CloseWindow parm( value*2 )
  655. c$pragma aux (winapi) MoveWindow parm( value*2, value*2, value*2, value*2, \
  656. c                                      value*2, value*2 )
  657. c$pragma aux (winapi) SetWindowPos parm( value*2, value*2, value*2, \
  658. c                                        value*2, value*2, value*2, \
  659. c                                        value*2 )
  660.  
  661. !---- begin DEFERWINDOWPOS -----------------------------------------------------
  662.  
  663. c$pragma aux (winapi) BeginDeferWindowPos parm( value*2 )
  664. c$pragma aux (winapi) DeferWindowPos parm( value*2, value*2, value*2, \
  665. c                                          value*2, value*2, value*2, \
  666. c                                          value*2, value*2 )
  667. c$pragma aux (winapi) EndDeferWindowPos parm( value*2 )
  668.  
  669. !---- end DEFERWINDOWPOS -------------------------------------------------------
  670.  
  671. c$pragma aux (winapi) IsWindowVisible parm( value*2 )
  672. c$pragma aux (winapi) IsIconic parm( value*2 )
  673. c$pragma aux (winapi) AnyPopup parm
  674. c$pragma aux (winapi) BringWindowToTop parm( value*2 )
  675. c$pragma aux (winapi) IsZoomed parm( value*2 )
  676.  
  677. !---- begin CTLMGR -------------------------------------------------------------
  678.  
  679. c$pragma aux (winapi) CreateDialog parm( value*2, value far, value*2, value*4 )
  680. c$pragma aux (winapi) CreateDialogIndirect parm( value*2, reference far, \
  681. c                                                value*2, value*4 )
  682. c$pragma aux (winapi) CreateDialogParam parm( value*2, value far, value*2, \
  683. c                                             value*4, value*4 )
  684. c$pragma aux (winapi) CreateDialogIndirectParam parm( value*2, reference far, \
  685. c                                                     value*2, value*4, \
  686. c                                                     value*4 )
  687. c$pragma aux (winapi) DialogBox parm( value*2, value far, value*2, value*4 )
  688. c$pragma aux (winapi) DialogBoxIndirect parm( value*2, value*2, value*2, \
  689. c                                             value*4 )
  690. c$pragma aux (winapi) DialogBoxParam parm( value*2, value far, value*2, \
  691. c                                          value*4, value*4 )
  692. c$pragma aux (winapi) DialogBoxIndirectParam parm( value*2, value*2, value*2, \
  693. c                                                  value*4, value*4 )
  694. c$pragma aux (winapi) EndDialog parm( value*2, value*2 )
  695. c$pragma aux (winapi) GetDlgItem parm( value*2, value*2 )
  696. c$pragma aux (winapi) SetDlgItemInt parm( value*2, value*2, value*2, \
  697. c                                         value*2 )
  698. c$pragma aux (winapi) GetDlgItemInt parm( value*2, value*2, reference far, \
  699. c                                         value*2 )
  700. c$pragma aux (winapi) SetDlgItemText parm( value*2, value*2, value far )
  701. c$pragma aux (winapi) GetDlgItemText parm( value*2, value*2, value far, \
  702. c                                          value*2 )
  703. c$pragma aux (winapi) CheckDlgButton parm( value*2, value*2, value*2 )
  704. c$pragma aux (winapi) CheckRadioButton parm( value*2, value*2, value*2, \
  705. c                                            value*2 )
  706. c$pragma aux (winapi) IsDlgButtonChecked parm( value*2, value*2 )
  707. c$pragma aux (winapi) SendDlgItemMessage parm( value*2, value*2, value*2, \
  708. c                                              value*2, value*4 )
  709. c$pragma aux (winapi) GetNextDlgGroupItem parm( value*2, value*2, value*2 )
  710. c$pragma aux (winapi) GetNextDlgTabItem parm( value*2, value*2, value*2 )
  711. c$pragma aux (winapi) GetDlgCtrlID parm( value*2 )
  712. c$pragma aux (winapi) GetDialogBaseUnits parm
  713. c$pragma aux (winapi) DefDlgProc parm( value*2, value*2, value*2, value*4 )
  714.  
  715. !---- end CTLMGR ---------------------------------------------------------------
  716.  
  717. !---- begin MSG ----------------------------------------------------------------
  718.  
  719. c$pragma aux (winapi) CallMsgFilter parm( reference far, value*2 )
  720.  
  721. !---- end MSG ------------------------------------------------------------------
  722.  
  723. !---- begin CLIPBOARD ----------------------------------------------------------
  724.  
  725. ! Clipboard Manager Functions
  726.  
  727. c$pragma aux (winapi) OpenClipboard parm( value*2 )
  728. c$pragma aux (winapi) CloseClipboard parm
  729. c$pragma aux (winapi) GetClipboardOwner parm
  730. c$pragma aux (winapi) SetClipboardViewer parm( value*2 )
  731. c$pragma aux (winapi) GetClipboardViewer parm
  732. c$pragma aux (winapi) ChangeClipboardChain parm( value*2, value*2 )
  733. c$pragma aux (winapi) SetClipboardData parm( value*2, value*2 )
  734. c$pragma aux (winapi) GetClipboardData parm( value*2 )
  735. c$pragma aux (winapi) RegisterClipboardFormat parm( value far )
  736. c$pragma aux (winapi) CountClipboardFormats parm
  737. c$pragma aux (winapi) EnumClipboardFormats parm( value*2 )
  738. c$pragma aux (winapi) GetClipboardFormatName parm( value*2, value far, value*2 )
  739. c$pragma aux (winapi) EmptyClipboard parm
  740. c$pragma aux (winapi) IsClipboardFormatAvailable parm( value*2 )
  741. c$pragma aux (winapi) GetPriorityClipboardFormat parm( reference far, value*2 )
  742.  
  743. !---- end CLIPBOARD ------------------------------------------------------------
  744.  
  745. c$pragma aux (winapi) SetFocus parm( value*2 )
  746. c$pragma aux (winapi) GetFocus parm
  747. c$pragma aux (winapi) GetActiveWindow parm
  748. c$pragma aux (winapi) GetKeyState parm( value*2 )
  749. c$pragma aux (winapi) GetAsyncKeyState parm( value*2 )
  750. c$pragma aux (winapi) GetKeyboardState parm( reference far )
  751. c$pragma aux (winapi) SetKeyboardState parm( reference far )
  752. c$pragma aux (winapi) EnableHardwareInput parm( value*2 )
  753. c$pragma aux (winapi) GetInputState parm
  754. c$pragma aux (winapi) GetCapture parm
  755. c$pragma aux (winapi) SetCapture parm( value*2 )
  756. c$pragma aux (winapi) ReleaseCapture parm
  757.  
  758. ! Windows Functions
  759.  
  760. c$pragma aux (winapi) SetTimer parm( value*2, value*2, value*2, value*4 )
  761. c$pragma aux (winapi) KillTimer parm( value*2, value*2 )
  762.  
  763. c$pragma aux (winapi) EnableWindow parm( value*2, value*2 )
  764. c$pragma aux (winapi) IsWindowEnabled parm( value*2 )
  765.  
  766. c$pragma aux (winapi) LoadAccelerators parm( value*2, value far )
  767.  
  768. !---- begin MSG ----------------------------------------------------------------
  769.  
  770. c$pragma aux (winapi) TranslateAccelerator parm( value*2, value*2, \
  771. c                                                reference far )
  772.  
  773. !---- end MSG ------------------------------------------------------------------
  774.  
  775. !---- begin SYSMETRICS ---------------------------------------------------------
  776.  
  777. c$pragma aux (winapi) GetSystemMetrics parm( value*2 )
  778.  
  779. !---- end SYSMETRICS -----------------------------------------------------------
  780.  
  781. !---- begin MENUS --------------------------------------------------------------
  782.  
  783. c$pragma aux (winapi) LoadMenu parm( value*2, value far )
  784. c$pragma aux (winapi) LoadMenuIndirect parm( reference far )
  785. c$pragma aux (winapi) GetMenu parm( value*2 )
  786. c$pragma aux (winapi) SetMenu parm( value*2, value*2 )
  787. c$pragma aux (winapi) ChangeMenu parm( value*2, value*2, value far, \
  788. c                                      value*2, value*2 )
  789. c$pragma aux (winapi) HiliteMenuItem parm( value*2, value*2, value*2, \
  790. c                                          value*2 )
  791. c$pragma aux (winapi) GetMenuString parm( value*2, value*2, value far, \
  792. c                                         value*2, value*2 )
  793. c$pragma aux (winapi) GetMenuState parm( value*2, value*2, value*2 )
  794. c$pragma aux (winapi) DrawMenuBar parm( value*2 )
  795. c$pragma aux (winapi) GetSystemMenu parm( value*2, value*2 )
  796. c$pragma aux (winapi) CreateMenu parm
  797. c$pragma aux (winapi) CreatePopupMenu parm
  798. c$pragma aux (winapi) DestroyMenu parm( value*2 )
  799. c$pragma aux (winapi) CheckMenuItem parm( value*2, value*2, value*2 )
  800. c$pragma aux (winapi) EnableMenuItem parm( value*2, value*2, value*2 )
  801. c$pragma aux (winapi) GetSubMenu parm( value*2, value*2 )
  802. c$pragma aux (winapi) GetMenuItemID parm( value*2, value*2 )
  803. c$pragma aux (winapi) GetMenuItemCount parm( value*2 )
  804.  
  805. c$pragma aux (winapi) InsertMenu parm( value*2, value*2, value*2, value*2, \
  806. c                                      value far )
  807. c$pragma aux (winapi) AppendMenu parm( value*2, value*2, value*2, value far )
  808. c$pragma aux (winapi) ModifyMenu parm( value*2, value*2, value*2, value*2, \
  809. c                                      value far )
  810. c$pragma aux (winapi) RemoveMenu parm( value*2, value*2, value*2 )
  811. c$pragma aux (winapi) DeleteMenu parm( value*2, value*2, value*2 )
  812. c$pragma aux (winapi) SetMenuItemBitmaps parm( value*2, value*2, value*2, \
  813. c                                              value*2, value*2 )
  814. c$pragma aux (winapi) GetMenuCheckMarkDimensions parm
  815. c$pragma aux (winapi) TrackPopupMenu parm( value*2, value*2, value*2, \
  816. c                                          value*2, value*2, value*2, \
  817. c                                          reference far )
  818.  
  819. !---- end MENUS ----------------------------------------------------------------
  820.  
  821. c$pragma aux (winapi) GrayString parm( value*2, value*2, reference far, \
  822. c                                      value*4, value*2, value*2, value*2, \
  823. c                                      value*2, value*2 )
  824. c$pragma aux (winapi) UpdateWindow parm( value*2 )
  825. c$pragma aux (winapi) SetActiveWindow parm( value*2 )
  826.  
  827. c$pragma aux (winapi) BeginPaint parm( value*2, reference far )
  828. c$pragma aux (winapi) EndPaint parm( value*2, reference far )
  829. c$pragma aux (winapi) GetUpdateRect parm( value*2, reference far, value*2 )
  830. c$pragma aux (winapi) GetUpdateRgn parm( value*2, value*2, value*2 )
  831.  
  832. c$pragma aux (winapi) ExcludeUpdateRgn parm( value*2, value*2 )
  833.  
  834. c$pragma aux (winapi) InvalidateRect parm( value*2, reference far, value*2 )
  835. c$pragma aux (winapi) ValidateRect parm( value*2, reference far )
  836.  
  837. c$pragma aux (winapi) InvalidateRgn parm( value*2, value*2, value*2 )
  838. c$pragma aux (winapi) ValidateRgn parm( value*2, value*2 )
  839.  
  840. c$pragma aux (winapi) ScrollWindow parm( value*2, value*2, value*2, \
  841. c                                        reference far, reference far )
  842. c$pragma aux (winapi) ScrollDC parm( value*2, value*2, value*2, \
  843. c                                    reference far, reference far, \
  844. c                                    value*2, reference far )
  845.  
  846. !---- begin SCROLL -------------------------------------------------------------
  847.  
  848. c$pragma aux (winapi) SetScrollPos parm( value*2, value*2, value*2, value*2 )
  849. c$pragma aux (winapi) GetScrollPos parm( value*2, value*2 )
  850. c$pragma aux (winapi) SetScrollRange parm( value*2, value*2, value*2, \
  851. c                                          value*2, value*2 )
  852. c$pragma aux (winapi) GetScrollRange parm( value*2, value*2, \
  853. c                                          reference far, reference far )
  854. c$pragma aux (winapi) ShowScrollBar parm( value*2, value*2, value*2 )
  855.  
  856. !---- end SCROLL ---------------------------------------------------------------
  857.  
  858. c$pragma aux (winapi) SetProp parm( value*2, value far, value*2 )
  859. c$pragma aux (winapi) GetProp parm( value*2, value far )
  860. c$pragma aux (winapi) RemoveProp parm( value*2, value far )
  861. c$pragma aux (winapi) EnumProps parm( value*2, reference far )
  862. c$pragma aux (winapi) SetWindowText parm( value*2, value far )
  863. c$pragma aux (winapi) GetWindowText parm( value*2, value far, value*2 )
  864. c$pragma aux (winapi) GetWindowTextLength parm( value*2 )
  865.  
  866. c$pragma aux (winapi) GetClientRect parm( value*2, reference far )
  867. c$pragma aux (winapi) GetWindowRect parm( value*2, reference far )
  868. c$pragma aux (winapi) AdjustWindowRect parm( reference far, value*4, \
  869. c                                            value*2 )
  870. c$pragma aux (winapi) AdjustWindowRectEx parm( reference far, value*4, \
  871. c                                              value*2, value*4 )
  872.  
  873. !---- begin MB -----------------------------------------------------------------
  874.  
  875. c$pragma aux (winapi) MessageBox parm( value*2, value far, value far, value*2 )
  876. c$pragma aux (winapi) MessageBeep parm( value*2 )
  877.  
  878. !---- end MB -------------------------------------------------------------------
  879.  
  880. c$pragma aux (winapi) ShowCursor parm( value*2 )
  881. c$pragma aux (winapi) SetCursorPos parm( value*2, value*2 )
  882. c$pragma aux (winapi) SetCursor parm( value*2 )
  883. c$pragma aux (winapi) GetCursorPos parm( reference far )
  884. c$pragma aux (winapi) ClipCursor parm( reference far )
  885.  
  886. c$pragma aux (winapi) CreateCaret parm( value*2, value*2, value*2, value*2 )
  887. c$pragma aux (winapi) GetCaretBlinkTime parm
  888. c$pragma aux (winapi) SetCaretBlinkTime parm( value*2 )
  889. c$pragma aux (winapi) DestroyCaret parm
  890. c$pragma aux (winapi) HideCaret parm( value*2 )
  891. c$pragma aux (winapi) ShowCaret parm( value*2 )
  892. c$pragma aux (winapi) SetCaretPos parm( value*2, value*2 )
  893. c$pragma aux (winapi) GetCaretPos parm( reference far )
  894.  
  895. c$pragma aux (winapi) ClientToScreen parm( value*2, reference far )
  896. c$pragma aux (winapi) ScreenToClient parm( value*2, reference far )
  897. c$pragma aux (winapi) WindowFromPoint parm( value )
  898. c$pragma aux (winapi) ChildWindowFromPoint parm( value*2, value )
  899.  
  900. !---- begin COLOR --------------------------------------------------------------
  901.  
  902. c$pragma aux (winapi) GetSysColor parm( value*2 )
  903. c$pragma aux (winapi) SetSysColors parm( value*2, reference far, reference far )
  904.  
  905. !---- end COLOR ----------------------------------------------------------------
  906.  
  907. c$pragma aux (winapi) FillRgn parm( value*2, value*2, value*2 )
  908. c$pragma aux (winapi) FrameRgn parm( value*2, value*2, value*2, value*2, \
  909. c                                    value*2 )
  910. c$pragma aux (winapi) InvertRgn parm( value*2, value*2 )
  911. c$pragma aux (winapi) PaintRgn parm( value*2, value*2 )
  912. c$pragma aux (winapi) PtInRegion parm( value*2, value*2, value*2 )
  913.  
  914. c$pragma aux (winapi) DrawFocusRect parm( value*2, reference far )
  915. c$pragma aux (winapi) FillRect parm( value*2, reference far, value*2 )
  916. c$pragma aux (winapi) FrameRect parm( value*2, reference far, value*2 )
  917. c$pragma aux (winapi) InvertRect parm( value*2, reference far )
  918. c$pragma aux (winapi) SetRect parm( reference far, value*2, value*2, \
  919. c                                   value*2, value*2 )
  920. c$pragma aux (winapi) SetRectEmpty parm( reference far )
  921. c$pragma aux (winapi) CopyRect parm( reference far, reference far )
  922. c$pragma aux (winapi) InflateRect parm( reference far, value*2, value*2 )
  923. c$pragma aux (winapi) IntersectRect parm( reference far, reference far, \
  924. c                                         reference far )
  925. c$pragma aux (winapi) UnionRect parm( reference far, reference far, \
  926. c                                     reference far )
  927. c$pragma aux (winapi) OffsetRect parm( reference far, value*2, value*2 )
  928. c$pragma aux (winapi) IsRectEmpty parm( reference far )
  929. c$pragma aux (winapi) EqualRect parm( reference far, reference far )
  930. c$pragma aux (winapi) PtInRect parm( reference far, value )
  931. c$pragma aux (winapi) RectVisible parm( value*2, reference far )
  932. c$pragma aux (winapi) RectInRegion parm( value*2, reference far )
  933.  
  934. c$pragma aux (winapi) GetCurrentTime parm
  935. c$pragma aux (winapi) GetTickCount parm
  936.  
  937. !---- begin WINOFFSETS ---------------------------------------------------------
  938.  
  939. c$pragma aux (winapi) GetWindowWord parm( value*2, value*2 )
  940. c$pragma aux (winapi) SetWindowWord parm( value*2, value*2, value*2 )
  941. c$pragma aux (winapi) GetWindowLong parm( value*2, value*2 )
  942. c$pragma aux (winapi) SetWindowLong parm( value*2, value*2, value*4 )
  943. c$pragma aux (winapi) GetClassWord parm( value*2, value*2 )
  944. c$pragma aux (winapi) SetClassWord parm( value*2, value*2, value*2 )
  945. c$pragma aux (winapi) GetClassLong parm( value*2, value*2 )
  946. c$pragma aux (winapi) SetClassLong parm( value*2, value*2, value*4 )
  947. c$pragma aux (winapi) GetDesktopHwnd parm
  948. c$pragma aux (winapi) GetDesktopWindow parm
  949.  
  950. !---- end WINOFFSETS -----------------------------------------------------------
  951.  
  952. c$pragma aux (winapi) GetParent parm( value*2 )
  953. c$pragma aux (winapi) SetParent parm( value*2, value*2 )
  954. c$pragma aux (winapi) EnumChildWindows parm( value*2, reference far, value*4 )
  955. c$pragma aux (winapi) FindWindow parm( value far, value far )
  956. c$pragma aux (winapi) EnumWindows parm( value far, value*4 )
  957. c$pragma aux (winapi) EnumTaskWindows parm( value*2, reference far, value*4 )
  958. c$pragma aux (winapi) GetClassName parm( value*2, value far, value*2 )
  959. c$pragma aux (winapi) GetTopWindow parm( value*2 )
  960. c$pragma aux (winapi) GetNextWindow parm( value*2, value*2 )
  961. c$pragma aux (winapi) GetWindowTask parm( value*2 )
  962. c$pragma aux (winapi) GetLastActivePopup parm( value*2 )
  963.  
  964. c$pragma aux (winapi) GetWindow parm( value*2, value*2 )
  965.  
  966. !---- begin NOWH ---------------------------------------------------------------
  967.  
  968. c$pragma aux (winapi) SetWindowsHook parm( value*2, reference far )
  969. c$pragma aux (winapi) UnhookWindowsHook parm( value*2, reference far )
  970. c$pragma aux (winapi) DefHookProc parm( value*2, value*2, value*4, \
  971. c                                       reference far )
  972.  
  973. !---- end NOWH -----------------------------------------------------------------
  974.  
  975. ! Resource Loading Routines
  976.  
  977. c$pragma aux (winapi) LoadBitmap parm( value*2, value far )
  978. c$pragma aux (winapi) LoadCursor parm( value*2, value*4 )
  979. c$pragma aux (winapi) CreateCursor parm( value*2, value*2, value*2, \
  980. c                                        value*2, value*2, reference far, \
  981. c                                        reference far )
  982. c$pragma aux (winapi) DestroyCursor parm( value*2 )
  983.  
  984. c$pragma aux (winapi) LoadIcon parm( value*2, value far )
  985. c$pragma aux (winapi) CreateIcon parm( value*2, value*2, value*2, value*1, \
  986. c                                      value*1, reference far, \
  987. c                                      reference far )
  988. c$pragma aux (winapi) DestroyIcon parm( value*2 )
  989.  
  990. c$pragma aux (winapi) LoadString parm( value*2, value*2, value far, \
  991. c                                      value*2 )
  992.  
  993. c$pragma aux (winapi) AddFontResource parm( value far )
  994. c$pragma aux (winapi) RemoveFontResource parm( value far )
  995.  
  996. !---- begin KANJI --------------------------------------------------------------
  997.  
  998. c$pragma aux (winapi) ConvertRequest parm( value*2, reference far )
  999. c$pragma aux (winapi) SetConvertParams parm( value*2, value*2 )
  1000. c$pragma aux (winapi) SetConvertHook parm( value*2 )
  1001.  
  1002. !---- end KANJI ----------------------------------------------------------------
  1003.  
  1004. ! Key Conversion Window
  1005.  
  1006. c$pragma aux (winapi) IsTwoByteCharPrefix parm( value*1 )
  1007.  
  1008. !---- begin CTLMGR -------------------------------------------------------------
  1009.  
  1010. ! Dialog Manager Routines
  1011.  
  1012. !---- begin MSG ----------------------------------------------------------------
  1013.  
  1014. c$pragma aux (winapi) IsDialogMessage parm( value*2, reference far )
  1015.  
  1016. !---- end MSG ------------------------------------------------------------------
  1017.  
  1018. c$pragma aux (winapi) MapDialogRect parm( value*2, reference far )
  1019.  
  1020. c$pragma aux (winapi) DlgDirList parm( value*2, value far, value*2, \
  1021. c                                      value*2, value*2 )
  1022. c$pragma aux (winapi) DlgDirSelect parm( value*2, value far, value*2 )
  1023. c$pragma aux (winapi) DlgDirListComboBox parm( value*2, value far, \
  1024. c                                              value*2, value*2, value*2 )
  1025. c$pragma aux (winapi) DlgDirSelectComboBox parm( value*2, value far, \
  1026. c                                                value*2 )
  1027.  
  1028. !---- end CTLMGR ---------------------------------------------------------------
  1029.  
  1030. !---- begin SOUND --------------------------------------------------------------
  1031.  
  1032. c$pragma aux (winapi) OpenSound parm
  1033. c$pragma aux (winapi) CloseSound parm
  1034. c$pragma aux (winapi) SetVoiceQueueSize parm( value*2, value*2 )
  1035. c$pragma aux (winapi) SetVoiceNote parm( value*2, value*2, value*2, value*2 )
  1036. c$pragma aux (winapi) SetVoiceAccent parm( value*2, value*2, value*2, \
  1037. c                                          value*2, value*2 )
  1038. c$pragma aux (winapi) SetVoiceEnvelope parm( value*2, value*2, value*2 )
  1039. c$pragma aux (winapi) SetSoundNoise parm( value*2, value*2 )
  1040. c$pragma aux (winapi) SetVoiceSound parm( value*2, value*4, value*2 )
  1041. c$pragma aux (winapi) StartSound parm
  1042. c$pragma aux (winapi) StopSound parm
  1043. c$pragma aux (winapi) WaitSoundState parm( value*2 )
  1044. c$pragma aux (winapi) SyncAllVoices parm
  1045. c$pragma aux (winapi) CountVoiceNotes parm( value*2 )
  1046. c$pragma aux (winapi) GetThresholdEvent parm
  1047. c$pragma aux (winapi) GetThresholdStatus parm
  1048. c$pragma aux (winapi) SetVoiceThreshold parm( value*2, value*2 )
  1049.  
  1050. !---- end SOUND ----------------------------------------------------------------
  1051.  
  1052. !---- begin COMM ---------------------------------------------------------------
  1053.  
  1054. c$pragma aux (winapi) OpenComm parm( value far, value*2, value*2 )
  1055. c$pragma aux (winapi) SetCommState parm( reference far )
  1056. c$pragma aux (winapi) GetCommState parm( value*2, reference far )
  1057. c$pragma aux (winapi) ReadComm parm( value*2, value far, value*2 )
  1058. c$pragma aux (winapi) UngetCommChar parm( value*2, value*1 )
  1059. c$pragma aux (winapi) WriteComm parm( value*2, value far, value*2 )
  1060. c$pragma aux (winapi) CloseComm parm( value*2 )
  1061. c$pragma aux (winapi) GetCommError parm( value*2, reference far )
  1062. c$pragma aux (winapi) BuildCommDCB parm( value far, reference far )
  1063. c$pragma aux (winapi) TransmitCommChar parm( value*2, value*1 )
  1064. c$pragma aux (winapi) SetCommEventMask parm( value*2, value*2 )
  1065. c$pragma aux (winapi) GetCommEventMask parm( value*2, value*2 )
  1066. c$pragma aux (winapi) SetCommBreak parm( value*2 )
  1067. c$pragma aux (winapi) ClearCommBreak parm( value*2 )
  1068. c$pragma aux (winapi) FlushComm parm( value*2, value*2 )
  1069. c$pragma aux (winapi) EscapeCommFunction parm( value*2, value*2 )
  1070.  
  1071. !---- end COMM -----------------------------------------------------------------
  1072.  
  1073. !---- begin MDI ----------------------------------------------------------------
  1074.  
  1075. c$pragma aux (winapi) DefFrameProc parm( value*2, value*2, value*2, \
  1076. c                                        value*2, value*4 )
  1077. c$pragma aux (winapi) DefMDIChildProc parm( value*2, value*2, value*2, \
  1078. c                                           value*4 )
  1079.  
  1080. !---- begin MSG ----------------------------------------------------------------
  1081.  
  1082. c$pragma aux (winapi) TranslateMDISysAccel parm( value*2, reference far )
  1083.  
  1084. !---- end MSG ------------------------------------------------------------------
  1085.  
  1086. c$pragma aux (winapi) ArrangeIconicWindows parm( value*2 )
  1087.  
  1088. !---- end MDI ------------------------------------------------------------------
  1089.  
  1090. !---- end USER -----------------------------------------------------------------
  1091.  
  1092. !---- begin HELP ---------------------------------------------------------------
  1093.  
  1094. c$pragma aux (winapi) WinHelp parm( value*2, value far, value*2, value*4 )
  1095.  
  1096. !---- end HELP -----------------------------------------------------------------
  1097.  
  1098. !---- begin PROFILER -----------------------------------------------------------
  1099.  
  1100. ! function declarations for profiler routines contained in Windows libraries
  1101.  
  1102. c$pragma aux (winapi) ProfInsChk parm
  1103. c$pragma aux (winapi) ProfSetup parm( value*2, value*2 )
  1104. c$pragma aux (winapi) ProfSampRate parm( value*2, value*2 )
  1105. c$pragma aux (winapi) ProfStart parm
  1106. c$pragma aux (winapi) ProfStop parm
  1107. c$pragma aux (winapi) ProfClear parm
  1108. c$pragma aux (winapi) ProfFlush parm
  1109. c$pragma aux (winapi) ProfFinish parm
  1110.  
  1111. !---- end PROFILER -------------------------------------------------------------
  1112.  
  1113. c$pragma aux (winapi) DeviceCapabilities parm( value far, value far, \
  1114. c                                              value*2, reference far, \
  1115. c                                              reference far )
  1116. c$pragma aux (winapi) DeviceMode parm( value*2, value*2, value far, value far )
  1117. c$pragma aux (winapi) ExtDeviceMode parm( value*2, value*2, reference far, \
  1118. c                                         value far, value far, reference far, \
  1119. c                                         value far, value*2 )
  1120.  
  1121. !---- Stubs for 32-bit functions called by 16-bit applications -----------------
  1122.  
  1123. c$pragma aux GetProc16 = parm ( value*4, value*4 ) [dx ax] [cx bx] \
  1124. c                        value [dx ax] \
  1125. c                        modify exact []
  1126. c$pragma aux ReleaseProc16 = parm ( value*4 ) [dx ax] modify exact []
  1127. c$pragma aux AllocAlias16 = parm ( value*4 ) [dx ax] \
  1128. c                           value [dx ax] \
  1129. c                           modify exact []
  1130. c$pragma aux AllocHugeAlias16 = parm ( value*4, value*4 ) [dx ax] [cx bx] \
  1131. c                               value [dx ax] \
  1132. c                               modify exact []
  1133. c$pragma aux FreeAlias16 = parm ( value*4 ) [dx ax] modify exact []
  1134. c$pragma aux FreeHugeAlias16 = parm ( value*4, value*4 ) [dx ax] [cx bx] \
  1135. c                              modify exact []
  1136. c$pragma aux MapAliasToFlat = parm ( value*4 ) [dx ax] \
  1137. c                           value [dx ax] \
  1138. c                           modify exact []
  1139. c$pragma aux PASS_WORD_AS_POINTER = z31d2 \ xor dx,dx
  1140. c                                 parm( value*2 ) [ax] \
  1141. c                                 value [dx ax] \
  1142. c                                 modify exact [dx]
  1143.  
  1144. c$endif
  1145.