cxGird adding footer dynamically

1
2
3
4
5
6
7

    if dbgehMainDBTableView1.DataController.DataSet.Fields[i].DataType = ftFloat then
    begin
      cxGridDBTableSummaryItem := dbgehMainDBTableView1.DataController.Summary.FooterSummaryItems.Add as TcxGridDBTableSummaryItem;
      cxGridDBTableSummaryItem.Column := dbgehMainDBTableView1.columns[i];
      cxGridDBTableSummaryItem.FieldName := dbgehMainDBTableView1.DataController.DataSet.Fields[i].DisplayName;
      cxGridDBTableSummaryItem.Kind := skSum;
    end;