Ver Mensaje Individual
  #3  
Antiguo 20-05-2020
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Reputación: 19
JoAnCa Va por buen camino
Muchas gracias gatosoft por tu respuesta, pero no me sirvio para el grafico (TDBChart), pues el procedimiento que me indicas usa la clase TCanvas y el TDBChart usa TCanvas3D, por lo que me da incompatibilidad de tipos.
Le hice algunos cambios para solucionar la incompatibilidad, pero solo me guarda un cuadro blanco.

Pero segui buscando y encontre la solución aquí

Es muy facil usando las mismas propiedades de TDBChart, explican 2 formas de hacerlo, pero me gusto mas la segunda que permite guardar en un fichero o copiarlo al portapapeles.

1
Código Delphi [-]
DBChart1.SaveToBitmapFile('c:\grafico.bmp');

2
Poner en el uses Teexport
Código Delphi [-]
procedure TformCuadroMando.bExportarClick(Sender: TObject); 
begin 
  with TTeeExportForm.Create(Self) do 
  try 
    ExportPanel := DBChart1; 
    ShowModal(); 
  finally 
    Free(); 
  end; 
end;

Tema solucionado
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes

Última edición por JoAnCa fecha: 20-05-2020 a las 04:27:15.
Responder Con Cita