fix: increase too tight node height

ansgarbecker · ansgarbecker · commit 60ad998715bb · 2026-01-19T11:57:28.000+01:00
Hopefully does not again cause crashes Refs #2344
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -1457,17 +1457,17 @@ procedure StreamToClipboard(Text, HTML: TStream);
 
 procedure FixVT(VT: TVirtualStringTree; MultiLineCount: Word=1);
 var
-  //SingleLineHeight: Integer;
+  SingleLineHeight: Integer;
   Node: PVirtualNode;
 begin
   // This is called either in some early stage, or from preferences dialog
-  //SingleLineHeight := GetTextHeight(VT.Font) + 7;
+  SingleLineHeight := GetTextHeight(VT.Font) + 7;
   // Multiline nodes?
   // Node height calculation has some hard to find bug, see issue #2344
-  // So we'll leave DefaultNodeHeight, Header.MinHeight and Header.Height at their default values.
-  //VT.DefaultNodeHeight := SingleLineHeight * MultiLineCount;
+  // So we'll leave Header.MinHeight at its default value.
+  VT.DefaultNodeHeight := SingleLineHeight * MultiLineCount;
   //VT.Header.MinHeight := SingleLineHeight;
-  //VT.Header.Height := SingleLineHeight;
+  VT.Header.Height := SingleLineHeight;
   if MultiLineCount > 1 then begin
     VT.BeginUpdate;
     Node := VT.GetFirstInitialized;
