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

動作環境

C++ Builder XE4
FastReport VCL5

関連

• C++ Builder XE4 > FastReport > ボタンを押したらPDFを生成するまでの手順 > Error: クラスTfrxChartViewが見つかりません. > 対処

資料

• FastReport 4.0 User's Manual
  • 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が見つかりません. > 対処

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

今回の実施

ここで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で開いた状況)

古い記事

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

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