How can I fix a padding value in ADVGrid

VCL TMS VCL UI Pack
1

I use

if AGrid.FilterDropDownAuto then
    AGrid.AutoSizeCells(True, 20, 4)
  else
    AGrid.AutoSizeCells(True, 10, 4);

for a nice look in a AdvGrid.

How can I include the padding values when resize is done via mouse when
MouseActions.AutoSizeColOnDblClick enabled?

Further could you consider enabled option AGrid.FilterDropDownAuto when auto sizing? I think the filter-button should not lay over the column header text.

Thanks
Björn

2

Do you use the latest version of TMS VCL UI Pack as I cannot see an issue with auto-size and the availability of a filter dropdown button on the grid

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  advstringgrid1.AutoSizeColumns(true);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advstringgrid1.RandomFill(false,1000);
  advstringgrid1.Cells[1,0] := 'some long text';
  advstringgrid1.FilterDropDownAuto := true;
  advstringgrid1.Options := advstringgrid1.Options + [goColSizing];
end;

See recording:
gridcolsizing