Re: Hyperlink

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/11/2003 21:39:39

OnWriteHyperlink:

procedure TfrmMain.rveWriteHyperlink(Sender: TCustomRichView; id: Integer;

  RVData: TCustomRVData; ItemNo: Integer; SaveFormat: TRVSaveFormat;

  var Target, Extras: string);

begin

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

end;

And compilmentary event - OnReadHyperlink:

procedure TfrmMain.rveReadHyperlink(Sender: TCustomRichView; const Target,

  Extras: String; DocFormat: TRVLoadFormat; var StyleNo, ItemTag: Integer;

  var ItemName: String);

begin

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

end;

This code can be copied from project to project without changed.

More advanced processing of OnReadHyperlink is in the ActionTestDemo (some

special code for dropping hyperlinks)

> You should handle OnWriteHyperlink event or OnURLNeeded event.