Sumas en el Footer de un SM DBGrid

[Delphitest]

Muchas gracias por tu ayuda.

Lo he probado a modo de ejemplo en un form nuevo y funciona a la perfección.

Se me estaba pasando un detalle, no sabía que tenía que llamar grid.CalculateTotals() , pensaba que era algo automático...

Seguiré dándole vueltas a los grids que tengo en el programa porque, aunque me funcione en un form nuevo, no soy capaz de ver el footer en los grids que tengo ya hechos, se conoce que de tantas pruebas que he hecho he debido dejar algo cambiado. Todo el footer me aparece en blanco en vez de gris y sin contenido, ¿te suena este fallo de algo?

Un saludo

[pacopenin]

Hola.

Yo también lo utilizo y es tal cual comenta lbidi.

Solo comentar que la llamada a grid.CalculateTotals() puede llevar como parámetro True o False, dependiendo si quieres que la operación de cálculo sea con todos los registros del grid o sólamente con los que están seleccionados.

Además utilizo éste código para que queden los importes formateados :

Código Delphi [-]

procedure TFBusqueda.smDBGridUIDrawFooterCell(Sender: TObject; Canvas: TCanvas;
  FooterCellRect: TRect; Field: TField; var FooterText: string;
  var DefaultDrawing: Boolean);
begin
  if (Field is TFloatField) then
    if (Field as TFloatField).currency then
      if FooterText <> '' then
         FooterText := FormatFloat(',0.00', StrToFloat(FooterText));
end;