home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WINCLIP.BI < prev    next >
Text File  |  1989-07-24  |  2KB  |  71 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: WinClip.BI
  4. '*
  5. '* Requires:     none
  6. '*
  7. '* Description:  Clipboard manager
  8. '*
  9. '*************************************************************
  10.  
  11. ' Clipboard messages 
  12.  
  13. CONST WMRENDERFMT        = &H0060
  14. CONST WMRENDERALLFMTS    = &H0061
  15. CONST WMDESTROYCLIPBOARD = &H0062
  16. CONST WMPAINTCLIPBOARD   = &H0063
  17. CONST WMSIZECLIPBOARD    = &H0064
  18. CONST WMHSCROLLCLIPBOARD = &H0065
  19. CONST WMVSCROLLCLIPBOARD = &H0066
  20. CONST WMDRAWCLIPBOARD    = &H0067
  21.  
  22. ' Standard Clipboard formats 
  23.  
  24. CONST CFTEXT             =1
  25. CONST CFBITMAP           =2
  26. CONST CFDSPTEXT          =3
  27. CONST CFDSPBITMAP        =4
  28. CONST CFMETAFILE         =5
  29. CONST CFDSPMETAFILE      =6
  30.  
  31. DECLARE FUNCTION WinSetClipbrdOwner%(BYVAL hab AS LONG,_
  32.                                      BYVAL hwnd AS LONG)
  33.  
  34. DECLARE FUNCTION WinSetClipbrdData%(BYVAL hab AS LONG,_
  35.                                     BYVAL ulData AS LONG,_
  36.                                     BYVAL fmt AS INTEGER,_
  37.                                     BYVAL rgfFmtInfo AS INTEGER)
  38.  
  39. DECLARE FUNCTION WinQueryClipbrdData&(BYVAL hab AS LONG,_
  40.                                       BYVAL fmt AS INTEGER)
  41.  
  42. DECLARE FUNCTION WinQueryClipbrdFmtInfo%(BYVAL hab AS LONG,_
  43.                                          BYVAL fmt AS INTEGER,_
  44.                                          BYVAL prgfFmtInfo AS LONG)
  45.  
  46. DECLARE FUNCTION WinSetClipbrdViewer%(BYVAL hab AS LONG,_
  47.                                       BYVAL hwndNewClipViewer AS LONG)
  48.  
  49. ' WinSetClipbrdData() flags 
  50.  
  51. CONST CFIOWNERFREE       = &H0001
  52. CONST CFIOWNERDISPLAY    = &H0002
  53. CONST CFISELECTOR        = &H0100
  54. CONST CFIHANDLE          = &H0200
  55.  
  56.  
  57. DECLARE FUNCTION WinEnumClipbrdFmts%(BYVAL hab AS LONG,_
  58.                                      BYVAL fmt AS INTEGER)
  59.  
  60. DECLARE FUNCTION WinEmptyClipbrd%(BYVAL hab AS LONG)
  61.  
  62. DECLARE FUNCTION WinOpenClipbrd%(BYVAL hab AS LONG)
  63.  
  64. DECLARE FUNCTION WinCloseClipbrd%(BYVAL hab AS LONG)
  65.  
  66. DECLARE FUNCTION WinQueryClipbrdOwner&(BYVAL hab AS LONG,_
  67.                                        BYVAL fLock AS INTEGER)
  68.  
  69. DECLARE FUNCTION WinQueryClipbrdViewer&(BYVAL hab AS LONG,_
  70.                                         BYVAL fLock AS INTEGER)
  71.