Class TFormSaver (unit cFormSaver)

Inherits from

TComponent

--------------------------------------------------------

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;



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;