Using TWebTableControl.HideColumn() makes Footer disappear or shows error

WEB TMS WEB Core
1

Opening a fresh project and adding a TWebTableControl and adding the following code:

procedure TForm1.WebButton1Click(Sender: TObject);
begin
WebTableControl1.HideColumn(0);
end;

procedure TForm1.WebButton2Click(Sender: TObject);
begin
WebTableControl1.HideColumn(1);
end;

procedure TForm1.Form1Create(Sender: TObject);
begin
WebTableControl1.Footer.Visible:=true;
WebTableControl1.Footer.Pager:=tpPrevNext;

WebTableControl1.Paging.Enabled:=True;

WebTableControl1.Cells[0,0]:='Col 1';
WebTableControl1.Cells[1,0]:='Col 2';
WebTableControl1.Cells[2,0]:='Col 3';

WebTableControl1.Cells[0,1]:='Row 1';
WebTableControl1.Cells[1,1]:='Row 2';
WebTableControl1.Cells[2,1]:='Row 3';
end;

If I call WebButton1Click to hide the first column, this works but the page footer disappears.

If I call WebButton2Click to hide the second column, this works and the footer doesn't disappear but an error is thrown.

Is this expected behaviour or an error on my part somehow?

Thanks!

3

We traced & solved this issue. The next update will address this.

4

Thanks, Bruno and co!

On a similar note, using the OnClickCell events don't work properly when using pagination, either.
They will work for the first page of the table, but thereafter report an error about reading undefined data.

Thanks!

5

Cell access is page relative.
In the WebTableControl Paging demo, this works:

procedure TForm5.WebTableControl1ClickCell(Sender: TObject; ACol,
  ARow: Integer);
begin
  arow := arow - (webtablecontrol1.Paging.Size * webtablecontrol1.Paging.Index);
  showmessage('click:'+acol.ToString+'.'+arow.ToString+' ' + webtablecontrol1.Cells[acol,arow]);
end;
6

Ah, my mistake.

Thank you!