Chartの画像保存 (ID:33756)

名前

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

本文

Mr.XRAYさん、たびたびの返信ありがとうございます。
当方の環境は、Delphi7です。

当該アプリは、MDIスタイルで子フォームには
TChartが全面に置かれています。
印刷する際は、以下のように子フォームを並べて
印刷しています。

procedure TFmMain.PrintfChart;
var
  R : TRect;
  graph_num:Integer;
  child_index:Integer;
  graph_index:Integer;
  page_height:Integer;
  capture_width:Integer;
begin

Printer.BeginDoc;

capture_width := 200;
  graph_index := 0;
  page_height := Printer.PageHeight - capture_width;

for child_index := 0 to MDIChildCount - 1 do
  begin
    if IsIconic(TFmGraphDisplay(MDIChildren[child_index]).Handle) = False then
    begin
      Inc(graph_index);

With R do
      begin
        Left  := 0;
        Right := Printer.PageWidth - 1;
        Top  :=  page_height div graph_num * (graph_index - 1) + capture_width;
        Bottom:= page_height div graph_num * graph_index - 1 + capture_width;
      end;

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

Printer.EndDoc;
end;

で、Mr.XRAYさんの言われたように、{＊}の箇所を
以下のようにしようとしたのですが、「2. ビットマップのインスタンスを作成し，
そのCanvasにメタファイルを描画する」のところで詰まってしまいました。
  
  Chart1.SaveToMetafileRect(false, 'metafile.dat', rect);
  bit_file := TBitMap.Create;
  //ビットマップのCanvasにメタファイルを描画する？？？
  bit_file.Canvas  ？？？

ここは、どのように処理すれば良いでしょうか?

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

戻る