Table cell Bg image filename please
Posted: Sat Jan 10, 2009 12:07 pm
I need to collect the table cells Background image filename & path. In the code below, FileName := TRVTableCellData(RVData.GetSourceRVData).BackgroundImageFileName; always returns '' (empty filename).
Please help. This is driving me insane.
Thanks in advance,
PS: If it can help, I should mention that I save HTML to stream as follows :
Dan
Please help. This is driving me insane.
Code: Select all
procedure T_FrmRicardoCSS.RichViewEdit1HTMLSaveImage(Sender: TCustomRichView;
RVData: TCustomRVData; ItemNo: Integer; const Path: String;
BackgroundColor: TColor; var Location: String; var DoDefault: Boolean);
var FileName: String; // i: integer;
begin
// what follows does not work. It is supposed to return the BACKGROUND IMAGE filename
if (ItemNo=-1) and (RVData.GetSourceRVData is TRVTableCellData) then begin
FileName := TRVTableCellData(RVData.GetSourceRVData).BackgroundImageFileName;
DoDefault := False;
end;
end;
PS: If it can help, I should mention that I save HTML to stream as follows :
Code: Select all
RichViewEdit1.SaveHTMLToStreamEx(streamRVEHtml,'','','','','','',
[rvsoMiddleOnly, rvsoUseItemImageFileNames, rvsoImageSizes,
rvsoNoHypertextImageBorders, rvsoMarkersAsText, rvsoNoDefCSSStyle,
rvsoInlineCSS]);
Dan