Class TWinSaver (unit Winsaver)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

Destructor Destroy;

initial property value

procedure MyRestore(Sender : Tobject);


procedure MySave(Sender : Tobject; var Action : TCloseAction);


procedure Restore;


procedure Save;


procedure OpenIniFile;


procedure RestoreWindow(TheForm: TForm);


procedure SaveWindow(TheForm: TForm);


Properties

property IniFileName : string


property IniSection : string


property LocalDir : Boolean


property SaveLocation : Boolean


property SaveSize : Boolean


property SaveState : Boolean


property SaveVisible : Boolean


Events

Variables

FIniFileName : string;


FIniSect : string;


FIsLocal : Boolean;


FIsSaveLocation : Boolean;


FIsSaveSize : Boolean;


FIsSaveState : Boolean;


FIsSaveVisible : Boolean;


FMyOwner : TObject;


FOnClose : TCloseEvent;


FOnShow : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);


Functions


Destructor Destroy;

initial property value


procedure MyRestore(Sender : Tobject);


procedure MySave(Sender : Tobject; var Action : TCloseAction);


procedure Restore;


procedure Save;


procedure OpenIniFile;


procedure RestoreWindow(TheForm: TForm);


procedure SaveWindow(TheForm: TForm);


Properties


property IniFileName : string


property IniSection : string


property LocalDir : Boolean


property SaveLocation : Boolean


property SaveSize : Boolean


property SaveState : Boolean


property SaveVisible : Boolean


Events


Variables


FIniFileName : string;


FIniSect : string;


FIsLocal : Boolean;


FIsSaveLocation : Boolean;


FIsSaveSize : Boolean;


FIsSaveState : Boolean;


FIsSaveVisible : Boolean;


FMyOwner : TObject;


FOnClose : TCloseEvent;


FOnShow : TNotifyEvent;