From c99dd9c7432999f136a20bf6b69b4f03a371c5e3 Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Tue, 1 Aug 2023 14:20:13 +0200
Subject: [PATCH] Issue #1198: a) Removed meanwhile obsolete setting of
 ScalingFlags

---
 Source/VirtualTrees.BaseTree.pas | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas
index c027778a..dfc2cee8 100644
--- a/Source/VirtualTrees.BaseTree.pas
+++ b/Source/VirtualTrees.BaseTree.pas
@@ -8976,12 +8976,6 @@ procedure TBaseVirtualTree.Change(Node: PVirtualNode);
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TBaseVirtualTree.ChangeScale(M, D: Integer{$if CompilerVersion >= 31}; isDpiChange: Boolean{$ifend});
-{$if CompilerVersion < 27}
-const
-  DefaultScalingFlags = [sfLeft, sfTop, sfWidth, sfHeight, sfFont]; // Was introduced with XE6: http://docwiki.embarcadero.com/Libraries/XE6/en/Vcl.Controls.TControl.DefaultScalingFlags
-{$ifend}
-var
-  Flags: TScalingFlags;
 begin
   if (toAutoChangeScale in FOptions.AutoOptions) then
   begin
@@ -8992,11 +8986,6 @@ procedure TBaseVirtualTree.ChangeScale(M, D: Integer{$if CompilerVersion >= 31};
         {$if CompilerVersion >= 31}
         ScaleForPPi(Self.CurrentPPI);
         {$ifend}
-        // It is important to evaluate the TScalingFlags before calling inherited, becuase they are differetn afterwards!
-        if csLoading in ComponentState then
-          Flags := ScalingFlags
-        else
-          Flags := DefaultScalingFlags; // Important for #677
         TVTHeaderCracker(FHeader).ChangeScale(M, D, {$if CompilerVersion >= 31}isDpiChange{$ELSE} M <> D{$ifend});
         SetDefaultNodeHeight(MulDiv(FDefaultNodeHeight, M, D));
         Indent := MulDiv(Indent, M, D);