Class TResScale (unit ResScale)

Inherits from

TComponent

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;


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;