Issue #1198: a) Removed meanwhile obsolete setting of ScalingFlags

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);