Class TFormSaver (unit cFormSaver) |
Inherits from
TComponent
--------------------------------------------------------
constructor Create(AOwner: TComponent);
- --------------------------------------------------------} {----------- Beginning of TFormSaver ------------------} {--------------------------------------------------------} {--------------------------------------------------------
destructor Destroy;
--------------------------------------------------------
function ReadBool(Name: String; Value: Boolean): Boolean;
--------------------------------------------------------
function ReadFloat(Name: String; Value: Extended): Extended;
--------------------------------------------------------
function ReadInteger(Name: String; Value: Integer): Integer;
--------------------------------------------------------
function ReadString(Name: String; Value: String): String;
--------------------------------------------------------
procedure Restore;
--------------------------------------------------------
procedure Save;
--------------------------------------------------------} {---------- Save & Restore Methods --------------------} {--------------------------------------------------------} {--------------------------------------------------------
procedure WriteBool(Name: String; Value: Boolean);
--------------------------------------------------------
procedure WriteFloat(Name: String; Value: Extended);
--------------------------------------------------------
procedure WriteInteger(Name: String; Value: Integer);
--------------------------------------------------------
procedure WriteString(Name: String; Value: String);
--------------------------------------------------------
procedure BeforeMaximize;
--------------------------------------------------------
procedure ExtWndProc(var Msg: TMessage);
-------------------------------------------------------
procedure SetEnabled(Value: Boolean);
--------------------------------------------------------
function GetSaveDesktop: Boolean;
property methods--------------------------------------------------------
procedure MyRestore(Sender : Tobject);
--------------------------------------------------------
procedure MySave(Sender : Tobject; var Action : TCloseAction);
--------------------------------------------------------
function OpenIniFile: TIniFile;
--------------------------------------------------------} {--------------- INI File methods -------------------} {--------------------------------------------------------} {--------------------------------------------------------
procedure RestoreControl(TheControl: TControl; iniFile: TIniFile);
--------------------------------------------------------
procedure RestoreWindow(TheForm: TForm; iniFile: TIniFile);
--------------------------------------------------------
procedure SaveControl(TheControl: TControl; iniFile: TIniFile);
--------------------------------------------------------
procedure SaveWindow(TheForm: TForm; iniFile: TIniFile);
--------------------------------------------------------
procedure SetSaveDesktop(Value: Boolean);
--------------------------------------------------------
property IniFileName : string
property IniSection : string
property IsEnabled : Boolean
property LocalDir : Boolean
property SaveDesktop : Boolean
property SaveLocation : Boolean
property SaveSize : Boolean
property SaveState : Boolean
property SaveVisible : Boolean
event OnRestore : TNotifyEvent
event OnSave : TNotifyEvent
event OnSaveControl : TSaverControlEvent
bolWindowStateSet : Boolean;
FExtWndProc : TFarProc;
FIniFileName : string;
FIniSect : string;
FIsEnabled : Boolean;
FIsLocal : Boolean;
FIsSaveDesktop : Boolean;
FIsSaveLocation : Boolean;
FIsSaveSize : Boolean;
FIsSaveState : Boolean;
FIsSaveVisible : Boolean;
FMyForm : TForm;
FOldWndProc : Pointer;
FOnClose : TCloseEvent;
FOnRestore : TNotifyEvent;
FOnSave : TNotifyEvent;
FOnSaveControl : TSaverControlEvent;
FOnShow : TNotifyEvent;
intRestoreHeight : Integer;
intRestoreLeft : Integer;
intRestoreTop : Integer;
intRestoreWidth : Integer;
constructor Create(AOwner: TComponent);
--------------------------------------------------------} {----------- Beginning of TFormSaver ------------------} {--------------------------------------------------------} {--------------------------------------------------------
destructor Destroy;
--------------------------------------------------------
function ReadBool(Name: String; Value: Boolean): Boolean;
--------------------------------------------------------
function ReadFloat(Name: String; Value: Extended): Extended;
--------------------------------------------------------
function ReadInteger(Name: String; Value: Integer): Integer;
--------------------------------------------------------
function ReadString(Name: String; Value: String): String;
--------------------------------------------------------
procedure Restore;
--------------------------------------------------------
procedure Save;
--------------------------------------------------------} {---------- Save & Restore Methods --------------------} {--------------------------------------------------------} {--------------------------------------------------------
procedure WriteBool(Name: String; Value: Boolean);
--------------------------------------------------------
procedure WriteFloat(Name: String; Value: Extended);
--------------------------------------------------------
procedure WriteInteger(Name: String; Value: Integer);
--------------------------------------------------------
procedure WriteString(Name: String; Value: String);
--------------------------------------------------------
procedure BeforeMaximize;
--------------------------------------------------------
procedure ExtWndProc(var Msg: TMessage);
-------------------------------------------------------
procedure SetEnabled(Value: Boolean);
--------------------------------------------------------
function GetSaveDesktop: Boolean;
property methods
--------------------------------------------------------
procedure MyRestore(Sender : Tobject);
--------------------------------------------------------
procedure MySave(Sender : Tobject; var Action : TCloseAction);
--------------------------------------------------------
function OpenIniFile: TIniFile;
--------------------------------------------------------} {--------------- INI File methods -------------------} {--------------------------------------------------------} {--------------------------------------------------------
procedure RestoreControl(TheControl: TControl; iniFile: TIniFile);
--------------------------------------------------------
procedure RestoreWindow(TheForm: TForm; iniFile: TIniFile);
--------------------------------------------------------
procedure SaveControl(TheControl: TControl; iniFile: TIniFile);
--------------------------------------------------------
procedure SaveWindow(TheForm: TForm; iniFile: TIniFile);
--------------------------------------------------------
procedure SetSaveDesktop(Value: Boolean);
--------------------------------------------------------
property IniFileName : string
property IniSection : string
property IsEnabled : Boolean
property LocalDir : Boolean
property SaveDesktop : Boolean
property SaveLocation : Boolean
property SaveSize : Boolean
property SaveState : Boolean
property SaveVisible : Boolean
event OnRestore : TNotifyEvent
event OnSave : TNotifyEvent
event OnSaveControl : TSaverControlEvent
bolWindowStateSet : Boolean;
FExtWndProc : TFarProc;
FIniFileName : string;
FIniSect : string;
FIsEnabled : Boolean;
FIsLocal : Boolean;
FIsSaveDesktop : Boolean;
FIsSaveLocation : Boolean;
FIsSaveSize : Boolean;
FIsSaveState : Boolean;
FIsSaveVisible : Boolean;
FMyForm : TForm;
FOldWndProc : Pointer;
FOnClose : TCloseEvent;
FOnRestore : TNotifyEvent;
FOnSave : TNotifyEvent;
FOnSaveControl : TSaverControlEvent;
FOnShow : TNotifyEvent;
intRestoreHeight : Integer;
intRestoreLeft : Integer;
intRestoreTop : Integer;
intRestoreWidth : Integer;