TGridPrintPreviewForm

type TGridPrintPreviewForm = class(TForm)

  acPrint: TAction;

  acClose: TAction;

  acFirstPage: TAction;

  acPrevPage: TAction;

  acNextPage: TAction;

  acLastPage: TAction;

  acPageMargins: TAction;

  acHeaderFooter: TAction;

  acPortrait: TAction;

  acLandscape: TAction;

  acPrintColsFirst: TAction;

  acPrintRowsFirst: TAction;

  acCenterHor: TAction;

  acCenterVert: TAction;

  acScalePrinter: TAction;

  acZoom100: TAction;

  acZoomToFitWidth: TAction;

  acZoomToFitHeight: TAction;

  acZoomOut: TAction;

  acZoomIn: TAction;

  ActionList: TActionList;

  edPageNumber: TEdit;

  InfoPanel: TPanel;

  MenuItem1: TMenuItem;

  mnuHeaderFooter: TMenuItem;

  mnuPageMargins: TMenuItem;

  mnuLandscape: TMenuItem;

  mnuPortrait: TMenuItem;

  mnuPrintColsFirst: TMenuItem;

  mnuPrintRowsFirst: TMenuItem;

  mnuCenterHor: TMenuItem;

  mnuCenterVert: TMenuItem;

  PageSetupPopup: TPopupMenu;

  PageNoEditPanel: TPanel;

  PreviewImage: TImage;

  ScrollBox: TScrollBox;

  mnuSeparator3: TMenuItem;

  mnuSeparator2: TMenuItem;

  mnuSeparator1: TMenuItem;

  Separator1: TMenuItem;

  ToolbarImages: TImageList;

  ToolBar: TToolBar;

  tbPrint: TToolButton;

  tbClose: TToolButton;

  tbFirst: TToolButton;

  tbPrev: TToolButton;

  tbNext: TToolButton;

  tbLast: TToolButton;

  tbDivider1: TToolButton;

  tbDivider2: TToolButton;

  tbDivider3: TToolButton;

  tbZoomIn: TToolButton;

  tbZoomOut: TToolButton;

  tbZoomWidth: TToolButton;

  tbZoomHeight: TToolButton;

  tbZoom100: TToolButton;

  tbPageMargins: TToolButton;

  tbHeaderFooter: TToolButton;

  tbDivider4: TToolButton;

  tbPortrait: TToolButton;

  tbLandscape: TToolButton;

  tbDivider5: TToolButton;

  tbPageSetup: TToolButton;

  tbPrintColsFirst: TToolButton;

  tbPrintRowsFirst: TToolButton;

  tbCenterHor: TToolButton;

  tbCenterVert: TToolButton;

  tbDivider6: TToolButton;

  tbDivider7: TToolButton;

  tbScalePrinter: TToolButton;

  procedure acCenterHorExecute();

  procedure acCenterVertExecute();

  procedure acCloseExecute();

  procedure acFirstPageExecute();

  procedure acHeaderFooterExecute();

  procedure acLandscapeExecute();

  procedure acLastPageExecute();

  procedure acNextPageExecute();

  procedure acPageMarginsExecute();

  procedure acPortraitExecute();

  procedure acPrevPageExecute();

  procedure acPrintColsFirstExecute();

  procedure acPrintExecute();

  procedure acPrintRowsFirstExecute();

  procedure acScalePrinterExecute();

  procedure ActionListUpdate();

  procedure acZoom100Execute();

  procedure acZoomInZoomOutExecute();

  procedure acZoomToFitHeightExecute();

  procedure acZoomToFitWidthExecute();

  procedure edPageNumberEditingDone();

  procedure edPageNumberKeyDown();

  procedure edPageNumberMouseWheel();

  procedure FormActivate();

  procedure PreviewImageMouseDown();

  procedure PreviewImageMouseMove();

  procedure PreviewImageMouseUp();

  procedure PreviewImageMouseWheel();

  procedure PreviewImagePaint();

  procedure ScrollBoxKeyDown();

  procedure ScrollBoxMouseDown();

  procedure ToolBarResize();

protected

  function CalcDraggedMargin();

  procedure DoOnResize; override;

  procedure HideDraggedMarginHint;

  function MouseOverMarginLine();

  function NextZoomFactor();

  procedure Notification(); override;

  procedure ShowDraggedMarginHint();

  procedure ShowPage();

  procedure UpdateInfoPanel;

  procedure VerifyZoomMin;

public

  constructor Create(); override;

  procedure UpdateStrings;

  procedure ZoomToFitHeight;

  procedure ZoomToFitWidth;

  property GridPrinter: TGridPrinter; [rw]

  property Options: TGridPrintPreviewOptions; [rw]

  property PageNumber: Integer; [rw]

  property Zoom: Integer; [rw]

  property ZoomMode: TGridPrintPreviewZoomMode; [rw]

end;

TGridPrintPreviewForm

TObject