Class TPageSetupForm (unit PageSetupDlg)

Inherits from

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);

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;



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;