G gdhw Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-06 #1 我用chart作了图之后,用canvas在chart上画了几条线,然后用chart1.SaveToBitmapFile 想保存图,但用canvas在chart上画的几条线没法保存,该怎么办?
R realLearning Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-06 #2 procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBItmap; begin Bitmap := TBitmap.Create; try Bitmap.PixelFormat := pf24Bit; Bitmap.Width := DBChart1.Width ; Bitmap.Height := DBChart1.Height ; DBChart1.Canvas.Rectangle(10,10,50,50); Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,DBChart1.Canvas.ReferenceCanvas,DBChart1.Canvas.ReferenceCanvas.ClipRect); Bitmap.SaveToFile('F:/bbb.bmp'); finally Bitmap.Free; end; end;
procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBItmap; begin Bitmap := TBitmap.Create; try Bitmap.PixelFormat := pf24Bit; Bitmap.Width := DBChart1.Width ; Bitmap.Height := DBChart1.Height ; DBChart1.Canvas.Rectangle(10,10,50,50); Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,DBChart1.Canvas.ReferenceCanvas,DBChart1.Canvas.ReferenceCanvas.ClipRect); Bitmap.SaveToFile('F:/bbb.bmp'); finally Bitmap.Free; end; end;