{$IF lcl_fullversion >= 1080000}
    procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
      const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean); override;
    {$IFEND}

{$IF lcl_fullversion >= 1080000}
procedure TKCustomGrid.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
  const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
var
  I: Integer;
  C: TKGridCol;
begin
  inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);

  if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
  begin
    LockUpdate;
    try
      for I := ColCount - 1 downto 0 do
      begin
        C := Cols[I];
        C.MaxExtent := Round(C.MaxExtent * AXProportion);
        C.MinExtent := Round(C.MinExtent * AXProportion);
        C.Extent := Round(C.Extent * AXProportion);
      end;

      for I := RowCount - 1 downto 0 do
        RowHeights[I] := Round(RowHeights[I] * AYProportion);

      DefaultColWidth := Round(DefaultColWidth * AXProportion);
      DefaultRowHeight := Round(DefaultRowHeight * AYProportion);
    finally
      UnlockUpdate;
    end;
  end;
end;
{$IFEND}