How to paste and get text placed in the clipboard

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

WendellM

Thanks to ozak's function mentions:

Strict

Local window:TGadget = CreateWindow( "Copy & Paste Test", 10,30, 400,200, Null,..
                                     WINDOW_TITLEBAR | WINDOW_CLIENTCOORDS )
Local txt1:TGadget = CreateTextArea( 0,0, 200,200, window, TEXTAREA_WORDWRAP )
Local txt2:TGadget = CreateTextArea( 200,0, 200,200, window, TEXTAREA_WORDWRAP )

SetTextAreaText txt1, "The quick brown fox jumps over the lazy dog.~n~n"
AddTextAreaText txt1, "Pack my box with five dozen liquor jugs."

SelectTextAreaText txt1
GadgetCopy txt1
GadgetPaste txt2

Repeat
	WaitEvent
Until EventID() = EVENT_WINDOWCLOSE