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;