trichview.com

trichview.support




Re: Hyperlinks not works after save then load RVF


Return to index


Author

Message

Sergey Tkachenko

Posted: 12/02/2004 0:48:51


You need to include rvoTagsArePChars in TRichView.Options and process two

events - OnReadHyperlink and OnWriteHyperlink.

You can copy the code from here:


// Importing hyperlink from RTF

procedure TForm3.RichViewEdit1ReadHyperlink(Sender: TCustomRichView;

  const Target, Extras: String; DocFormat: TRVLoadFormat; var StyleNo,

  ItemTag: Integer; var ItemName: String);

begin

  ItemTag := Integer(StrNew(PChar(Target)));

end;


// Exporting hyperlink to RTF and HTML

procedure TForm3.RichViewEdit1WriteHyperlink(Sender: TCustomRichView;

  id: Integer; RVData: TCustomRVData; ItemNo: Integer;

  SaveFormat: TRVSaveFormat; var Target, Extras: String);

begin

  Target := PChar(RVData.GetItemTag(ItemNo));

end;




> I'm making text with hyperlinks, while text not saved Ctrl+LeftClick opens

> hyperlink in browser.

> If I save RVF then loads it RichViewEdit shows my links but making

> Ctrl+LeftClick on them does nothing :(

>

>





Powered by ABC Amber Outlook Express Converter