Class TResScale (unit ResScale) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Published declarations
return element and remove element from AString
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);
property ControlList : TControlsProperty
property CurrentScreenHeight : Word
property CurrentScreenWidth : Word
property LoadPositions : Boolean
property RegistryEntry : String
property SavePositions : Boolean
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;
constructor Create(AOwner: TComponent);
Published declarations
return element and remove element from AString
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);
property ControlList : TControlsProperty
property CurrentScreenHeight : Word
property CurrentScreenWidth : Word
property LoadPositions : Boolean
property RegistryEntry : String
property SavePositions : Boolean
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;