Rich Text format Object

To include Rich Text Object - open your project.inc file with VP Studio Setup utility and checkout necessary options

You will need to import some resources from the VIP Rich Text Object project (such as toolbar and sample window).

Download VIP Rich Text Object

On File Open menu of a Task Window:

task_win_eh(_Win,e_Menu(id_file_open,_ShiftCtlAlt),0):-!,

FN=dlg_GetFileName("*.rtf",["RTF files (*.rtf)","*.rtf"],

  "Open File", [], "",_),

win_Document_Create (_Win,FN,0),

On File Open menu of a custom window:

win_rich_text_editor_eh(_Win,e_Menu(id_file_open,_ShiftCtlAlt),0):-!,

FILENAME=dlg_GetFileName("*.rtf",["RTF files (*.rtf)","*.rtf"],

"Open File", [], "",_),

FILENAME <> "",

CtrlWin = win_GetCtlHandle(_Win, idc_rich_text_editor),

rich_object(CtrlWin,RICH_TEXT_OBJECT),

RICH_TEXT_OBJECT:rtf_open(FILENAME),

.....