pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: try to fix error message on calc footer row - tnx zyzmo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4523 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-02-25 12:16:57 +00:00
parent bb978ecb2c
commit 8921e15d99
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/rxdbgrid.pas
View File

@ -4972,7 +4972,8 @@ begin
end; end;
end; end;
DHS.RecNo := Min(DHL.RecordCount + SavePos - 1, DHS.RecNo); if Min(DHL.RecordCount + SavePos - 1, DHS.RecNo) > 0 then
DHS.RecNo := Min(DHL.RecordCount + SavePos - 1, DHS.RecNo);
K:=DHS.RecNo; K:=DHS.RecNo;
while not DHS.BOF do while not DHS.BOF do