| Class TFormSaver (unit cFormSaver) |
TComponent
--------------------------------------------------------
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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;
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;--------------------------------------------------------
procedure MyRestore(Sender : Tobject);
procedure MySave(Sender : Tobject; var Action : TCloseAction);
function OpenIniFile: TIniFile;
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);| Properties |
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| Events |
event OnRestore : TNotifyEvent
event OnSave : TNotifyEvent
event OnSaveControl : TSaverControlEvent| Variables |
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;| Constructors |
constructor Create(AOwner: TComponent);--------------------------------------------------------} {----------- Beginning of TFormSaver ------------------} {--------------------------------------------------------} {--------------------------------------------------------
| Functions |
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);--------------------------------------------------------
| Properties |
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| Events |
event OnRestore : TNotifyEvent
event OnSave : TNotifyEvent
event OnSaveControl : TSaverControlEvent| Variables |
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;