| Class TPageSetupForm (unit PageSetupDlg) |
TForm
| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure FtrFontButClick(Sender: TObject);
procedure HdrFontButClick(Sender: TObject);
procedure OKButClick(Sender: TObject);
procedure PageNumFontButClick(Sender: TObject);
procedure PortButClick(Sender: TObject);
procedure PrinterSetupButClick(Sender: TObject);
procedure SetDefaultButClick(Sender: TObject);
function Execute: integer;
procedure GetDefaults;
function ChkBoxToEnum(p: TWinControl): integer;
procedure Data_To_Form;
procedure DoFontDlg(b: TButton; fd: TFontDialog);
procedure EnumToChkBox(n: integer; p: TWinControl);
procedure FontToBut(f: TFont; b: TButton; fd: TFontDialog);
procedure Form_To_Data;| Properties |
| Events |
| Variables |
BotEdit : TEdit;
CancelBut : TBitBtn;
CentBut : TRadioButton;
FooterEdit : TEdit;
FooterFontDialog : TFontDialog;
FooterGroup : TGroupBox;
FormSettings1 : TFormSettings;
FtrCenterBut : TRadioButton;
FtrFontBut : TBitBtn;
FtrLeftBut : TRadioButton;
FtrMarginEdit : TEdit;
FtrRightBut : TRadioButton;
HdrCenterBut : TRadioButton;
HdrFontBut : TBitBtn;
HdrLeftBut : TRadioButton;
HdrMarginEdit : TEdit;
HdrRightBut : TRadioButton;
HeaderEdit : TEdit;
HeaderFontDialog : TFontDialog;
HeaderGroup : TGroupBox;
InchBut : TRadioButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
LandBut : TRadioButton;
LandShape : TShape;
LeftEdit : TEdit;
OKBut : TBitBtn;
PageBotBut : TRadioButton;
PageCenterBut : TRadioButton;
PageLeftBut : TRadioButton;
PageMarginGroup : TGroupBox;
PageNoneBut : TRadioButton;
PageNumEdit : TEdit;
PageNumFontBut : TBitBtn;
PageNumFontDialog : TFontDialog;
PageNumGroup : TGroupBox;
PageOrientGroup : TGroupBox;
PageRightBut : TRadioButton;
PageTopBut : TRadioButton;
Panel1 : TPanel;
Panel2 : TPanel;
PortBut : TRadioButton;
PortShape : TShape;
PrinterSetupBut : TBitBtn;
PrinterSetupDialog1 : TPrinterSetupDialog;
RightEdit : TEdit;
SetDefaultBut : TBitBtn;
TopEdit : TEdit;
pp : TPreviewPrinter;
TextOpt : TTextOptions;| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure FtrFontButClick(Sender: TObject);
procedure HdrFontButClick(Sender: TObject);
procedure OKButClick(Sender: TObject);
procedure PageNumFontButClick(Sender: TObject);
procedure PortButClick(Sender: TObject);
procedure PrinterSetupButClick(Sender: TObject);
procedure SetDefaultButClick(Sender: TObject);Footer
function Execute: integer;
procedure GetDefaults;
function ChkBoxToEnum(p: TWinControl): integer;
procedure Data_To_Form;
procedure DoFontDlg(b: TButton; fd: TFontDialog);
procedure EnumToChkBox(n: integer; p: TWinControl);
procedure FontToBut(f: TFont; b: TButton; fd: TFontDialog);
procedure Form_To_Data;Footer
| Properties |
| Events |
| Variables |
BotEdit : TEdit;
CancelBut : TBitBtn;
CentBut : TRadioButton;
FooterEdit : TEdit;
FooterFontDialog : TFontDialog;
FooterGroup : TGroupBox;
FormSettings1 : TFormSettings;
FtrCenterBut : TRadioButton;
FtrFontBut : TBitBtn;
FtrLeftBut : TRadioButton;
FtrMarginEdit : TEdit;
FtrRightBut : TRadioButton;
HdrCenterBut : TRadioButton;
HdrFontBut : TBitBtn;
HdrLeftBut : TRadioButton;
HdrMarginEdit : TEdit;
HdrRightBut : TRadioButton;
HeaderEdit : TEdit;
HeaderFontDialog : TFontDialog;
HeaderGroup : TGroupBox;
InchBut : TRadioButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
LandBut : TRadioButton;
LandShape : TShape;
LeftEdit : TEdit;
OKBut : TBitBtn;
PageBotBut : TRadioButton;
PageCenterBut : TRadioButton;
PageLeftBut : TRadioButton;
PageMarginGroup : TGroupBox;
PageNoneBut : TRadioButton;
PageNumEdit : TEdit;
PageNumFontBut : TBitBtn;
PageNumFontDialog : TFontDialog;
PageNumGroup : TGroupBox;
PageOrientGroup : TGroupBox;
PageRightBut : TRadioButton;
PageTopBut : TRadioButton;
Panel1 : TPanel;
Panel2 : TPanel;
PortBut : TRadioButton;
PortShape : TShape;
PrinterSetupBut : TBitBtn;
PrinterSetupDialog1 : TPrinterSetupDialog;
RightEdit : TEdit;
SetDefaultBut : TBitBtn;
TopEdit : TEdit;
pp : TPreviewPrinter;
TextOpt : TTextOptions;