| Class TPrintSet (unit EDSPrint) |
TComponent
| Constructors |
constructor Create (AOwner: TComponent);-registers the printset component
| Functions |
destructor Destroy;TPrintSet.
function GetBinSourceList: TStringList;TPrintSet.
function GetPaperList: TStringList;TPrintSet.
procedure ResetPrinterDialogs;TPrintSet.
procedure SavePrinterAsDefault;TPrintSet.
procedure SaveToDefaults;TPrintSet.
procedure SetDeviceMode;TPrintSet.
procedure UpdateDeviceMode;TPrintSet.
function GetBin: integer;
function GetBinIndex: byte;TPrintSet.
function GetColor: integer;
function GetCopies: integer;
function GetDuplex: integer;
function GetOrientation: integer;
function GetPaperIndex: byte;TPrintSet.
function GetPaperLength: integer;
function GetPaperSize: integer;
function GetPaperWidth: integer;
function GetPrinterDriver: string;TPrintSet.
function GetPrinterName: string;TPrintSet.
function GetPrinterPort: string;TPrintSet.
function GetPrintQuality: integer;
function GetScale: integer;
function GetTTOption: integer;
function GetYResolution: integer;
procedure SetBin (Bin: integer);TPrintSet.
procedure SetBinFromList (BinNum: byte);TPrintSet.
procedure SetColor (Color: integer);TPrintSet.
procedure SetCopies (Copies: integer);TPrintSet.
procedure SetDuplex (Duplex: integer);TPrintSet.
procedure SetOrientation (Orientation: integer);TPrintSet.
procedure SetPaperFromList (PaperNum: byte);TPrintSet.
procedure SetPaperLength (Length: integer);TPrintSet.
procedure SetPaperSize (Size: integer);TPrintSet.
procedure SetPaperWidth (Width: integer);TPrintSet.
procedure SetPrintQuality (Quality: integer);TPrintSet.
procedure SetScale (Scale: integer);TPrintSet.
procedure SetTTOption (Option: integer);TPrintSet.
procedure SetYResolution (YRes: integer);TPrintSet.
procedure CheckPrinter;TPrintSet.
function DefaultPaperName (PaperID: word): String;TPrintSet.
procedure SetBinArray;CheckPrinter
procedure SetPaperArray;TPrintSet.
| Properties |
property BinIndex : byte
property Color : integer
property Copies : integer
property DefaultSource : integer
property Duplex : integer
property Orientation : integer
property PaperIndex : byte
property PaperLength : integer
property PaperSize : integer
property PaperWidth : integer
property PrinterDriver : String
property PrinterName : String
property PrinterPort : String
property PrintQuality : integer
property Scale : integer
property TTOption : integer
property YResolution : integer| Events |
| Variables |
FBinArray : PWordArray;
FDevice : PChar;
FDeviceMode : PDevMode;
FDriver : PChar;
FHandle : THandle;
FNumBins : byte;
FNumPapers : byte;
FPaperArray : PWordArray;
FPort : PChar;
FPrinter : integer;| Constructors |
constructor Create (AOwner: TComponent);Public declarations
-registers the printset component
| Functions |
destructor Destroy;-initializes object
TPrintSet.GetPaperIndex
function GetBinSourceList: TStringList;-destroys class
TPrintSet.DefaultPaperName
function GetPaperList: TStringList;-returns the current list of bins
TPrintSet.GetBinSourceList
procedure ResetPrinterDialogs;-saves the current printer as the Window's default
TPrintSet.SavePrinterAsDefault
procedure SavePrinterAsDefault;-updates the default settings for the current printer
TPrintSet.SaveToDefaults
procedure SaveToDefaults;-updates the printers TDevMode structure
TPrintSet.UpdateDeviceMode
procedure SetDeviceMode;-returns the current list of paper sizes
TPrintSet.GetPaperList
procedure UpdateDeviceMode;-sets the internal pointer to the printers TDevMode structure
TPrintSet.SetDeviceMode
function GetBin: integer;TPrintSet.SetBin
function GetBinIndex: byte;-sets the bin for the current item from the bin source list
TPrintSet.SetBinFromList
function GetColor: integer;TPrintSet.SetColor
function GetCopies: integer;TPrintSet.SetCopies
function GetDuplex: integer;TPrintSet.SetDuplex
function GetOrientation: integer;TPrintSet.SetOrientation
function GetPaperIndex: byte;-sets the paper for the current item from the paper list
TPrintSet.SetPaperFromList
function GetPaperLength: integer;TPrintSet.SetPaperLength
function GetPaperSize: integer;TPrintSet.SetPaperSize
function GetPaperWidth: integer;TPrintSet.SetPaperWidth
function GetPrinterDriver: string;-returns the port of the current printer
TPrintSet.GetPrinterPort
function GetPrinterName: string;-sets/gets the TrueType option
TPrintSet.GetTTOption
function GetPrinterPort: string;-returns the name of the current printer
TPrintSet.GetPrinterName
function GetPrintQuality: integer;TPrintSet.SetPrintQuality
function GetScale: integer;TPrintSet.SetScale
function GetTTOption: integer;TPrintSet.SetTTOption
function GetYResolution: integer;TPrintSet.SetYResolution
procedure SetBin (Bin: integer);-sets/gets the number of copies
TPrintSet.GetCopies
procedure SetBinFromList (BinNum: byte);-returns the printer driver name of the current printer
TPrintSet.GetPrinterDriver
procedure SetColor (Color: integer);-sets/gets the print quality
TPrintSet.GetPrintQuality
procedure SetCopies (Copies: integer);-sets/gets the printer scale (whatever that is
TPrintSet.GetScale
procedure SetDuplex (Duplex: integer);-sets/gets the color (monochrome or color
TPrintSet.GetColor
procedure SetOrientation (Orientation: integer);Protected declarations
TPrintSet.ResetPrinterDialogs
procedure SetPaperFromList (PaperNum: byte);-returns the current bin from the bin list
TPrintSet.GetBinIndex
procedure SetPaperLength (Length: integer);-sets/gets the paper size
TPrintSet.GetPaperSize
procedure SetPaperSize (Size: integer);-sets/gets the paper orientation
TPrintSet.GetOrientation
procedure SetPaperWidth (Width: integer);-sets/gets the paper length
TPrintSet.GetPaperLength
procedure SetPrintQuality (Quality: integer);-sets/gets the paper bin
TPrintSet.GetBin
procedure SetScale (Scale: integer);-sets/gets the paper width
TPrintSet.GetPaperWidth
procedure SetTTOption (Option: integer);-sets/gets the y-resolution of the printer
TPrintSet.GetYResolution
procedure SetYResolution (YRes: integer);-sets/gets the duplex setting
TPrintSet.GetDuplex
procedure CheckPrinter;number of paper sizes
TPrintSet.Create
function DefaultPaperName (PaperID: word): String;-sets the paper array
TPrintSet.SetPaperArray
procedure SetBinArray;-checks to see if the printer has changed and calls SetDeviceMode if it has
CheckPrinter
procedure SetPaperArray;-sets the bin array
TPrintSet.SetBinArray
| Properties |
property BinIndex : byte
property Color : integer
property Copies : integer
property DefaultSource : integer
property Duplex : integer
property Orientation : integer-resets the printer dialogs to insure they come up} { Property declarations
property PaperIndex : byte
property PaperLength : integer
property PaperSize : integer
property PaperWidth : integer
property PrinterDriver : String
property PrinterName : String
property PrinterPort : String
property PrintQuality : integer
property Scale : integer
property TTOption : integer
property YResolution : integer| Events |
| Variables |
FBinArray : PWordArray;same as Printer.PrinterIndex
FDevice : PChar;Private declarations
FDeviceMode : PDevMode;
FDriver : PChar;
FHandle : THandle;
FNumBins : byte;array of bin sources
FNumPapers : byte;array of paper sizes
FPaperArray : PWordArray;number of bins
FPort : PChar;
FPrinter : integer;