Class TAdvPrnForm (unit PrintDlg) |
Inherits from
TForm
procedure cbBinSourcesChange(Sender: TObject);
procedure cbOrientationChange(Sender: TObject);
procedure cbPaperSizesChange(Sender: TObject);
procedure cbPrintersChange(Sender: TObject);
TAdvPrnForm.
procedure FormCreate(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
procedure PrinterSetupBtnClick(Sender: TObject);
procedure rbDefaultClick(Sender: TObject);
procedure rbOtherClick(Sender: TObject);
procedure SaveDefaultsBtnClick(Sender: TObject);
procedure SavePrinterBtnClick(Sender: TObject);
procedure SetBinSources;
-sets the combobox for paper sizes TAdvPrnForm.
procedure SetOrientation;
-sets the combobox for bin sources TAdvPrnForm.
procedure SetPaperSizes;
-sets the combobox for available printers TAdvPrnForm.
procedure SetPrinterList;
Private declarations
cbBinSources : TComboBox;
cbOrientation : TComboBox;
cbPaperSizes : TComboBox;
cbPrinters : TComboBox;
gbSettings : TGroupBox;
imgPrinter : TImage;
lblOrientation : TLabel;
lblPaperSize : TLabel;
lblPaperSource : TLabel;
lblPrinter : TLabel;
OkBtn : TBitBtn;
PrintBtn : TBitBtn;
PrintDialog1 : TPrintDialog;
PrinterSetupBtn : TBitBtn;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSet1 : TPrintSet;
rbDefault : TRadioButton;
rbOther : TRadioButton;
SaveDefaultsBtn : TBitBtn;
SavePrinterBtn : TBitBtn;
Test : TButton;
procedure cbBinSourcesChange(Sender: TObject);
procedure cbOrientationChange(Sender: TObject);
procedure cbPaperSizesChange(Sender: TObject);
procedure cbPrintersChange(Sender: TObject);
TAdvPrnForm.SetOrientation
procedure FormCreate(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
procedure PrinterSetupBtnClick(Sender: TObject);
procedure rbDefaultClick(Sender: TObject);
procedure rbOtherClick(Sender: TObject);
procedure SaveDefaultsBtnClick(Sender: TObject);
procedure SavePrinterBtnClick(Sender: TObject);
procedure SetBinSources;
-sets the combobox for paper sizes
TAdvPrnForm.SetPaperSizes
procedure SetOrientation;
-sets the combobox for bin sources
TAdvPrnForm.SetBinSources
procedure SetPaperSizes;
-sets the combobox for available printers
TAdvPrnForm.SetPrinterList
procedure SetPrinterList;
Private declarations
cbBinSources : TComboBox;
cbOrientation : TComboBox;
cbPaperSizes : TComboBox;
cbPrinters : TComboBox;
gbSettings : TGroupBox;
imgPrinter : TImage;
lblOrientation : TLabel;
lblPaperSize : TLabel;
lblPaperSource : TLabel;
lblPrinter : TLabel;
OkBtn : TBitBtn;
PrintBtn : TBitBtn;
PrintDialog1 : TPrintDialog;
PrinterSetupBtn : TBitBtn;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSet1 : TPrintSet;
rbDefault : TRadioButton;
rbOther : TRadioButton;
SaveDefaultsBtn : TBitBtn;
SavePrinterBtn : TBitBtn;
Test : TButton;