TdlgSelectPrinter

type TdlgSelectPrinter = class(TForm)

  Bevel1: TBEVEL;

  btnProp: TBUTTON;

  btnCancel: TBUTTON;

  btnPrint: TBUTTON;

  btnReduc: TBUTTON;

  btnPreview: TBUTTON;

  cbPrinters: TCOMBOBOX;

  cbCollate: TCHECKBOX;

  cbReverse: TCHECKBOX;

  cbPrintToFile: TCheckBox;

  edPageSet: TCOMBOBOX;

  cbTasktime: TCOMBOBOX;

  edRange: TEDIT;

  Label2: TLabel;

  panLabels: TPanel;

  PrinterGroupbox: TGroupbox;

  gbPages: TGROUPBOX;

  gbCopies: TGROUPBOX;

  imgCollate: TIMAGE;

  Label1: TLabel;

  PrinterStateLabel: TLabel;

  PrinterLocationLabel: TLabel;

  PrinterDescriptionLabel: TLabel;

  labComment: TLABEL;

  labCUPS: TLABEL;

  PrinterNameLabel: TLabel;

  PrioLabel: TLabel;

  labCUPSServer: TLABEL;

  labTask: TLABEL;

  lanNumCopies: TLABEL;

  labPage: TLABEL;

  labLocation: TLABEL;

  labState: TLABEL;

  edTimeTask: TEDIT;

  NbOpts: TPageControl;

  pgAdvance: TTabSheet;

  pgCopies: TTabSheet;

  BtnPanel: TPanel;

  rbSelection: TRadioButton;

  rbRange: TRADIOBUTTON;

  rbCurrentPage: TRADIOBUTTON;

  rbAllPage: TRADIOBUTTON;

  edCopies: TSPINEDIT;

  edPriority: TSPINEDIT;

  tkbPriority: TTRACKBAR;

  procedure btnPrintCLICK();

  procedure btnPropCLICK();

  procedure btnReducCLICK();

  procedure cbPrintersCHANGE();

  procedure cbPrintersDrawItem();

  procedure cbPrintersKEYPRESS();

  procedure cbReverseCLICK();

  procedure cbTasktimeCHANGE();

  procedure dlgSelectPrinterCREATE();

  procedure dlgSelectPrinterSHOW();

  procedure edCopiesChange();

  procedure edRangeEnter();

  procedure FormClose();

  procedure FormDestroy();

  procedure tkbPriorityCHANGE();

public

  constructor Create(); override;

  property PrintRange: TPrintRange; [rw]

  property Options: TPrintDialogOptions; [rw]

end;

TdlgSelectPrinter

TObject