| Class TFnpFormEnh (unit FnpFormEnh) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Loaded;
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
procedure WMSize(var Msg: TWMSize);
procedure DoReadPos;
procedure DoSavePos;
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
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;
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 : BooleanPublished 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;