如何把TChart存为bmp文件

解决方案 »

  1.   

    通过canvas将图片读出来,然后保存
      

  2.   

    好像Chart本身有方法SaveToBitmapFile
      

  3.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      Chart1.SaveToBitmapFile('c:\1.bmp')
    end;
      

  4.   

    同意楼上的观点var
        Bitmap: TBitmap;
        Rect: TRect;
    begin
        if OpenDialog1.Execute then
        begin
            Bitmap := TBitmap.Create;
            Bitmap.Width := Chart1.Width;
            Bitmap.Height := Chart1.Height;
            Rect.Left := 0;
            Rect.Top := 0;
            Rect.Right := Chart1.Width - 1;
            Rect.Bottom := Chart1.Height - 1;
            Bitmap.Canvas.CopyRect(Rect, Chart1.Canvas, Rect);
            Bitmap.SaveToFile(OpeDialog1.FileName);
            Bitmap.Free;
        end;
    end;