Xbasic

RTF.REPAINT Function

Syntax

.Repaint()

Description

The .REPAINT() method redisplays the contents of the RTF memo control by forcing a repaint of the control or window.

Example

dim crtf.object as P
dim crtf.text as C
dim new_text as C
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};
;
;
;
;
%dlg%,<<%code%
if a_dlg_button="Is_Valid" then
    a_dlg_button = ""
    style=crtf.object.is_valid()
    ui_msg_box("Style",""+style)
end if
if a_dlg_button="Properties" then
    a_dlg_button = ""
    style=crtf.object.properties()
    ui_msg_box("Properties",""+style)
end if
if a_dlg_button="Repaint" then
    a_dlg_button = ""
    crtf.object.repaint()
end if
if a_dlg_button="Reset" then
    a_dlg_button = ""
    crtf.object.reset()
end if
crtf.text = crtf.object.rtf_text
%code%)