Class TPageSetupDialog (unit PgSetup) |
Inherits from
TCommonDialog
constructor Create(AOwner: TComponent);
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;
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?
event OnInitPaintPage : TPSInitPaintPageEvent
event OnPaintPage : TPSPaintPageEvent
event OnPrinter : TPSPrinterEvent
Events
FCentered : boolean;
FCustomData : LPARAM;
FGettingDefaults : boolean;
FMargins : TPSRect;
FMeasurements : TPSMeasurements;
FMinimumMargins : TPSRect;
FOnInitPaintPage : TPSInitPaintPageEvent;
FOnPaintPage : TPSPaintPageEvent;
FOnPrinter : TPSPrinterEvent;
FOptions : TPageSetupOptions;
FPaperSize : TPSPoint;
constructor Create(AOwner: TComponent);
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;
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?
event OnInitPaintPage : TPSInitPaintPageEvent
event OnPaintPage : TPSPaintPageEvent
event OnPrinter : TPSPrinterEvent
Events
FCentered : boolean;
FCustomData : LPARAM;
FGettingDefaults : boolean;
FMargins : TPSRect;
FMeasurements : TPSMeasurements;
FMinimumMargins : TPSRect;
FOnInitPaintPage : TPSInitPaintPageEvent;
FOnPaintPage : TPSPaintPageEvent;
FOnPrinter : TPSPrinterEvent;
FOptions : TPageSetupOptions;
FPaperSize : TPSPoint;