clipboard

Retrieve HTML from Clipboard

Submitted by Sergey on September 8, 2009 - 08:13

MSDN:

This is sample code. Add error handling and adjust to your requirements as necessary.

lcHtml = HtmlFromClipboard()
IF NOT ISNULL(lcHtml)
	lnStartHTML = VAL(STREXTRACT(lcHtml, "StartHTML:", ""))
	lnEndHTML = VAL(STREXTRACT(lcHtml, "EndHTML:", ""))
	* If StartFragment is present, retrieve HTML fragment
	IF ("StartFragment" $ lcHtml)

Copy HTML to Clipboard

Submitted by Sergey on March 16, 2009 - 13:05

Based on How To Add HTML Code to the Clipboard by Using Visual C++

MSDN:

Copy RTF Text to Clipboard

Submitted by Sergey on June 13, 2008 - 20:58

Based on How To Add Custom Table to the Clipboard to be Pasted into Word

MSDN: Windows Clipboard API

Copy PRG contents to Clipboard

Submitted by Sergey on February 11, 2008 - 16:07

In VFP 9.0 PRG contents will be copied to clipboard in RTF format as well, if there's no 'X' in the _Vfp.EditorOptions.

The code uses Editor functions from Foxtools.fll. See George Tasker's Extended Foxtools Help Download #9333 on UT for more info.

Retrieve List of Files from Clipboard

Submitted by Sergey on January 1, 2008 - 21:49

MSDN: Windows Clipboard API

This is sample code. Add error handling and adjust to your requirements as necessary.

* Load required Windows API functions
=LoadApiDlls()
 
* Open clipboard
lnResult = OpenClipboard(_SCREEN.hWnd)
* Get handle on file list structure ( Format type 15)
lnHdrop = GetClipboardData (15)
IF lnHdrop > 0
	lcBuffer = SPACE(512)
	lnSize = LEN(lcBuffer)
        * Get number of files in the list
	lnFile = BITOR(0xFFFFFFFF,0)
	lnFileCount = DragQueryFile(lnHdrop, lnFile, @lcBuffer, lnSize  )
 
        * Get each file name

Copy Unicode Text to Clipboard

Submitted by Sergey on January 1, 2008 - 18:47

MSDN: Windows Clipboard API

Copy Files to Clipboard

Submitted by Sergey on January 1, 2008 - 18:44

MSDN: Windows Clipboard API

Copy Command Window Selected Text to Clipboard Programmatically

Submitted by Sergey on January 1, 2008 - 18:38

The code uses Editor functions from Foxtools.fll. See George Tasker's Extended Foxtools Help Download #9333 on UT for more info.

This is sample code. Add error handling and adjust to your requirements as necessary.

LOCAL ARRAY laEnv [25]
SET LIBRARY TO FoxTools ADDITIVE
* Get the whandle for the current window
lnHandle = _WonTop()
lnResult = _EdGetEnv( lnHandle, @laEnv )
* [ 17 ] SelStart
* [ 18 ] SelEnd
Syndicate content