Merge pull request #929 from lyynxx/master

Fix for issue #872: TVirtualTreeColumns: Show column header text as h…

Author: joachimmarder

Source/VirtualTrees.pas

@@ -15867,6 +15867,12 @@ procedure TBaseVirtualTree.CMHintShow(var Message: TCMHintShow);
           if (HitInfo.HitColumn > NoColumn) and not (csLButtonDown in ControlState) then
           begin
             HintStr := FHeader.FColumns[HitInfo.HitColumn].FHint;
+            if HintStr = '' then
+              with FHeader.FColumns[HitInfo.HitColumn] do
+              begin
+                if (2 * FMargin + CaptionWidth + 1) >= Width then
+                  HintStr := FCaptionText;
+              end;
             if HintStr <> '' then
               ShowOwnHint := True
             else