[How to] How to save OLE objects in RTF
Posted: Thu Sep 15, 2005 4:59 pm
Saving TOLEContainers from TRichView to RTF file:
http://www.trichview.com/forums/viewtopic.php?t=108
http://www.trichview.com/forums/viewtopic.php?t=108
Support forums for TRichView, ScaleRichView, Report Workshop and RVMedia components
https://writeally.com/forums/
Code: Select all
function GetOleContainerRTFString(OleContainer: TOleContainer;
Image: TMetafile = nil): String;
Code: Select all
procedure TForm1.RichViewEdit1SaveComponentToFile(Sender: TCustomRichView;
Path: String; SaveMe: TPersistent; SaveFormat: TRVSaveFormat;
var OutStr: TRVUnicodeString);
begin
case SaveFormat of
...
rvsfRTF:
begin
if SaveMe is TOleContainer then
OutStr := GetOleContainerRTFString(TOleContainer(SaveMe))
...
end;
end;
end;