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 |
Variables |
Functions |
Types |
PPSDlgData = ^TPSDlgDataPPSDlgData 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 objectPaperSize: 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 |
Variables |