C++ Builder XE4 > FastReport > 手順: ボタンを押したらChart1の内容をPicture1にコピーしてPDFにする

```txt:動作環境
C++ Builder XE4
FastReport VCL5
```

### 関連

- [C++ Builder XE4 > FastReport > ボタンを押したらPDFを生成するまでの手順 > Error: クラスTfrxChartViewが見つかりません. > 対処](https://qiita.com/7of9/items/883f151a50d4ded5c8dd)

### 資料

- [FastReport 4.0 User's Manual](http://www.specjalistainformatyk.pl/download/fr_manual.pdf)
    - 8.5 Printing of a chart built in Delphi
        - Picture1へのChart1コピーの処理コード (Delphi)


### Chart1のPDF化概要

- TfrxRerpotから開くリポートのデザインでPicture1を配置
- Picture1に対してC++ BuilderのコードからChart1の内容をコピーする
- PDFに出力

### 前準備

- [C++ Builder XE4 > FastReport > ボタンを押したらPDFを生成するまでの手順 > Error: クラスTfrxChartViewが見つかりません. > 対処](https://qiita.com/7of9/items/883f151a50d4ded5c8dd)

に記載の内容を実施する。

### 今回の実施

**ここでChart1を追加して作業を進めると、Chart1に関するエラーが発生する。**


対処として下記を実施する (Chart1を追加してからfrxReport1を追加する)

1. frxReport1を削除する
2. フォームにTeeChartを追加する (Chart1)
3. フォームにTfrxReportを追加する (frxReport1)
4. frxReport1をダブルクリックしてリポートのデザイン画面に移る
5. Pictureを追加する (Picture1)
    - 小さいので大きくする
6. リポートのデザインを**保存せずに閉じる**
    - デザインはUnit1.dfmに追加される
7. frxReport1のOnBeforePrintで関数を定義する (下記のコード参照)

```Unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <DateUtils.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxExportPDF"
#pragma link "frxChart"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	// PDFエクスポート
	frxPDFExport1->FileName = L"test.pdf";
	frxPDFExport1->ShowDialog = true;
	frxPDFExport1->Quality = 100;
	frxReport1->PrepareReport(/* clearLastReport= */true);
	frxReport1->Export(frxPDFExport1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	// ダミーデータでグラフ生成
	Chart1->Series[0]->XValues->DateTime = true;
	Chart1->BottomAxis->DateTimeFormat = L"nn:ss";

	TDateTime dt;

	dt = Now();

	double yval;
	for (int idx=0; idx < 10; idx++) {
		yval = (1+ idx) % 2;
		Series1->AddXY(dt, yval, "", clRed);
		dt = IncSecond(dt, 1);
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
	TfrxPictureView *picptr = (TfrxPictureView *)Sender;

	if (Sender->Name == L"Picture1") {
		TMetafile *metaPtr = Chart1->TeeCreateMetafile(false, Rect(0, 0, Sender->Width, Sender->Height));
		picptr->Picture->Assign(metaPtr);
	}
}
//---------------------------------------------------------------------------
```

### 動作結果

1. Button1を押下
2. PDFへのエクスポートダイアログで[OK]を押す

生成されるtest.pdf
(PDF-XChange Viewerで開いた状況)

![2018-12-05_17h23_10.png](https://qiita-image-store.s3.amazonaws.com/0/32870/6f97c81a-168a-a2b2-46f4-ba6f9f4e0d60.png)


### 古い記事

実は2015年に似たようなことを記事にしてた。
今回ほど丁寧にしてはいないが。


- [c++ builder XE4, 10.2 Tokyo > グラフのPDF出力](https://qiita.com/7of9/items/5b292546dda2a7cf4ecb)