| Class TPageSetupDialog (unit PgSetup) |
TCommonDialog
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function Execute: boolean;
function FromMeasurementVal(Val: integer): TPSMeasureVal;
function ReadCurrentValues: boolean;
function ToMeasurementVal(Val: TPSMeasureVal): integer;
function GetCurrentMeasurements: TPSMeasurements;
function GetDefaultMeasurements: TPSMeasurements;
function GetVersion: TDFSVersion;
function Printer(Wnd: HWND): boolean;
procedure SetMargins(const Val: TPSRect);
procedure SetMeasurements(Val: TPSMeasurements);
procedure SetMinimumMargins(const Val: TPSRect);
procedure SetName(const NewName: TComponentName);
procedure SetPaperSize(const Val: TPSPoint);
procedure SetVersion(const Val: TDFSVersion);
function StoreMargins: boolean;
function StoreMinimumMargins: boolean;
function StorePaperSize: boolean;
function DoExecute(Func: pointer): boolean;
function DoPrinter(Wnd: HWND): boolean;| Properties |
property Centered : boolean
property Margins : TPSRect
property Measurements : TPSMeasurements
property MinimumMargins : TPSRect
property Options : TPageSetupOptions
property PaperSize : TPSPoint
property Version : TDFSVersion
property CurrentMeasurements : TPSMeasurements
property CustomData : LPARAM
property DefaultMeasurements : TPSMeasurements| Events |
event OnInitPaintPage : TPSInitPaintPageEvent
event OnPaintPage : TPSPaintPageEvent
event OnPrinter : TPSPrinterEvent| Variables |
FCentered : boolean;
FCustomData : LPARAM;
FGettingDefaults : boolean;
FMargins : TPSRect;
FMeasurements : TPSMeasurements;
FMinimumMargins : TPSRect;
FOnInitPaintPage : TPSInitPaintPageEvent;
FOnPaintPage : TPSPaintPageEvent;
FOnPrinter : TPSPrinterEvent;
FOptions : TPageSetupOptions;
FPaperSize : TPSPoint;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function Execute: boolean;Delphi and C++Builder 3 finally got it right!
function FromMeasurementVal(Val: integer): TPSMeasureVal;
function ReadCurrentValues: boolean;Nothing yet
function ToMeasurementVal(Val: TPSMeasureVal): integer;
function GetCurrentMeasurements: TPSMeasurements;
function GetDefaultMeasurements: TPSMeasurements;Convert to millimeters
function GetVersion: TDFSVersion;
function Printer(Wnd: HWND): boolean;just in case
procedure SetMargins(const Val: TPSRect);
procedure SetMeasurements(Val: TPSMeasurements);
procedure SetMinimumMargins(const Val: TPSRect);
procedure SetName(const NewName: TComponentName);
procedure SetPaperSize(const Val: TPSPoint);
procedure SetVersion(const Val: TDFSVersion);
function StoreMargins: boolean;
function StoreMinimumMargins: boolean;
function StorePaperSize: boolean;
function DoExecute(Func: pointer): boolean;
function DoPrinter(Wnd: HWND): boolean;| Properties |
property Centered : boolean
property Margins : TPSRect
property Measurements : TPSMeasurementsMeasurements property has to be declared before PaperSize, MinimumMargins and Margins because of streaming quirks.
property MinimumMargins : TPSRect
property Options : TPageSetupOptions
property PaperSize : TPSPoint
property Version : TDFSVersion
property CurrentMeasurements : TPSMeasurementsWhat are we using currently, i.e. translate pmDefault value
property CustomData : LPARAMIt is the user's responsibility to clean up this pointer if necessary.
property DefaultMeasurements : TPSMeasurementsHow does the user's system like to measure things?
| Events |
event OnInitPaintPage : TPSInitPaintPageEvent
event OnPaintPage : TPSPaintPageEvent
event OnPrinter : TPSPrinterEventEvents
| Variables |
FCentered : boolean;
FCustomData : LPARAM;
FGettingDefaults : boolean;
FMargins : TPSRect;
FMeasurements : TPSMeasurements;
FMinimumMargins : TPSRect;
FOnInitPaintPage : TPSInitPaintPageEvent;
FOnPaintPage : TPSPaintPageEvent;
FOnPrinter : TPSPrinterEvent;
FOptions : TPageSetupOptions;
FPaperSize : TPSPoint;