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; DataGridCurrentSort := sorting;
debug('mem: initializing browse rows (internal data).'); debug('mem: initializing browse rows (internal data).');
SetLength(FDataGridResult.Rows, DataGrid.RootNodeCount); SetLength(FDataGridResult.Rows, count);
for i:=0 to DataGrid.RootNodeCount-1 do begin for i := 0 to count - 1 do begin
FDataGridResult.Rows[i].Loaded := False; FDataGridResult.Rows[i].Loaded := False;
end; end;
debug('mem: initializing browse rows (grid).'); debug('mem: initializing browse rows (grid).');