Restore old look of tooltips in grids and trees, like it was before the recent VirtualTree update.

This commit is contained in:
Ansgar Becker
2019-01-03 20:38:48 +01:00
parent 027f1b8669
commit ab67e03265

View File

@ -1486,7 +1486,11 @@ begin
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;