Class ThgResourceGauge (unit Resgauge)

Inherits from

TGauge

Constructors


constructor Create(AOwner: TComponent);

Protected declarations

Set default values



Functions

destructor Destroy;


procedure GetResource(Sender: TObject);


procedure SetInterval(New: word);


Properties

property Interval : word

Published declarations

property Monitor : TMonitorType


Events

Variables

FInterval : word;


FMonitor : TMonitorType;

Private declarations

Timer : TTimer;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations

Set default values


Functions


destructor Destroy;


procedure GetResource(Sender: TObject);


procedure SetInterval(New: word);


Properties


property Interval : word

Published declarations


property Monitor : TMonitorType


Events


Variables


FInterval : word;


FMonitor : TMonitorType;

Private declarations


Timer : TTimer;