Class TScoremeter (unit Gameform)

Inherits from

TObject

Constructors


constructor create(image:TRect; numimages:integer; screenpos:TPoint; digs,sincr:integer);

---------------------------------------------------------------------------- } { Score drawing object } { ----------------------------------------------------------------------------


Functions

destructor destroy;


procedure display(redo:boolean);

I wanted the score to count in units of xxx even if it goes up by y*xxx so it only increases the score by one unit each time - bit like a pinball score - units are ten points in this game.

Properties

Events

Variables

digits : TMultiple_bitmap;


i_height : integer;


i_width : integer;


lastscore : longint;


numdigs : integer;


score : longint;


screen_pos : TPoint;


slots : array[0..15] of integer;


s_inc : integer;



Constructors


constructor create(image:TRect; numimages:integer; screenpos:TPoint; digs,sincr:integer);

---------------------------------------------------------------------------- } { Score drawing object } { ----------------------------------------------------------------------------


Functions


destructor destroy;


procedure display(redo:boolean);

I wanted the score to count in units of xxx even if it goes up by y*xxx so it only increases the score by one unit each time - bit like a pinball score - units are ten points in this game. { redo is used when we want to repaint the whole thing, during a wm_paint or similar } { ie override the just display changes feature


Properties


Events


Variables


digits : TMultiple_bitmap;


i_height : integer;


i_width : integer;


lastscore : longint;


numdigs : integer;


score : longint;


screen_pos : TPoint;


slots : array[0..15] of integer;


s_inc : integer;