| Class TResScale (unit ResScale) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);return element and remove element from AString
| Functions |
destructor Destroy;
procedure DefineProperties(Filer: TFiler);
Function Decompose (var AString:String;Var it:String;Delimiter:String):Boolean;
Procedure LoadComponentsPosition;
Procedure SaveComponentsPosition;
procedure FControlListData(Reader: TReader);
procedure SetCustomList(Value:TControlsProperty);
Procedure SetIniFileName(Value:String);
Procedure SetRestorePositions (Value:Boolean);
Procedure SetScreenHeight (Value:Word);
Procedure SetScreenWidth (Value:Word);
Procedure SetStorePositions (Value:Boolean);
procedure WriteControlListData(Writer:TWriter);| Properties |
property ControlList : TControlsProperty
property CurrentScreenHeight : Word
property CurrentScreenWidth : Word
property LoadPositions : Boolean
property RegistryEntry : String
property SavePositions : Boolean| Events |
| Variables |
FCustomList : TControlsProperty;
FRestorePositions : Boolean;
FStorePositions : Boolean;
GetIniFileName : String;
GetScreenHeight : Word;
GetScreenWidth : Word;| Constructors |
constructor Create(AOwner: TComponent);Published declarations
return element and remove element from AString
| Functions |
destructor Destroy;
procedure DefineProperties(Filer: TFiler);Formstate variable
Function Decompose (var AString:String;Var it:String;Delimiter:String):Boolean;Define a pseudo property to store the information of the property
Procedure LoadComponentsPosition;if
Procedure SaveComponentsPosition;Protected declarations
procedure FControlListData(Reader: TReader);MUST WE RESTORE FORM STATE
procedure SetCustomList(Value:TControlsProperty);Default form position if form is saved with windowstate = wsMaximized} {the very first time (only) its position & dimensions are saved
Procedure SetIniFileName(Value:String);get rid of keyname
Procedure SetRestorePositions (Value:Boolean);
Procedure SetScreenHeight (Value:Word);
Procedure SetScreenWidth (Value:Word);
Procedure SetStorePositions (Value:Boolean);
procedure WriteControlListData(Writer:TWriter);| Properties |
property ControlList : TControlsProperty
property CurrentScreenHeight : Word
property CurrentScreenWidth : Word
property LoadPositions : Boolean
property RegistryEntry : String
property SavePositions : Boolean| Events |
| Variables |
FCustomList : TControlsProperty;
FRestorePositions : Boolean;
FStorePositions : Boolean;
GetIniFileName : String;
GetScreenHeight : Word;
GetScreenWidth : Word;Private declarations } {TReaderProc = procedure(Reader: TReader) of object; TWriterProc = procedure(Writer: TWriter) of object;