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

RxFPC:fix cal footer row

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8922 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2023-09-08 11:29:09 +00:00
parent 200668d5b9
commit 66b826e5cf
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -6090,7 +6090,7 @@ begin
for C in Columns do for C in Columns do
begin begin
if (C.Footer.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible then if (C.Footer.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible and (C.Footer.FieldName<>'') then
begin begin
FCList.Add(C); FCList.Add(C);
C.Footer.FField:=DHS.FieldByName(C.Footer.FieldName); C.Footer.FField:=DHS.FieldByName(C.Footer.FieldName);
@ -6098,7 +6098,7 @@ begin
for F in C.Footers do for F in C.Footers do
begin begin
if (F.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible then if (F.ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and C.Visible and (F.FieldName<>'') then
begin begin
if FCList.IndexOf(C) < 0 then if FCList.IndexOf(C) < 0 then
FCList.Add(C); FCList.Add(C);