| Class TSelPrinterDlg (unit amPrvPrt) |
TForm
TSelPrinterDlg
| Constructors |
Constructor NewCreate(AOwner: TComponent; APrinter: TPrinter);----------------------------------------------------------------------} { TSELPRINTERDLG Form {------------------------------------------------------------------------} {---------------------------------------------------------------------- TSelPrinterDlg.
| Functions |
procedure FormShow(Sender: TObject);
procedure OKBtnClick(Sender: TObject);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Label1 : TLabel;
OKBtn : TButton;
PrinterBox : TComboBox;
fPrinter : TPrinter;| Constructors |
Constructor NewCreate(AOwner: TComponent; APrinter: TPrinter);Public declarations
----------------------------------------------------------------------} { TSELPRINTERDLG Form {------------------------------------------------------------------------} {---------------------------------------------------------------------- TSelPrinterDlg.NewCreate Purpose: Call inherited Ctreate and load Language Resources ------------------------------------------------------------------------
| Functions |
procedure FormShow(Sender: TObject);------------------------------------------------------------------------ TSelPrinterDlg.FormShow Purpose: get the Printers form TPrinter to the Listbox Items. ------------------------------------------------------------------------
procedure OKBtnClick(Sender: TObject);------------------------------------------------------------------------ TSelPrinterDlg.OKBtnClick Purpose: if a new printer is selected , set it. ------------------------------------------------------------------------
| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Label1 : TLabel;
OKBtn : TButton;
PrinterBox : TComboBox;
fPrinter : TPrinter;