6 replies to this topic

[czbird]

Hi, please run this simple procedure:

Grid.BeginUpdate;
Grid.ClearRows;

for i := 1 to 20 do begin
Grid.AddRow;
Application.ProcessMessages;
Sleep(100);
end;

Grid.EndUpdate;

As you can see, the first row gets displayed in the grid, although BeginUpdate was called before.
Other rows are added correctly (silently) and displayed after EndUpdate.

Please fix this problem.

(Using version 5.9.5)

[czbird]

Ok, it's not that simple, but in the end I managed to create a sample project; please see the attachment.
And version 5.9.9 behaves the same (just updated).
The issue is somehow connected with hiding a panel component covering the grid in case the grid is empty.

Here is the whole code:

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
Grid.BeginUpdate;

for i := 1 to 10 do begin
Grid.AddRow;
Grid.Cell[0, Grid.LastAddedRow].AsInteger := 0;
Grid.Cell[1, Grid.LastAddedRow].AsString := IntToStr(Grid.RowCount);
Grid.Cell[2, Grid.LastAddedRow].AsString := 'some text';
Application.ProcessMessages;
Sleep(100);
end;

Grid.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.ClearClick(Sender: TObject);
begin
Grid.ClearRows;
end;

procedure TForm1.GridDataChange(Sender: TObject; AChangeType: TDataChange;
const AIndex: Integer);
begin
if AChangeType in [dcAddRow, dcInsertRow, dcDeleteRow, dcClearRows] then
EmptyGridPanel.Visible := Grid.RowCount = 0;
end;

[czbird]

Here comes the sample project (XE5).

Attached Files

•  temp2-GridProblem.rar   62.36KB   2 downloads

[czbird]

Boki, would you please respond...

[Boki (Berg)]

Hi,

Please sorry for my delay.

It seems that Panel you placed over grid causes repaint (WM_PAINT message).

Maybe you can add next line in Paint procedure:

procedure TNxCustomGridControl.Paint;
var
  CaptionRect: TRect;
begin
  inherited;

  if UpdateCount > 0 then Exit; // <------ New line

Please tell me how this work. I hope that I will not ruin anything with it. I will need to check it more.

[Boki (Berg)]

PS. if this fix work for you, I need to update EndUpdate method too (easy fix).

[czbird]

Hi Boki, this seems to be working just fine. Thanks.