[DBAdvGrid] Error, if Group+HideColumn+Close

VCL TMS VCL UI Pack
1

Hi

I group a DBAdvGrid. OK
Hide a column. Move, scroll,... OK.
Close the base dataset, beacuse refresh the data. I get the error.


Grid index out of range.

In AdvGrid.Pas, here:

procedure TAdvStringGrid.InsertCols(ColIndex,CCount: Integer);
var
  i: Integer;
begin
  ColCount := ColCount + CCount;

  for i := ColCount - 1 + FNumHidden downto ColIndex + CCount do
  begin
    Cols := Cols[i - CCount];
    if i < ColCount then
      ColWidths := ColWidths[i - CCount];
    FVisibleCol := FVisibleCol[i - CCount];
  end;

  for i := ColIndex to ColIndex + CCount - 1 do
  begin
    ColWidths := DefaultColWidth;    
    FVisibleCol := True;                   Error here
  end;

  for i := 0 to CCount - 1 do
    NilCol(ColIndex + i)
end;

Delphi 7, TMS CP 6.1.5.0, XP, IBX

Thanks in advance

2

The error is stay in TMS C.Pack 6.2.0.0 too.

3

If don't hide any column, everythink ok.
Hide any column: get same error.

4

Did you try to unhide the column before closing the dataset?

5

If unhide before close, everything OK.
It's a solution, i take the unhide on the datasetBeforeClose.

Thanks.

6

Do you have some sample source project with which we can reproduce this here so we can investigate this. So far, we'v been unable to see such problem here.