Class TPageSetupDialog (unit PgSetup)

Inherits from

TCommonDialog

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 : TPSMeasurements

Measurements 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 : TPSMeasurements

What are we using currently, i.

property CustomData : LPARAM

It is the user's responsibility to clean up this pointer if necessary.

property DefaultMeasurements : TPSMeasurements

How does the user's system like to measure things?

Events

event OnInitPaintPage : TPSInitPaintPageEvent


event OnPaintPage : TPSPaintPageEvent


event OnPrinter : TPSPrinterEvent

Events

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 : TPSMeasurements

Measurements 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 : TPSMeasurements

What are we using currently, i.e. translate pmDefault value


property CustomData : LPARAM

It is the user's responsibility to clean up this pointer if necessary.


property DefaultMeasurements : TPSMeasurements

How does the user's system like to measure things?


Events


event OnInitPaintPage : TPSInitPaintPageEvent


event OnPaintPage : TPSPaintPageEvent


event OnPrinter : TPSPrinterEvent

Events


Variables


FCentered : boolean;


FCustomData : LPARAM;


FGettingDefaults : boolean;


FMargins : TPSRect;


FMeasurements : TPSMeasurements;


FMinimumMargins : TPSRect;


FOnInitPaintPage : TPSInitPaintPageEvent;


FOnPaintPage : TPSPaintPageEvent;


FOnPrinter : TPSPrinterEvent;


FOptions : TPageSetupOptions;


FPaperSize : TPSPoint;