如何保存用canvas在chart上画的几条线!(100分)

  • 主题发起人 主题发起人 gdhw
  • 开始时间 开始时间
G

gdhw

Unregistered / Unconfirmed
GUEST, unregistred user!
我用chart作了图之后,用canvas在chart上画了几条线,然后用chart1.SaveToBitmapFile
想保存图,但用canvas在chart上画的几条线没法保存,该怎么办?
 
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;
 
谢谢你!给你100分
 
后退
顶部