Re: Images

Return to index

Author

Message

Sergey Tkachenko

Posted: 08/11/2003 19:32:39

- exclude rvfoSavePicturesBody from RVFOptions

- store file name in picture name

(Example: Demos\Delphi\Assorted\Graphics\SharedImages\)

- when saving to HTML, use OnHTMLSaveImage:

procedure TForm3.RichViewEdit1HTMLSaveImage(Sender: TCustomRichView;

  RVData: TCustomRVData; ItemNo: Integer; const Path: String;

  BackgroundColor: TColor; var Location: String; var DoDefault: Boolean);

begin

   if (ItemNo>=0) and (

    (RVData.GetItemStyle(ItemNo)=rvsPicture) or

    (RVData.GetItemStyle(ItemNo)=rvsHotPicture)) then begin

    Location := RVData.GetItemText(ItemNo);

    DoDefault := Location='';

  end;

end;

> hi Sergey,

>

> How can I reference to *external* images ?

> So, when I insert an image into my richviewedit, it should not be included

> in the RVF Code but just be referenced (relative to the document path!)?

> This should also be preserved when I export to Html...

>

> Thanks 1 lot,

>

> Alex

>

>