Components for Delphi and C++ Builder.

// Menyiapkan data grouping
   DBGPiutang.DataGrouping.Active := True;

   // Menambahkan level grup
   gl := DBGPiutang.DataGrouping.GroupLevels.Add;
   gl.Column := DBGPiutang.FieldColumns['Divisi'];

   // Ekspansi node grup
   DBGPiutang.DataGrouping.GroupLevels[0].ExpandNodes;

   // Menambahkan footer ke setiap grup
   for k := 0 to DBGPiutang.DataGrouping.GroupLevels.Count - 1 do
   begin
      Footer := TGridDataGroupFooterEh(DBGPiutang.DataGrouping.Footers.Add);
      Footer.Visible := True;
      Footer.ParentColor := True;
      Footer.ParentFont := True;
      Footer.ShowFunctionName := True;

   // Menyiapkan item footer untuk setiap kolom
   if Assigned(Footer.ColumnItems) then
   begin
      for j := 0 to DBGPiutang.Columns.Count - 1 do
      begin
         // Konfigurasi ColumnItem untuk kolom yang diinginkan
         if DBGPiutang.Columns.Items[j].FieldName = 'SisaFaktur' then
         begin
            ColumnItem := TGridDataGroupFooterColumnItemEh(Footer.ColumnItems.Add);
            ColumnItem.Alignment := taRightJustify;
            ColumnItem.Color := clYellow;
            ColumnItem.DisplayFormat := '###,###';
            ColumnItem.ShowFunctionName := True;
            ColumnItem.RunTimeCustomizable := True;
            ColumnItem.ValueType := gfvSumEh; // Fungsi untuk menjumlahkan nilai
         end;
      end;
   end
   else
   begin
      ShowMessage('Footer.ColumnItems is not initialized!');
   end;

   end;