c++ builder XE4, 10.2 Tokyo > グラフのPDF出力

動作環境

C++ builder XE4
    TeeChart Lite v2013.08.130414
RAD Studio 10.2 Tokyo Update 2 (追記 2018/01/09)
    TeeChart v2016.17.160129 32bit VCL

#とっかかり
TChartのグラフをPDF出力するとっかかり。

1. フォームにTChartを追加 (Chart1)
2. フォームにTfrxPDFExportを追加 (frxPDFExport1)
3. フォームにTfrxReportを追加 (frxReport1)
4. Chart1にてSeries1を追加しておく (Fast Lineなどを使う)
5. frxReport1にて図オブジェクトを追加しておく

以下の実装をすることでbuttonクリック時にtest.pdfが作成される。

pdfout.cpp

//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Chart1->Series[0]->AddXY(1, 2.7182);
	Chart1->Series[0]->AddXY(2, 3.1415);
	Chart1->Series[0]->AddXY(3, 6.022);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	frxPDFExport1->FileName = L"test.pdf";
	frxPDFExport1->ShowDialog = false;
	frxReport1->PrepareReport(true);
	frxReport1->Export(frxPDFExport1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
	TfrxPictureView *p = (TfrxPictureView *)Sender;
	if (p->Picture == NULL) {
            return;
	}
	p->Picture->Assign(
		Chart1->TeeCreateMetafile(
			false,
			Rect(0, 0, int(Sender->Width), int(Sender->Height))
		)
	);
}
//---------------------------------------------------------------------------

#複数ページ出力

複数のグラフを出力する方法の一つ

frxReport1->PrepareReport()する前にデータをセットする方法をとっている。

multipage.cpp

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	frxPDFExport1->FileName = L"test.pdf";
	frxPDFExport1->ShowDialog = false;
	updateData(0);
	frxReport1->PrepareReport(true);
	updateData(1);
	frxReport1->PrepareReport(false);
	updateData(2);
	frxReport1->PrepareReport(false);
	frxReport1->Export(frxPDFExport1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
	TfrxPictureView *p = (TfrxPictureView *)Sender;
	if (p->Picture == NULL) {
            return;
	}
	p->Picture->Assign(
		Chart1->TeeCreateMetafile(
			false,
			Rect(0, 0, int(Sender->Width), int(Sender->Height))
		)
	);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::updateData(int idx)
{
	Chart1->Series[0]->Clear();

	switch(idx) {
	case 0:
		Chart1->Series[0]->AddXY(1, 2.7182);
		Chart1->Series[0]->AddXY(2, 2.7182);
		Chart1->Series[0]->AddXY(3, 2.7182);
		break;
	case 1:
		Chart1->Series[0]->AddXY(1, 3.1415);
		Chart1->Series[0]->AddXY(2, 3.1415);
		Chart1->Series[0]->AddXY(3, 3.1415);
		break;
	case 2:
		Chart1->Series[0]->AddXY(1, 6.022);
		Chart1->Series[0]->AddXY(2, 6.022);
		Chart1->Series[0]->AddXY(3, 6.022);
		break;
	}

}
//---------------------------------------------------------------------------

#補足 (気づき点)
実行時パッケージを使ってリンク: true
動的RTLとリンク: true
の時はfrxReport1BeforePrint()の処理内ではp->Pictureには必ずNULL以外が入る。

実行時パッケージを使ってリンク: false
動的RTLとリンク: false
の時はfrxReport1BeforePrint()の処理内ではp->PictureがNULLの時もある。

そのためp->Picture == NULLでreturnする処理が必要になる。