Re: Hyperlinks not works after save then load RVF

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 :(