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

RxDBGrid - redesing CollumnDialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-05-19 12:41:29 +00:00
parent 44a02408aa
commit acdbfd899b
12 changed files with 394 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4083,7 +4083,7 @@ var
P_26: TBookmark;
{$ENDIF}
P: TBookmark;
i, cnt: integer;
i, cnt, K: integer;
APresent: boolean;
DHL:THackDataLink;
@ -4163,10 +4163,11 @@ begin
begin
RCol:=TRxColumn(Columns[i]);
if RCol.Footer.ValueType = fvtCount then
RCol.Footer.FCountRec:=Cnt; //( DHS.FieldByName(RCol.Footer.FieldName).Value);
RCol.Footer.FCountRec:=Cnt;
end;
DHS.RecNo := Min(DHL.RecordCount + SavePos + 1, DHS.RecNo);
DHS.RecNo := Min(DHL.RecordCount + SavePos - 1, DHS.RecNo);
K:=DHS.RecNo;
// DHS.RecNo := SavePos;
while not DHS.BOF do