Class

TSizeHolder

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Comments

An Object of this Class is Created to Hold the Sizes of Controls(Forms)
   while the app is running, thus reducing calls to RPCs SAVESIZ and LOADSIZ

Scope

Interfaced

Inherits from

TObject

Declaration


TSizeHolder = class(TObject)
private
  FSizeList,FNameList: TStringList;
public
  constructor Create;
  destructor Destroy; override;
  function GetSize(AName: String): String;
  procedure SetSize(AName,ASize: String);
  procedure AddSizesToStrList(theList: TStringList);
end;

Class Hierarchy


TObject
 └TSizeHolder

Class Fields

Name Type Scope Comments
FNameList TStringList Private -
FSizeList TStringList Private -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
AddSizesToStrList procedure AddSizesToStrList(theList: TStringList); Public
TSizeHolder 

Adds all the Sizes in the TSizeHolder Object to theList String list parameter
GetSize function GetSize(AName: String): String; Public
Fuctions returns a String of the Size(s) Of the Name parameter passed,
 if the Size(s) are already loaded into the object it will return those,
 otherwise it will make the apropriate RPC call to LOADSIZ
SetSize procedure SetSize(AName,ASize: String); Public
Store the Size(s) Of the ASize parameter passed, Associate it with the AName
 Parameter. This only stores the sizes in the objects member variables.
 to Store on the MUMPS Database call SendSizesToDB()

Referenced By (2)

Module (line) Referrer Type
fFrame (711) - Read
rMisc (65) SizeHolder Read