home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / CLIPBRD.PRG < prev    next >
Text File  |  1994-05-05  |  2KB  |  76 lines
  1. #include "FiveWin.ch"
  2.  
  3. #define CF_TEXT              1
  4. #define CF_BITMAP            2
  5. #define CF_METAFILEPICT      3
  6. #define CF_SYLK              4
  7. #define CF_DIF               5
  8. #define CF_TIFF              6
  9. #define CF_OEMTEXT           7
  10. #define CF_DIB               8
  11. #define CF_PALETTE           9
  12. #define CF_PENDATA          10
  13. #define CF_RIFF             11
  14. #define CF_WAVE             12
  15.  
  16. //----------------------------------------------------------------------------//
  17.  
  18. CLASS TClipBoard
  19.  
  20.    DATA   nFormat, oWnd
  21.  
  22.    METHOD New( nFormat, oWnd ) CONSTRUCTOR
  23.  
  24.    METHOD Clear()   INLINE  ::Open(), ::Empty(), ::Close()
  25.    METHOD Open()    INLINE  OpenClipboard( ::oWnd:hWnd )
  26.    METHOD Empty()   INLINE  EmptyClipboard()
  27.    METHOD Close()   INLINE  CloseClipboard()
  28.  
  29.    METHOD SetData( uData ) INLINE  SetClipboardData( ::nFormat, uData )
  30.  
  31.    METHOD GetData() INLINE  GetClpData( ::nFormat )
  32.  
  33.    METHOD SetText( cText )
  34.    METHOD GetText()
  35.  
  36. ENDCLASS
  37.  
  38. //----------------------------------------------------------------------------//
  39.  
  40. METHOD New( nFormat, oWnd ) CLASS TClipBoard
  41.  
  42.    DEFAULT nFormat := CF_TEXT
  43.  
  44.    ::nFormat = nFormat
  45.    ::oWnd    = oWnd
  46.  
  47. return nil
  48.  
  49. //----------------------------------------------------------------------------//
  50.  
  51. METHOD SetText( cText ) CLASS TClipBoard
  52.  
  53.    local lResult := .f.
  54.  
  55.    if ::Open()
  56.       lResult = SetClipboardData( CF_TEXT, cText )
  57.       lResult = ::Close() .and. lResult
  58.    endif
  59.  
  60. return lResult
  61.  
  62. //----------------------------------------------------------------------------//
  63.  
  64. METHOD GetText() CLASS TClipBoard
  65.  
  66.    local cText := ""
  67.  
  68.    if ::Open()
  69.       cText = GetClpData( CF_TEXT )
  70.       ::Close()
  71.    endif
  72.  
  73. return cText
  74.  
  75. //----------------------------------------------------------------------------//
  76.