TRLPreviewForm

type TRLPreviewForm = class(TForm)

  SpeedButtonSearch: TSpeedButton;

  TimerRepeat: TTimer;

  PanelContainer: TPanel;

  PanelTools: TPanel;

  SpeedButtonPrint: TSpeedButton;

  SpeedButtonSetup: TSpeedButton;

  SpeedButtonFirst: TSpeedButton;

  SpeedButtonPrior: TSpeedButton;

  SpeedButtonNext: TSpeedButton;

  SpeedButtonLast: TSpeedButton;

  SpeedButtonZoomDown: TSpeedButton;

  SpeedButtonZoomUp: TSpeedButton;

  SpeedButtonClose: TSpeedButton;

  Bevel1: TBevel;

  Bevel2: TBevel;

  Bevel3: TBevel;

  Bevel4: TBevel;

  SpeedButtonSave: TSpeedButton;

  SpeedButtonViews: TSpeedButton;

  SpeedPageSetup: TSpeedButton;

  Bevel5: TBevel;

  PanelPages: TPanel;

  LabelPage: TLabel;

  LabelOf: TLabel;

  EditPageNo: TEdit;

  PanelZoom: TPanel;

  ComboBoxZoom: TComboBox;

  PanelPageCount: TPanel;

  PanelCopyright: TPanel;

  SpeedButtonEdit: TSpeedButton;

  Bevel6: TBevel;

  Bevel8: TBevel;

  SpeedButtonSend: TSpeedButton;

  procedure ComboBoxZoomChange();

  procedure FormCreate();

  procedure FormShow();

  procedure SpeedButtonPrintClick();

  procedure SpeedButtonFirstClick();

  procedure SpeedButtonLastClick();

  procedure SpeedButtonSetupClick();

  procedure SpeedButtonSaveClick();

  procedure SpeedButtonCloseClick();

  procedure FormKeyDown();

  procedure rpvDefaultChangeView();

  procedure TimerRepeatTimer();

  procedure SpeedButtonPriorMouseDown();

  procedure SpeedButtonPriorMouseUp();

  procedure EditPageNoChange();

  procedure SpeedButtonZoomUpClick();

  procedure SpeedButtonZoomDownClick();

  procedure SpeedButtonViewsClick();

  procedure SpeedButtonPageSetupClick();

  procedure SpeedButtonEditClick();

  procedure SpeedButtonSendClick();

  procedure SpeedButtonSearchClick();

protected

  procedure DoClose(); override;

public

  constructor CreateEX();

  destructor Destroy; override;

  property Preview: TRLPreview; [r]

end;

TRLPreviewForm

TObject