keyTMS ALL-ACCESS
local_offerOne money and time saving bundle
mouseCross Platform UI
bar_chartReporting
languageWeb
swap_horizCommunication
storageData
mouseWindows UI
  •  
  •  
  •  
  1. Home
  2. Products
  3. VCL Components
  4. TAdvStringGrid
  5. Example 49

TAdvStringGrid

Example 49 : auto calculating floating footers

vcl grid floating footer

It is now very convenient to show automatically calculated values in the fixed floating footer of TAdvStringGrid. Automatic calculations of column sum, column minimum, column maximum, column average and column rowcount can be easily added. Only 2 steps are required to enable this : 
grid.FloatingFooter.Visible := True; // show the floating footer
grid.FloatingFooter.ColumnCalc[colindex] := CalcType; // set the calculation type for the column colindex in the floating footer.
The calculation type CalcType can be:

acCount: show rowcount
acSum: show column sum
acAvg: show column average
acMin: show column minimum
acMax: show column maximum


As such, the sample app's setup was done with: 

procedure TForm1.FormCreate(Sender: TObject);
begin
 AdvStringGrid1.FloatingFooter.ColumnCalc[0] := acCount;
 AdvStringGrid1.FloatingFooter.ColumnCalc[1] := acSum;
 AdvStringGrid1.FloatingFooter.ColumnCalc[2] := acAvg;
 AdvStringGrid1.FloatingFooter.ColumnCalc[3] := acMin;
 AdvStringGrid1.FloatingFooter.ColumnCalc[4] := acMax;
 AdvStringGrid1.RandomFill(False,100);
 AdvstringGrid1.AutoNumberCol(0);
end;

Whenever a cell changes through editing or through loading, the automatically recalculated value shows in the floating footer.

Delphi project & source files for downloading included in the main demos distribution for Delphi.