From e370cfcea264e33ba81293916d393b55de9c2a5b Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 2 Oct 2009 20:58:38 +0000
Subject: [PATCH] * Set HintMaxWidth for multiline hints

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@967 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/VirtualTrees.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/components/virtualtreeview-new/VirtualTrees.pas b/components/virtualtreeview-new/VirtualTrees.pas
index 92017fd61..59ec8de88 100644
--- a/components/virtualtreeview-new/VirtualTrees.pas
+++ b/components/virtualtreeview-new/VirtualTrees.pas
@@ -16303,6 +16303,7 @@ begin
         // from the node or from the DefaultHint
         if ShowOwnHint and (Result = 0) then
         begin
+          FHintData.LineBreakStyle := hlbDefault;
           FLastHintRect := CursorRect;
           if Length(FHintData.DefaultHint) > 0 then
             HintStr := FHintData.DefaultHint
@@ -16311,6 +16312,16 @@ begin
               HintStr := DoGetNodeToolTip(HitInfo.HitNode, HitInfo.HitColumn, FHintData.LineBreakStyle)
             else
               HintStr := DoGetNodeHint(HitInfo.HitNode, HitInfo.HitColumn, FHintData.LineBreakStyle);
+          // Determine actual line break style depending on what was returned by the methods and what's in the node.
+          if (FHintData.LineBreakStyle = hlbDefault) and (vsMultiline in HitInfo.HitNode.States) then
+            FHintData.LineBreakStyle := hlbForceMultiLine;
+          if FHintData.LineBreakStyle = hlbForceMultiLine then
+          begin
+            // NodeRect is already calculated for ToolTip
+            if FHintMode <> hmTooltip then
+              NodeRect := GetDisplayRect(HitInfo.HitNode, HitInfo.HitColumn, True, False);
+            HintMaxWidth := NodeRect.Right - NodeRect.Left;
+          end;
         end
         else
           FLastHintRect := Rect(0, 0, 0, 0);