Virtual StringTree: текст, возвращаемый обработчиком события OnGetHint, не отображается в окне подсказки - PullRequest
2 голосов
/ 19 января 2010

Я написал обработчик для события OnGetHint элемента управления Virtual StringTree, и я уверен, что текст подсказки возвращается, но окно подсказки пустое, см. Скриншот ниже, что может вызвать эту проблему? заранее спасибо.

Screenshot

Настройки контроля:

AnimationDuration := 0;
ClipboardFormats.Clear;
ClipboardFormats.Add('HTML Format');
ClipboardFormats.Add('Plain text');
ClipboardFormats.Add('Rich Text Format');
ClipboardFormats.Add('Rich Text Format Without Objects');
ClipboardFormats.Add('Unicode text');
ClipboardFormats.Add('Virtual Tree Data');
DefaultPasteMode := amInsertBefore;
DragOperations := [doCopy, doMove, doLink];
EditDelay := 200;
HintMode := hmHint;
Images := dmImages.lstProjectTree;
IncrementalSearch := isAll;
Indent := 16;
Margin := 0;
ParentFont := False;
PopupMenu := pmTree;
SelectionCurveRadius := 5;
OnCollapsed := treePrjCollapsed;
OnColumnClick := treePrjColumnClick;
OnDblClick := treePrjDblClick;
OnDragAllowed := treePrjDragAllowed;
OnDragOver := treePrjDragOver;
OnDragDrop := treePrjDragDrop;
OnExpanded := treePrjExpanded;
OnFocusChanged := treePrjFocusChanged;
OnGetCursor := treePrjGetCursor;
OnGetText := treePrjGetText;
OnPaintText := treePrjPaintText;
OnGetImageIndexEx := treePrjGetImageIndexEx;
OnGetHint := treePrjGetHint;
OnKeyDown := treePrjKeyDown;
OnMouseDown := treePrjMouseDown;
OnNewText := treePrjNewText;
OnNodeMoving := treePrjNodeMoving;
with Columns.Add do begin
  Position := 0;
  Width := 153;
end;
with Columns.Add do begin
  Layout := blGlyphRight;
  MinWidth := 20;
  Position := 1;
  Width := 20;
end;
with Columns.Add do begin
  Layout := blGlyphRight;
  MinWidth := 20;
  Position := 2;
  Width := 20;
end;
with Columns.Add do begin
  Layout := blGlyphRight;
  MinWidth := 16;
  Position := 3;
  Width := 20;
end;

1 Ответ

3 голосов
/ 19 января 2010

Я сам нашел виновника проблемы! Это AnimationDuration: = 0

Как предложил Роб, я добавил этот вывод в качестве ответа, чтобы я мог его принять.

...