Click above to get retro games delivered to your door ever month!

dfWinClpSet()
Set the Windows Clipboard value
------------------------------------------------------------------------------
Syntax:

     dfWinClpSet( <cBuffer>, [<nType>] ) --> lRet

Parameters:

     <cBuffer>  New value
     <nType>    Clipboard type
     #include "dfWindow.ch"
     +----------------------+
     | type                 |
     |----------------------|
     | WIN_CLP_DATA_TEXT    | // text             DEFAULT
     | WIN_CLP_DATA_BMP     | // bitmap
     | WIN_CLP_DATA_META    | // metafile picture
     | WIN_CLP_DATA_SYLK    | // SYLK
     | WIN_CLP_DATA_DIF     | // DIF
     | WIN_CLP_DATA_TIFF    | // TIFF
     | WIN_CLP_DATA_OEMTEXT | // OEM text
     | WIN_CLP_DATA_DIBBMP  | // DIB bitmap
     | WIN_CLP_DATA_SPECIAL | // special format
     | WIN_CLP_DATA_DSPTEXT | // DSP text
     | WIN_CLP_DATA_DSPBMP  | // DSP bitmap
     +----------------------+

Returns:

     <cClipboard>  Value of the clipboard

Description:

     Put a new value in the Clipboard
     
     NB This function works only in a Task Windows in a protected mode
     application

Example:

     #include "Common.ch"
     #include "dfWindow.ch"
     
     * ####################################################
     FUNCTION Main()
     * ####################################################
     
     IF dfIsWin() // Is in Windows Task
        dfWinFullScr()  // Set to full screen
     
        ? "Windows Version ", dfWinVer()
     
        IF dfIsWinClp()
           ? "Clipboard Supported"
           ? "Clipboard Version : " , dfWinClpVer()
     
           dfWinClpOpen()  // Open Clipboard
           ? "Clipboard Size    : " , dfWinClpSize()
           ? "Clipboard Get     : " , dfWinClpGet()
     
           ? "Empty Clipboard"
           dfWinClpEmpty() // Empty the old value
           ? "Clipboard Size    : " , dfWinClpSize()
           ? "Clipboard Get     : " , dfWinClpGet()
     
           ? "Clipboard Set     : This text is put "+;
                                  "in Windows"
           dfWinClpSet("This text is put in Windows")
     
           ? "Clipboard Size    : " , dfWinClpSize()
           ? "Clipboard Get     : " , dfWinClpGet()
     
           dfWinClpClose() // Close ClipBoard
        ENDIF
     ENDIF
     
     RETURN NIL

See also:

     dfIswin()