Fix regression in previous revision: various code used an external variable that was moved to a place where setting it avoids race conditions.

This commit is contained in:
rosenfield.albert
2008-09-17 09:23:39 +00:00
parent 9d2bb7697b
commit c880527ed8

View File

@ -1419,8 +1419,8 @@ begin
DataGridCurrentSort := sorting;
debug('mem: initializing browse rows (internal data).');
SetLength(FDataGridResult.Rows, DataGrid.RootNodeCount);
for i:=0 to DataGrid.RootNodeCount-1 do begin
SetLength(FDataGridResult.Rows, count);
for i := 0 to count - 1 do begin
FDataGridResult.Rows[i].Loaded := False;
end;
debug('mem: initializing browse rows (grid).');