| Class TScoremeter (unit Gameform) |
TObject
| Constructors |
constructor create(image:TRect; numimages:integer; screenpos:TPoint; digs,sincr:integer);| Functions |
destructor destroy;
procedure display(redo:boolean);| 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;