Class TSelPrinterDlg (unit amPrvPrt)

Inherits from

TForm

TSelPrinterDlg

Constructors


Constructor NewCreate(AOwner: TComponent; APrinter: TPrinter);

Public declarations

----------------------------------------------------------------------} { TSELPRINTERDLG Form {------------------------------------------------------------------------} {---------------------------------------------------------------------- TSelPrinterDlg.



Functions

procedure FormShow(Sender: TObject);

------------------------------------------------------------------------ TSelPrinterDlg.

procedure OKBtnClick(Sender: TObject);

------------------------------------------------------------------------ TSelPrinterDlg.

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;