<< Click to display table of contents >> TCustomRichView.OnItemHint

Allows to define custom popup hints for items.

type

  TRVItemHintEvent = procedure (Sender: TCustomRichView;

    RVData: TCustomRVData; ItemNo: Integer; 

    var HintText: TRVUnicodeString) of object;

 

property OnItemHint: TRVItemHintEvent;

This event occurs when mouse pointer moves over the item.

Parameters

RVData – document containing this item (RichView.RVData, or table cell, or cell inplace editor's RVData)

ItemNo – index of the item inside RVData.

HintText –  on input, it's a value of rvespHint item property. On output, it's a message that will be displayed.

 

Item popup hint can be displayed if rvoShowItemHints is in RichView.Options and RichView.ShowHint=True.

Cell Hints cannot be altered in this event.

 

See also:

▪OnGetItemCursor.

 

Example [VCL and LCL]

Besides the default hint, this code displays:

▪for hyperlinks: tag;

▪for images: Delphi class type, width and height.

procedure TMyForm.MyRichViewEditItemHint(Sender: TCustomRichView;

  RVData: TCustomRVData; ItemNo: Integer;

  var HintText: TRVUnicodeString);

var Tag: TRVTag;

    VAlign: TRVVAlign;

    Name: TRVUnicodeString;

    gr: TGraphic;

begin

  if RVData.GetItem(ItemNo).GetBoolValueEx(

    rvbpJump, Sender.Style) then 

  begin

    if HintText<>'' then

      HintText := HintText+#13;

    HintText := HintText + 'Target: '+RVData.GetItemTag(ItemNo);

  end;

  if (RVData.GetItemStyle(ItemNo)=rvsPicture) or

     (RVData.GetItemStyle(ItemNo)=rvsHotPicture) then

  begin

    if HintText<>'' then

      HintText := HintText+#13;

    RVData.GetPictureInfo(ItemNo, Name, gr, VAlign, Tag);

    HintText := HintText+gr.ClassName+

      ' ('+IntToStr(gr.Width)+','+IntToStr(gr.Height)+')';

  end;

end;