Chartの画像保存 (ID:33759)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Mr.XRAYです．

>{＊}  TFmGraphDisplay(MDIChildren[child_index]).ChGraph.PrintPartial(R);

これは，TChartがalClientで表示されているMDIの意味のようですが，
あくまでもTChartを対象としてやってみました．
以下は，ChartFormというフォームの，Chart1というチャートを，
JPEGとして保存する例です．

動作確認は，Windows XP(SP3) + Delphi7 Pro
TeeChart(TChart)はDelphi7 Pro附属のStandard版です．

TChartは，ヘルプでは，
Delphi7の場合
1. キーワードに[TChart]と入力
2. リストから[TChart]を開く
3. 検索結果から[TChartコンポーネント]を開く
4. メソッドを表示
5. 使えそうな文字があるメソッド名の説明を開いて確認してみる

ですね．
ここに，[TeeCreateMetafile]というのがあります．これを使用した例です．

//  JPEGの使用にはusesにJPegが必要

procedure TForm1.Button3Click(Sender: TObject);
var
    AMeta   : TMetafile;
    ABmp    : TBitmap;
    AJpeg   : TJpegImage;
    AWidth  : Integer;
    AHeight : Integer;
begin
    AMeta := TMetafile.Create;
    ABmp  := TBitmap.Create;
    AJpeg := TJPEGImage.Create;
    try
      AWidth  := ChartForm.Chart1.Width;
      AHeight := ChartForm.Chart1.Height;

//Chart1の画像をメタファイルにする
      AMeta := ChartForm.Chart1.TeeCreateMetafile(True, ChartForm.Chart1.ClientRect);
      
      //Bitmapのサイズを設定
      ABmp.Width :=AWidth;
      ABmp.Height:=AHeight;
      
      //BitmapのCanvasにAMetaを描画
      ABmp.Canvas.StretchDraw(Rect(0,0,ABmp.Width,ABmp.Height),AMeta);
      
      //Jpegに変換して保存
      AJpeg.Assign(ABmp);
      AJpeg.SaveToFile('AJpeg.jpg');
    finally
      FreeAndNil(AJpeg);
      FreeAndNil(ABmp);
      FreeAndNil(AMeta);
    end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る