home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / FLING.INC < prev    next >
Text File  |  1989-09-07  |  3KB  |  66 lines
  1. DECLARE FUNCTION WinPostMsg%(BYVAL hwnd AS LONG,_
  2.                              BYVAL msg AS INTEGER,_
  3.                              BYVAL mp1 AS LONG,_
  4.                              BYVAL mp2 AS LONG)
  5. DECLARE FUNCTION WinMessageBox%(BYVAL hwndParent AS LONG,_
  6.                                 BYVAL hwndOwner AS LONG,_
  7.                                 BYVAL pszText AS LONG,_
  8.                                 BYVAL pszCaption AS LONG,_
  9.                                 BYVAL idWindow AS INTEGER,_
  10.                                 BYVAL flStyle AS INTEGER)
  11. DECLARE FUNCTION WinQueryClipbrdData&(BYVAL hab AS LONG,_
  12.                                       BYVAL fmt AS INTEGER)
  13. DECLARE FUNCTION WinQuerySysValue&(BYVAL hwndDesktop AS LONG,_
  14.                                    BYVAL iSysValue AS INTEGER)
  15. DECLARE FUNCTION WinOpenClipbrd%(BYVAL hab AS LONG)
  16. DECLARE FUNCTION WinCloseClipbrd%(BYVAL hab AS LONG)
  17. DECLARE FUNCTION GpiErase%( BYVAL HPS AS LONG )
  18. DECLARE FUNCTION GpiDestroyPS%( BYVAL HPS AS LONG )
  19. DECLARE FUNCTION GpiCreatePS&( BYVAL HAB AS LONG,_
  20.                                BYVAL HDC AS LONG,_
  21.                                BYVAL PSIZEL AS LONG,_
  22.                                BYVAL ULONG AS LONG )
  23. DECLARE FUNCTION DosBeep%(BYVAL frequency AS INTEGER,_
  24.                           BYVAL duration  AS INTEGER)
  25. DECLARE FUNCTION DevCloseDC&(BYVAL HDC AS LONG)
  26. DECLARE FUNCTION DevOpenDC&(BYVAL HAB AS LONG,_
  27.                             BYVAL along AS LONG,_
  28.                             BYVAL PSZ AS LONG,_
  29.                             BYVAL blong AS LONG,_
  30.                             BYVAL PDEVOPENDATA AS LONG,_
  31.                             BYVAL HDC AS LONG)
  32. CONST SVCXICON       = 38
  33. CONST CFBITMAP       = 2
  34. CONST ODMEMORY       = 8&
  35. CONST PUPELS         = &H0008
  36. CONST GPITMICRO      = &H1000
  37. CONST GPIAASSOC      = &H4000
  38. CONST MBICONASTERISK = &H0030
  39. CONST WMMOUSEMOVE    = &H0070
  40. CONST WMBUTTON1DOWN  = &H0071
  41. CONST WMBUTTON1UP    = &H0072
  42. CONST WMBUTTON2UP    = &H0075
  43. CONST FIDMENU        = &H8005
  44. CONST MMSETITEMATTR  = &H0192
  45. CONST MIACHECKED     = &H2000
  46. CONST MIADISABLED    = &H4000
  47. CONST CLRWHITE       = -2
  48.  
  49. DECLARE SUB MoveBitmap(hwnd&, movex%, movey%)
  50. DECLARE SUB FlingBitmapFromClipBoard(hwnd&, hbm&)
  51. DECLARE FUNCTION MakeCopyOfBitmap&(hbmSource&)
  52. DECLARE SUB CreateBitmapPSandDC(hps&, hdc&)
  53. DECLARE SUB MaximizeOrRestoreTheClientWindow(hwnd&)
  54. DECLARE SUB MaximizeTheClientWindow(hwnd&)
  55. DECLARE SUB ResetCheckedMenuItem(oldChecked%, newChecked%)
  56. DECLARE SUB ClearTheClientWindow(hps&)
  57. DECLARE SUB DisplayHelp()
  58.  
  59. CONST IDMEXIT                 = 10
  60. CONST IDMSOUND                = 21
  61. CONST IDMMAXIMIZECLIENTWINDOW = 22
  62. CONST IDMCOLOR                = 40
  63. CONST IDMBITMAPS              = 60
  64. CONST IDMCLIPBRD              = 65
  65.  
  66.