home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
sibylft1.zip
/
DOC.DAT
/
DOC
/
SPCC
/
PRNDLGS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-04-07
|
3KB
|
117 lines
{********************************************}
{* *}
{* Speed-Pascal 2.0 Printer Dialog Unit *}
{* *}
{* Copyright (c) 1996-1997 Michael Kroll *}
{* *}
{* Please mail all bugs and suggestions to: *}
{* *}
{* Internet: michael.kroll @ cww.de *}
{* FidoNet: Michael Kroll @ 2:2448/136.16 *}
{* *}
{********************************************}
Unit PrnDlgs;
Interface
{$r PrnDlgs.Srf}
Uses
Classes, Forms, Dialogs, Buttons,
StdCtrls, Printers, ComCtrls, SysUtils, ExtCtrls;
Type
TPrinterSetupDialog = Class (TDialog)
Private
FPrinterListHeadLine: TLabel;
FPrinterList: TListBox;
FPrinterGroupCaption: String;
FSetPrinterButton: TBitBtn;
FCancelButton: TBitBtn;
FPropertyButton: TBitBtn;
FHelpButton: TBitBtn;
FOkName: String;
FOldPrinterIndex: LongInt;
Procedure PrinterSelected (Sender: TObject; Index: LongInt);
Procedure PrinterFocused (Sender: TObject; Index: LongInt);
Procedure PropertyBtnClicked (Sender: TObject);
Procedure SetOkName (NewName: String);
Protected
Procedure SetupComponent; Override;
Public
Function Execute: Boolean; Override;
Published
Property OkName: String Read FOkName Write SetOkName;
End;
{Exports
TPrinterSetupDialog,'Dialog','PRNDLGS3.BMP';}
Type
TPrintDialog = Class (TDialog)
Private
FTitleBox: TGroupBox;
FTitle: TEdit;
FOptionsGroupBox: TGroupBox;
FNumberOfCopiesLabel: TLabel;
FNumberOfCopies: TUpDown;
FNumberOfCopiesEdit: TEdit;
FPagesBox: TRadioGroup;
FPrintFromLabel: TRadioButton;
FPrintFrom: TUpDown;
FPrintFromEdit: TEdit;
FPrintToLabel: TLabel;
FPrintTo: TUpDown;
FPrintToEdit: TEdit;
FPrintAll: TRadioButton;
FOptionsBox: TRadioGroup;
FPrinter: TRadioButton;
FFileOutPut: TRadioButton;
FFile: TEdit;
FPrintButton: TBitBtn;
FCancelButton: TBitBtn;
FPropertyButton: TBitBtn;
FHelpButton: TBitBtn;
FCopies: LongInt;
FMinPage: LongInt;
FMaxPage: LongInt;
FFromPage: LongInt;
FToPage: LongInt;
FAllPages: Boolean;
FOkName: String;
FOldPrinterIndex: LongInt;
Protected
Procedure PropertyBtnClicked (Sender: TObject);
Procedure SetupComponent; Override;
Procedure SetMinPage (NewValue: LongInt);
Procedure SetMaxPage (NewValue: LongInt);
Procedure SetToPage (NewValue: LongInt);
Procedure SetFromPage (NewValue: LongInt);
Procedure SetOkName (NewName: String);
Procedure UpdateSpinSize (Sender: TObject);
Public
Function Execute: Boolean; Override;
Property AllPages: Boolean Read FAllPages;
Property MinPage: LongInt Read FMinPage Write SetMinPage;
Property MaxPage: LongInt Read FMaxPage Write SetMaxPage;
Property FromPage: LongInt Read FFromPage Write SetFromPage;
Property ToPage: LongInt Read FToPage Write SetToPage;
Published
Property OkName: String Read FOkName Write SetOkName;
End;
{Exports
TPrintDialog,'Dialog','PRNDLGS2.BMP';}
Implementation