Permalink
Browse files

Restore old look of tooltips in grids and trees, like it was before t…

…he recent VirtualTree update.
  • Loading branch information...
ansgarbecker committed Jan 3, 2019
1 parent 027f1b8 commit ab67e0326502c9d3311fe0929283946ae9ca3d0c
Showing with 5 additions and 1 deletion.
  1. +5 −1 source/apphelpers.pas
@@ -1486,7 +1486,11 @@ procedure FixVT(VT: TVirtualStringTree; MultiLineCount: Word=1);
VT.OnScroll := MainForm.AnyGridScroll;
VT.OnMouseWheel := MainForm.AnyGridMouseWheel;
VT.ShowHint := True;
VT.HintMode := hmToolTip;

if toVariableNodeHeight in VT.TreeOptions.MiscOptions then
VT.HintMode := hmHint // Show cell contents with linebreakds in datagrid and querygrid's
else
VT.HintMode := hmTooltip; // Just a quick tooltip for clipped nodes
// Apply case insensitive incremental search event
if VT.IncrementalSearch <> VirtualTrees.isNone then
VT.OnIncrementalSearch := Mainform.AnyGridIncrementalSearch;

0 comments on commit ab67e03

Please sign in to comment.