Class TGameForm (unit Memory)

Inherits from

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;

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;



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;