| Class TGameForm (unit Memory) |
TForm
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Procedure BeginGame(StartLevel,FinalLevel : integer);
Procedure ClearSequence;
Procedure DeHiLight;
Destructor Destroy;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure SampleTimerTimer(Sender: TObject);
procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
Procedure GenerateOne(aRow : integer);
Procedure GenerateSequence;
Procedure Hilight(Index : Integer);
Procedure PlaySample;
procedure Regenerate(aRow : Integer);
procedure StartPlaying;
Procedure WriteStatus(isSuccess : Boolean);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Grid : TStringGrid;
IndexLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
LevelLabel : TLabel;
LevelName : TLabel;
MediaPlayer1 : TMediaPlayer;
MediaPlayer2 : TMediaPlayer;
MediaPlayer3 : TMediaPlayer;
MediaPlayer4 : TMediaPlayer;
MediaPlayer5 : TMediaPlayer;
NoSound : Boolean;
NumberPlayers : Integer;
PlayerLabel : TLabel;
PlayerName : TLabel;
PlayerNumber : Integer;
SampleTimer : TTimer;
ScoreLabel : TLabel;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Shape4 : TShape;
Shape5 : TShape;
Timer1 : TTimer;
TotalLabel : TLabel;
TryLabel : TLabel;
AddOnly : Boolean;
CurrentPlayer : TPlayer;
LastLevel : Integer;
Level : Integer;
Number : integer;
PlayedIndex : integer;
SampleIndex : Integer;
Score : LongInt;
Sequence : TList;| Constructors |
Constructor Create(AOwner : TComponent);----------------------------------------------------------
| Functions |
Procedure BeginGame(StartLevel,FinalLevel : integer);
Procedure ClearSequence;
Procedure DeHiLight;
Destructor Destroy;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure SampleTimerTimer(Sender: TObject);
procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
Procedure GenerateOne(aRow : integer);
Procedure GenerateSequence;
Procedure Hilight(Index : Integer);
Procedure PlaySample;
procedure Regenerate(aRow : Integer);
procedure StartPlaying;
Procedure WriteStatus(isSuccess : Boolean);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Grid : TStringGrid;Public declarations
IndexLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
LevelLabel : TLabel;
LevelName : TLabel;
MediaPlayer1 : TMediaPlayer;
MediaPlayer2 : TMediaPlayer;
MediaPlayer3 : TMediaPlayer;
MediaPlayer4 : TMediaPlayer;
MediaPlayer5 : TMediaPlayer;
NoSound : Boolean;
NumberPlayers : Integer;
PlayerLabel : TLabel;
PlayerName : TLabel;
PlayerNumber : Integer;
SampleTimer : TTimer;
ScoreLabel : TLabel;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Shape4 : TShape;
Shape5 : TShape;
Timer1 : TTimer;
TotalLabel : TLabel;
TryLabel : TLabel;
AddOnly : Boolean;Private declarations
CurrentPlayer : TPlayer;
LastLevel : Integer;
Level : Integer;
Number : integer;
PlayedIndex : integer;
SampleIndex : Integer;
Score : LongInt;
Sequence : TList;