TFPReportPreviewForm

type TFPReportPreviewForm = class(TCustomFPreportPreviewForm)

  AClose: TAction;

  ALast: TAction;

  AFirst: TAction;

  APrint: TAction;

  AExportPDF: TAction;

  AZoomReset: TAction;

  AZoomOut: TAction;

  AZoomIn: TAction;

  ANext: TAction;

  APrevious: TAction;

  AExport: TAction;

  ALPreview: TActionList;

  EPage: TEdit;

  ILPreview: TImageList;

  LPageCount: TLabel;

  PBPreview: TPaintBox;

  PButtons: TPanel;

  PBottom: TPanel;

  PMExport: TPopupMenu;

  SBPrevious: TSpeedButton;

  SBPrevious1: TSpeedButton;

  ScrollBox1: TScrollBox;

  SpeedButton1: TSpeedButton;

  SpeedButton2: TSpeedButton;

  TBPreview: TToolBar;

  TBClose: TToolButton;

  TBExport: TToolButton;

  TBPDF: TToolButton;

  TBPrint: TToolButton;

  TBFirst: TToolButton;

  TBLast: TToolButton;

  ToolButton3: TToolButton;

  TBPrevious: TToolButton;

  TBNext: TToolButton;

  ToolButton6: TToolButton;

  TBZoomIn: TToolButton;

  TBZoomReset: TToolButton;

  TBZoomOut: TToolButton;

  procedure ACloseExecute();

  procedure AExportExecute();

  procedure AExportPDFExecute();

  procedure AExportPDFUpdate();

  procedure AFirstExecute();

  procedure AFirstUpdate();

  procedure ALastExecute();

  procedure ALastUpdate();

  procedure ANextExecute();

  procedure ANextUpdate();

  procedure APreviousExecute();

  procedure APreviousUpdate();

  procedure APrintExecute();

  procedure AZoomInExecute();

  procedure AZoomInUpdate();

  procedure AZoomOutExecute();

  procedure AZoomOutUpdate();

  procedure AZoomResetExecute();

  procedure EPageEditingDone();

  procedure FormCreate();

  procedure FormDestroy();

  procedure PBPreviewClick();

  procedure PBPreviewMouseLeave();

  procedure PBPreviewMouseMove();

protected

  function GetEnableHyperLinks; override;

  procedure SetEnableHyperLinks(); override;

  procedure SetReport(); override;

  procedure ShowHyperLink(); virtual;

public

  procedure DoPaintReport();

  class function LoadFromResource; override;

  property CurrentZoom: Integer; [rw]

  property PageIndex: Integer; [rw]

  property OnOpenURL: TOpenURLEvent; [rw]

end;

TFPReportPreviewForm

TCustomFPreportPreviewForm

TObject