Issue #1198: f) AutoScale() should scale existing nodes

JAM-Software · Aug 1, 2023 · 8bf8b07 · 8bf8b07
1 parent cdb0413
commit 8bf8b07
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas
@@ -16436,9 +16436,12 @@ procedure TBaseVirtualTree.AutoScale();
     lTextHeight := Canvas.TextHeight('Tg') + 2;
     // By default, we only ensure that DefaultNodeHeight is large enough.
     // If the form's dpi has changed, we scale up and down the DefaultNodeHeight, See issue #677.
-    if (lTextHeight > Self.DefaultNodeHeight) then
+    if (lTextHeight > Self.DefaultNodeHeight) then begin
+      ScaleNodeHeights(lTextHeight, DefaultNodeHeight);
       Self.DefaultNodeHeight := lTextHeight;
-  end;
+      TVTHeaderCracker(FHeader).ChangeScale(lTextHeight, DefaultNodeHeight);
+    end;// if
+  end;// if HandelAllocated
 end;
 
 //----------------------------------------------------------------------------------------------------------------------