Class TFnpFormEnh (unit FnpFormEnh)

Inherits from

TMessageGrabber

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;

Need to store the owner since we need it in DoSavePos called from Destory

procedure Loaded;

We need to store the form's size this way in case WindowState = wsMinimized or wsMaximized.

procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);

Protected declarations

procedure WMSize(var Msg: TWMSize);


procedure DoReadPos;

This property is read only!

procedure DoSavePos;

T.

procedure SetAllowMaximized(Value: Boolean);


procedure SetAllowMinimized(Value: Boolean);


procedure SetCheckPos(Value: Boolean);


procedure SetMaxSizeX(Value: Integer);


procedure SetMaxSizeY(Value: Integer);


procedure SetMinSizeX(Value: Integer);


procedure SetMinSizeY(Value: Integer);


procedure SetRootKey(Value: TRootKey);


procedure SetSavePosition(Value: Boolean);


procedure SetSaveSize(Value: Boolean);


procedure SetSubKey(Value: String);


procedure SetVersion(Value: String);


Properties

property AllowMaximized : Boolean

Published declarations

property AllowMinimized : Boolean


property CheckPos : Boolean


property MaxSizeX : Integer


property MaxSizeY : Integer


property MinSizeX : Integer


property MinSizeY : Integer


property RootKey : TRootKey


property SavePosition : Boolean


property SaveSize : Boolean


property SubKey : String


property Version : String


Events

Variables

BkupOwner : TForm;


FAllowMaximized : Boolean;

Private declarations

FAllowMinimized : Boolean;


FCheckPos : Boolean;


FMaxSizeX : Integer;


FMaxSizeY : Integer;


FMinSizeX : Integer;


FMinSizeY : Integer;


FRootKey : TRootKey;


FSavePosition : Boolean;


FSaveSize : Boolean;


FSubKey : String;


FVersion : String;


Wp : TWINDOWPLACEMENT;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;

Need to store the owner since we need it in DoSavePos called from Destory


procedure Loaded;

We need to store the form's size this way in case WindowState = wsMinimized or wsMaximized. We need the values returned by GetWindowPlacement to make it possible to restore the form's pos/size back to normal next time the form is shown. It is not possible to use GetWindowPlacement in TFnpFormEnh.Destory because the form's window handle is then already destroyed.


procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);

Protected declarations


procedure WMSize(var Msg: TWMSize);


procedure DoReadPos;

This property is read only!


procedure DoSavePos;

T. van Noppen


procedure SetAllowMaximized(Value: Boolean);


procedure SetAllowMinimized(Value: Boolean);


procedure SetCheckPos(Value: Boolean);


procedure SetMaxSizeX(Value: Integer);


procedure SetMaxSizeY(Value: Integer);


procedure SetMinSizeX(Value: Integer);


procedure SetMinSizeY(Value: Integer);


procedure SetRootKey(Value: TRootKey);


procedure SetSavePosition(Value: Boolean);


procedure SetSaveSize(Value: Boolean);


procedure SetSubKey(Value: String);


procedure SetVersion(Value: String);


Properties


property AllowMaximized : Boolean

Published declarations


property AllowMinimized : Boolean


property CheckPos : Boolean


property MaxSizeX : Integer


property MaxSizeY : Integer


property MinSizeX : Integer


property MinSizeY : Integer


property RootKey : TRootKey


property SavePosition : Boolean


property SaveSize : Boolean


property SubKey : String


property Version : String


Events


Variables


BkupOwner : TForm;


FAllowMaximized : Boolean;

Private declarations


FAllowMinimized : Boolean;


FCheckPos : Boolean;


FMaxSizeX : Integer;


FMaxSizeY : Integer;


FMinSizeX : Integer;


FMinSizeY : Integer;


FRootKey : TRootKey;


FSavePosition : Boolean;


FSaveSize : Boolean;


FSubKey : String;


FVersion : String;


Wp : TWINDOWPLACEMENT;