C++ Builder 10.2 Tokyo > FastReport > TfrxLineViewer로 선 그리기 > performance: 20만 그리기는 불가능

RAD Studio 10.2 Tokyo Update 3
Fast Report VCL 5

개요

참고

구현

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "frxClass.hpp"
#include "frxExportPDF.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE で管理されるコンポーネント
    TfrxPDFExport *frxPDFExport1;
    TfrxReport *frxReport1;
    TButton *Button1;
    void __fastcall frxReport1BeforePrint(TfrxReportComponent *Sender);
    void __fastcall Button1Click(TObject *Sender);
private:    // ユーザー宣言
public:     // ユーザー宣言
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxExportPDF"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
    static TfrxLineView *lines[200];

    for(int idx=0; idx < 200; idx++) {
        lines[idx] = new TfrxLineView(Sender);
        lines[idx]->SetBounds(10, 10 + idx * 3, 30, 2);
        lines[idx]->Printable = true;
        lines[idx]->Frame->Color = clRed;
        lines[idx]->Frame->Width = 2;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    frxPDFExport1->FileName = L"test.pdf";
    frxPDFExport1->ShowDialog = false;
    frxReport1->PrepareReport(true);
    frxReport1->Export(frxPDFExport1);
}
//---------------------------------------------------------------------------

실행 예

성능