Re: Example: hypertext hint in TRichViewEdit

Author

Message

Jonas Bilinkevicius

Posted: 11/17/2003 12:20:01

Do not forget to add "RVItem" unit to uses clause because rvbpJump is

declarated in it.

By default "RVItem" not included in uses.

Regards,

Jonas

"Sergey Tkachenko" <svt@trichview.com> wrote in message

news:3fa95558$3@support.torry.net...

> This code shows how to display hints over hypertext items in

TRichViewEdit.

> (it will work in TRichView too).

> A hint text is like this:

> 'Ctrl+click to go to:'

> <text from tag of the hypertext item>

> This code uses undocumented function GetItem().GetBoolValue().

> It's possible to do this using only documented methods (to check if the

> returned item is hotspot, hotpicture or text of a hypertext style), but it

> would produce a less compact code.

> RichViewEdit.ShowHint must be set to True.

> Event RichViewEdit1.OnMouseMove:

> uses CRVFData;

> procedure TForm1.RichViewEdit1MouseMove(Sender: TObject;

> Shift: TShiftState; X, Y: Integer);

> var RVData: TCustomRVFormattedData;

> ItemNo, Offs: Integer;

> s : String;

> begin

> inc(X, RichViewEdit1.HScrollPos);

> inc(Y, RichViewEdit1.VScrollPos*RichViewEdit1.VSmallStep);

> s := '';

> if RichViewEdit1.GetItemAt(X, Y, RVData, ItemNo, Offs, True) then begin

> if RVData.GetItem(ItemNo).GetBoolValueEx(rvbpJump,

RichViewEdit1.Style)

> then

> s := 'Ctrl+click to go to:'#13+

> PChar(RVData.GetItemTag(ItemNo));

> end;

> RichViewEdit1.Hint := s;

> if s='' then

> Application.CancelHint;

> end;