Class TFnpFormEnh (unit FnpFormEnh) |
Inherits from
TMessageGrabber
constructor Create(AOwner: TComponent);
- Public declarations
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);
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
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;
constructor Create(AOwner: TComponent);
Public declarations
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);
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
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;