Xbasic

RTF.PASTE Function

Syntax

.PASTE()

Description

The .PASTE() method pastes from the clipboard into the RTF object at the cursor location.

Example 

dim crtf.object as P
dim crtf.text as C
dim Location as N
dim temp as C
crtf.object = rtf.create(" ")
crtf.object.insert("RTF Text to stretch over one line, so you can see what full justify does", 1)
crtf.text = crtf.object.rtf_text
ui_dlg_box("Xdialog Sample", <<%dlg%
{rtf=30,10crtf};
{lf};
Location [.5Location];
;
;
;
;
%dlg%,<<%code%
if a_dlg_button="Cut" then
    a_dlg_button = ""
    crtf.object.cut()
end if
if a_dlg_button="Copy" then
    crtf.object.copy()
    a_dlg_button = ""
end if
if a_dlg_button="Paste" then
    crtf.object.paste()
    a_dlg_button = ""
end if
if a_dlg_button="Delete" then
    crtf.object.delete()
    a_dlg_button = ""
end if
crtf.text = crtf.object.rtf_text
%code%)

Limitations

Desktop applications only.

See Also