Unit PgSetup

Standard defines for all Delphi Free Stuff components } {-----------------------------------------------------------------------------} { TPageSetupDialog v2.03 } {-----------------------------------------------------------------------------} { A component to wrap the Win95 PageSetupDlg common dialog API function. } { Borland seems to have forgotten this new common dialog in Delphi 2.0. } { Copyright 1998, Brad Stowers. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provided this notice is not modified in any way and there is } { no charge for it other than nominal handling fees. Contact me directly for } { modifications to this agreement. } {-----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions } { at bstowers@pobox.com. } { The lateset version will always be available on the web at: } { http://www.pobox.com/~bstowers/delphi/ } { See PgSetup.txt for notes, known issues, and revision history. } {-----------------------------------------------------------------------------} { Date last modified: June 11, 1998 } {-----------------------------------------------------------------------------} // C++Builder 3 requires this if you use run-time packages. // Make sure we have RTTI available for the TPSRect class below. {$M+

Classes

TPageSetupDialog -
TPSPoint - TPSPoint is needed for the same reason as TPSRect above.
TPSRect - TPSRect is used for published properties that would normally be of TRect type.

Functions

Register - empty write method, just needed to get it to show up in Object Inspector

Types

PPSDlgData
TPageSetupOption
TPageSetupOptions
TPSDlgData
TPSInitPaintPageEvent
TPSMeasurements
TPSMeasureVal
TPSPaintPageEvent
TPSPaintWhat
TPSPaperOrientation
TPSPaperType
TPSPrinterEvent
TPSPrinterType

Constants

DFS_COMPONENT_VERSION

Variables


Functions


procedure Register;

empty write method, just needed to get it to show up in Object Inspector

Types


PPSDlgData = ^TPSDlgData
PPSDlgData is simply redeclared as PPageSetupDlg (COMMDLG.PAS) to prevent compile errors in units that have this event. They won't compile unless you add CommDlg to their units. This circumvents the problem.
TPageSetupOption = (
       poDefaultMinMargins, poDisableMargins, poDisableOrientation,
       poDisablePagePainting, poDisablePaper, poDisablePrinter, poNoWarning,
       poShowHelp
     );

TPageSetupOptions = set of TPageSetupOption

TPSDlgData = TPageSetupDlg

TPSInitPaintPageEvent = function(Sender: TObject; PaperSize: short;
     PaperType: TPSPaperType; PaperOrientation: TPSPaperOrientation;
     PrinterType: TPSPrinterType; pSetupData: PPSDlgData): boolean of object
PaperSize: See DEVMODE help topic, dmPaperSize member. DMPAPER_* constants.
TPSMeasurements = (pmDefault, pmMillimeters, pmInches);

TPSMeasureVal = Double

TPSPaintPageEvent = function(Sender: TObject; PaintWhat: TPSPaintWhat;
     Canvas: TCanvas; Rect: TRect): boolean of object

TPSPaintWhat = (pwFullPage, pwMinimumMargins, pwMargins,
                  pwGreekText, pwEnvStamp, pwYAFullPage);

TPSPaperOrientation = (poPortrait, poLandscape);

TPSPaperType = (ptPaper, ptEnvelope);

TPSPrinterEvent = procedure(Sender: TObject; Wnd: HWND) of object

TPSPrinterType = (ptDotMatrix, ptHPPCL);

Constants

DFS_COMPONENT_VERSION = 'TPageSetupDialog v2.03'


Variables