procedure TBaseVirtualTree.SetDefaultNodeHeight(Value: TDimension);
begin
if Value = 0 then
Value := cInitialDefaultNodeHeight;
if FDefaultNodeHeight <> Value then
begin
==>This line should check csLoading in ComponentState to avoid this problem
if (Parent <> nil) and (toAutoChangeScale in TreeOptions.AutoOptions) then
HandleNeeded(); // Create window handle and font proactively to prevent any unintended rescaling in AutoChnageScale(). See issue #1341#1366
procedure TBaseVirtualTree.SetDefaultNodeHeight(Value: TDimension);
begin
if Value = 0 then
Value := cInitialDefaultNodeHeight;
if FDefaultNodeHeight <> Value then
begin
==>This line should check csLoading in ComponentState to avoid this problem
if (Parent <> nil) and (toAutoChangeScale in TreeOptions.AutoOptions) then
HandleNeeded(); // Create window handle and font proactively to prevent any unintended rescaling in AutoChnageScale(). See issue #1341#1366