type  
  TImageExport = class(TfrxCustomExportFilter)
  private
    FPageNumber : integer; 
    FBmp        : TBitmap;
    
    procedure EndPageAndSave();
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy(); override;  
  
    function    Start: Boolean; override;
    procedure   ExportObject(Obj: TfrxComponent); override;
    procedure   StartPage(Page: TfrxReportPage; Index: Integer); override;
    procedure   Finish; override;
  end;
  
//------------------------------------------------------------------------------
constructor TImageExport.Create(AOwner: TComponent);
begin
   FBmp := TBitmap.Create();
end;
//------------------------------------------------------------------------------
destructor TImageExport.Destroy();
begin
   FBmp.Free();
end;
//------------------------------------------------------------------------------  
function TImageExport.Start: Boolean;
begin
  FBmp.Width:=0;
  FBmp.Height:=0;
  
  FPageNumber := -1; // start with 0
  //TODO: Start PDF Document
end;  
//------------------------------------------------------------------------------
procedure TImageExport.ExportObject(Obj: TfrxComponent);
begin
   TfrxView(Obj).Draw(FBmp.Canvas,1,1,0,0 ); // ScaleX, ScaleY, OffX, OffY
end;
//------------------------------------------------------------------------------
procedure TImageExport.EndPageAndSave();
begin
   //TODO: FBmp ===> PDF-Page
end;
//------------------------------------------------------------------------------
procedure TImageExport.StartPage(Page: TfrxReportPage; Index: Integer);
begin
  inc(FPageNumber);

  if FPageNumber>0 then EndPageAndSave();

  //fPaperWidthInch := Page.PaperWidth / 25.4;
  //iDesignDPI      := Round(Page.Width / lPaperWidthInch);

  FBmp.Width:=Round(Page.Width);
  FBmp.Height:=Round(Page.Height);

  //TODO: Start PDF Page
end;
//------------------------------------------------------------------------------
procedure TImageExport.Finish(); override;
begin
   if FPageNumber>=0 then EndPageAndSave();
   //TODO: Save PDF Document and close
end;  
//------------------------------------------------------------------------------