Imprecion con Chart FX
Hola
Tengo un Chart FX y no me sirve como imprime este control, la funcion de imprimir esta incorporada en el y no se como modificarla. si alguien sabe como, me seria de mucha utilidad tengo Delphi 5. Gracias |
ya tengo la solucion
en las declaraciones publicas //Boton a mostrar BtnMPrint: TBitBtn; //Evento para imprimir en el reporte Procedure BtnPrintM(Sender : TObject); //Copia la imagen del del grafico en el ClipBoard Function CopyToClipBoard:tBitmap; //Envia el boton al frente Procedure botonAlFrente; En el constructor {coloca un boton sobre la opcion de imprimir del control TChartFX, por que este evento no se puede heredar de dicho control y necesito modificarlo asi que creo un control y le asigno el evento que necesito} BtnMPrint:=TBitBtn.Create(self); BtnMPrint.top:=4; BtnMPrint.Left:=97; BtnMPrint.Width:=23; BtnMPrint.Height:=23; BtnMPrint.OnClick := BtnPrintM; BtnMPrint.Parent:=self; BotonAlFrente; Procedimiento //Retorna la imagen del grafico function TdGrafico.CopyToClipBoard: tBitmap; var BMP:tBitmap; i:Integer; begin BMP := tBitmap.Create; try i:=FChart.CopyBitmap; Bmp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); Result:=BMP; finally BMP.Free; end; end; //Imprime en el un quitreport procedure TdGrafico.BtnPrintM(Sender: TObject); var ImpGrafico:TImpGrafico;//Este es un Qreport un Qrimage bmp:tBitmap; i:integer; begin ImpGrafico := tImpGrafico.Create(Self); try BMP := TBitmap.Create; try Bmp:=CopyToClipBoard; ImpGrafico.Grafico.Picture.Bitmap:=Bmp; ImpGrafico.Refresh; ImpGrafico.Prepare; ImpGrafico.PreviewModal; finally BMP.Free; end; finally ImpGrafico.Free; end; end; //Envia el boton al frente procedure TdGrafico.botonAlFrente; begin BtnMPrint.BringToFront; end; No es la solucion mas elegante pero funciona. Lo unico que me falta es darle el icono a el boton, pero no se como. Gracias |
Se me olvido halgo muy importante
en el destructor //Elimina el obgeto de memoria BtnMPrint.free; |
Hola agonzalez. en tu mensaje lei que tienes un chart Fx y no se donde puedo localizar ese componente tu me podrias decir ?
|
La franja horaria es GMT +2. Ahora son las 14:58:44. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi