<< Нажмите, чтобы показать Содержание >> TCustomRichView.OnItemHint

Позволяет задавать текст всплывающих подсказок для элементов документа.

type

  TRVItemHintEvent = procedure (Sender: TCustomRichView;

    RVData: TCustomRVData; ItemNo: Integer; 

    var HintText: TRVUnicodeString) of object;

 

property OnItemHint: TRVItemHintEvent;

Это событие происходит, когда указатель мыши перемещается над элементом документа.

Параметры:

RVData – документ, содержащий элемент (RVData основного TRichView, ячейка, или RVData редактора ячейки).

ItemNo – номер элемента в RVData.

HintText – на входе, это значение свойства элемента rvespHint. На выходе, это сообщение, которое будет показано.

 

Всплывающая подсказка элемента может отображаться, если rvoShowItemHints в RichView.Options и RichView.ShowHint=True.

Hint ячеек таблиц не может быть изменён в этом сообщении.

 

См. также:

▪OnGetItemCursor.

 

Пример [VCL и LCL]

Помимо подсказки по умолчанию, этот код отображает:

▪для гиперссылок: тег;

▪для изображений: тип класса Delphi, ширина и высота.

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;