Copy RTF Format File to RTF Memo

[John Oesterle]

Oh no, those pesky RTF Memo fields again...

The subject can be done reliably using the Menu RTF Memo Import macro.

In viewing the "Manipulating Rich Text Fields" section of Alpha Five Help, the last section covers importing text that is saved in a RTF format into a RTF memo field. There appears to be a syntax error...or inconsistency...in the documentation regarding use of the CLIPBOARD.SET_DATA() method.

In the import example, the method uses a character argument from CLIPBOARD.REGISTER_TYPE() specifying "Rich Text Format" as the Clipboard Format.
But the page discussing CLIPBOARD.SET_DATA() identifies 5 numerical clipboard format arguments, none of which appear to work for Rich Text Format.

The import example appears incorrect as documented. Anyone know how to import a RTF formatted file into a RTF memo file via xbasic? The import Menu macro works fine, so does anyone know how to peek at the macro?

- John O

[Selwyn Rabins]

RE: Copy RTF Format File to RTF Memo

there is a function that the menu command "Import RTF File" uses called a5_rtf_import().


you are free to use this function to import a rtf file.

below is the source code for this function.

you should be able to figure out what you want by reading this source code:

------------------------------------------------
((1525)) Function: a5_rtf_import@Formeditor
====================================================================================================

'Date Created: 26-Jul-2002 12:36:31 PM
'Last Updated: 26-Jul-2002 02:25:37 PM
'Created By :
'Updated By :
function a5_rtf_import as c (obj as p)
'DESCRIPTION:Used on the Edit menu in Form/Browse to import RTF data into a field.
'LIMITATIONS:X
dim fn as c
fn = ui_get_file("Import RTF File","Rich Text File (*.rtf)",a5.Get_Path()+chr(92),"X")
if fn = "" then
exit function
end if

dim fn_ext as c
fn_ext = file.filename_parse(fn,"e")
if fn_ext = "" then
fn = fn + ".rtf"
end if

if file.exists(fn) = .f. then
ui_msg_box("Error","File not found.",ui_stop_symbol)
exit function
end if




dim option as n
option = 2 'replace existing text
dim existing_text as c
existing_text = obj.rtf.plain_text
if existing_text "" "" then
option = replace_insert()
end if


if option = 0 then 'user selected cancel
exit function
end if



if option = 2 then 'replace
obj.rtf.rtf_text = file.to_string(fn)
else if option = 1 then 'insert at insertion point
'register the rtf clipboard type
clip_type = ClipBoard.Register_Type("Rich Text Format")
'put the rtf data onto the clipboard
ClipBoard.Set_Data(file.to_blob(fn),clip_type)
obj.rtf.paste()
'now reset the clipboard to null
ClipBoard.Set_Data("",clip_type)
end if


'check if the form/browse is in change or enter mode. if not, put it in change mode
if topparent.Mode_Get() = "view" then
'get a pointer to the current field.
dim fptr as p
fptr = obj.field_get()
dim tptr as p
tptr = fptr.table_get()
tptr.change_begin()
fptr.value_put(obj.rtf.binary_text)
tptr.change_end(.t.)
end if



end function



function replace_insert as n ()
dim option as n
option = 1
dim flag_insert as l
flag_insert = .f.
ui_dlg_box("Warning",""%dlg%
{region}
The RTF field already contains data.;
{lf};
(option:Insert the imported data at the cursor location);
{lf};
(option:Replace the existing data with the imported data);
{lf};
"10&OK!ok" "10&Cancel";
{endregion};
%dlg%,""%code%
if a_dlg_button = "OK" then
flag_insert = .t.
end if
%code%)

if flag_insert = .t. then
replace_insert = option
else
replace_insert = 0
end if
end function

[John Oesterle]

RE: Copy RTF Format File to RTF Memo

Thanks Selwyn, I'll give it a go...