Class TPowerMeter (unit Gameform) |
Inherits from
TObject
constructor create(image:TRect; startpos,orient:integer; pos:TPoint);
- ---------------------------------------------------------------------------- } { PowerMeter } { ----------------------------------------------------------------------------
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);
lastpos : integer;
notch : TSprite;
orientation : integer;
position : integer;
screenpos : TPoint;
constructor create(image:TRect; startpos,orient:integer; pos:TPoint);
---------------------------------------------------------------------------- } { PowerMeter } { ----------------------------------------------------------------------------
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);
lastpos : integer;
notch : TSprite;
orientation : integer;
position : integer;
screenpos : TPoint;