CalcFooter bug

VCL TMS VCL UI Pack
1
Hi i've components TMS Component Pack 7.2.0.0
 
In the create form i ve :
  grdFidyMovs.FloatingFooter.ColumnCalc[2]:=acSUM;
  grdFidyMovs.FloatingFooter.ColumnCalc[3]:=acSUM;
  grdFidyMovs.CalcFooter(2);
  grdFidyMovs.CalcFooter(3);
 
But in the footer don't show any sum ! floating footer is visible ....
 
2

I cannot see any problem here.

I retested this with a default TAdvStringGrid on the form and the code:


procedure TForm1.FormCreate(Sender: TObject);
begin
  grdFidyMovs.FloatingFooter.Visible := true;
  grdFidyMovs.FloatingFooter.ColumnCalc[2]:=acSUM;
  grdFidyMovs.FloatingFooter.ColumnCalc[3]:=acSUM;

  grdFidyMovs.RandomFill;

  grdFidyMovs.CalcFooter(2);
  grdFidyMovs.CalcFooter(3);
end;

and this shows in column 2 & 3 the sum of these columns.

3

this is a DBADVGrid... if i use grdFidyMovs.Floats[3,grdFidyMovs.RowCount-1]:=grdFidyMovs.ColumnSum(3,1,grdFidyMovs.RowCount-2);

grdFidyMovs.FloatingFooter.Invalidate();
 
GO FINE ! tell me if i must set any parameter in the grid BYE
4

Did you make to sure to activate your dataset before setting: 

 grdFidyMovs.FloatingFooter.ColumnCalc[2]:=acSUM;
 grdFidyMovs.FloatingFooter.ColumnCalc[3]:=acSUM;
5

In fact bruno this solve the problem ... because i open and close dataset many times but i thought its necessary to set only one time the ColumnCalc[2]:=acSUM; !!

Thank u BYE