Class TPowerMeter (unit Gameform)

Inherits from

TObject

Constructors


constructor create(image:TRect; startpos,orient:integer; pos:TPoint);

---------------------------------------------------------------------------- } { PowerMeter } { ----------------------------------------------------------------------------


Functions

destructor destroy;


procedure draw;

only ever redraws the bits that need updating, unlike the win95 meter which is shite, and redraws the whole thing every time

function pmdec : boolean;


procedure pminc;


procedure reset(newpos:integer);


procedure setpos(newpos:integer);


Properties

Events

Variables

lastpos : integer;


notch : TSprite;


orientation : integer;


position : integer;


screenpos : TPoint;



Constructors


constructor create(image:TRect; startpos,orient:integer; pos:TPoint);

---------------------------------------------------------------------------- } { PowerMeter } { ----------------------------------------------------------------------------


Functions


destructor destroy;


procedure draw;

only ever redraws the bits that need updating, unlike the win95 meter which is shite, and redraws the whole thing every time


function pmdec : boolean;


procedure pminc;


procedure reset(newpos:integer);


procedure setpos(newpos:integer);


Properties


Events


Variables


lastpos : integer;


notch : TSprite;


orientation : integer;


position : integer;


screenpos : TPoint;