This commit is contained in:
Ansgar Becker
2008-08-13 19:08:52 +00:00
parent 3c30298e51
commit 971385c4c3

View File

@ -5478,7 +5478,7 @@ var
begin begin
if Sender = DataGrid then res := FDataGridResult if Sender = DataGrid then res := FDataGridResult
else res := FQueryGridResult; else res := FQueryGridResult;
if not res.Rows[Node.Index].Loaded then begin if (not res.Rows[Node.Index].Loaded) and (res.Rows[Node.Index].State <> grsInserted) then begin
start := Node.Index - (Node.Index mod GridMaxRows); start := Node.Index - (Node.Index mod GridMaxRows);
limit := DataGrid.RootNodeCount - start; limit := DataGrid.RootNodeCount - start;
if limit > GridMaxRows then limit := GridMaxRows; if limit > GridMaxRows then limit := GridMaxRows;