Class TForm1 (unit TestPrev)
Inherits from
TForm
Constructors
Functions
procedure FontButClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure LoadButClick(Sender: TObject);
procedure PageSetupButClick(Sender: TObject);
procedure PreviewPrinter1NewPage(Sender: TObject; Page: Integer);
procedure PreviewPrinter1OwnerDraw(Sender: TObject; Page, Line: Integer; R: TRect; Canvas: TCanvas);
procedure PreviewPrinter1OwnerHeight(Sender: TObject; Line: Integer; var Height: Integer; var ForceNewPage: Boolean);
procedure PreviewPrinter1Status(Sender: TObject; const StatMsg: String; PageNum: Integer; StatusType: TStatusType);
procedure TestButClick(Sender: TObject);
Properties
Events
Variables
FontBut : TButton;
FontDialog1 : TFontDialog;
Label1 : TLabel;
Label2 : TLabel;
LoadBut : TButton;
OpenDialog1 : TOpenDialog;
OwnerDrawBox : TCheckBox;
PageControl1 : TPageControl;
PageSetupBut : TButton;
Panel1 : TPanel;
Panel2 : TPanel;
PreviewPrinter1 : TPreviewPrinter;
RichEdit1 : TRichEdit;
ShowGridBox : TCheckBox;
StatusBar1 : TStatusBar;
TabSheet1 : TTabSheet;
TestBut : TButton;
ZoomBox : TComboBox;
Constructors
Functions
procedure FontButClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure LoadButClick(Sender: TObject);
procedure PageSetupButClick(Sender: TObject);
procedure PreviewPrinter1NewPage(Sender: TObject; Page: Integer);
procedure PreviewPrinter1OwnerDraw(Sender: TObject; Page, Line: Integer; R: TRect; Canvas: TCanvas);
procedure PreviewPrinter1OwnerHeight(Sender: TObject; Line: Integer; var Height: Integer; var ForceNewPage: Boolean);
procedure PreviewPrinter1Status(Sender: TObject; const StatMsg: String; PageNum: Integer; StatusType: TStatusType);
procedure TestButClick(Sender: TObject);
Properties
Events
Variables
FontBut : TButton;
FontDialog1 : TFontDialog;
Label1 : TLabel;
Label2 : TLabel;
LoadBut : TButton;
OpenDialog1 : TOpenDialog;
OwnerDrawBox : TCheckBox;
PageControl1 : TPageControl;
PageSetupBut : TButton;
Panel1 : TPanel;
Panel2 : TPanel;
PreviewPrinter1 : TPreviewPrinter;
RichEdit1 : TRichEdit;
ShowGridBox : TCheckBox;
StatusBar1 : TStatusBar;
TabSheet1 : TTabSheet;
TestBut : TButton;
ZoomBox : TComboBox;