Class TTetro1 (unit Tetris1)
Inherits from
TForm
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormPaint(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ClearFigureIntoGlass;
function FigureXSize: Byte;
function FigureYSize: Byte;
procedure GenerateNewFigure;
function PutFigureIntoGlass(MoveDirect: TMoveDirect): Boolean;
procedure RotateFigure;
procedure ScanFillLines;
procedure SetFigureColor;
Properties
Events
Variables
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
SpeedButton6 : TSpeedButton;
SpeedButton7 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
Timer1 : TTimer;
FigureActive : Boolean;
FigureCorner : TFigureCorner;
FigureMove : TMoveDirect;
FigureType : Byte;
FigureX : Byte;
FigureY : Byte;
FirstColor : Byte;
FirstFigure : Byte;
Level : Byte;
NextLeftOfs : Integer;
NextTopOfs : Integer;
RedrawSheet : Boolean;
ReentKeys : Boolean;
ReentTimer : Boolean;
Score : Longint;
SecondColor : Byte;
SecondFigure : Byte;
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormPaint(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ClearFigureIntoGlass;
function FigureXSize: Byte;
function FigureYSize: Byte;
procedure GenerateNewFigure;
function PutFigureIntoGlass(MoveDirect: TMoveDirect): Boolean;
procedure RotateFigure;
procedure ScanFillLines;
procedure SetFigureColor;
Properties
Events
Variables
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
SpeedButton6 : TSpeedButton;
SpeedButton7 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
Timer1 : TTimer;
FigureActive : Boolean;
FigureCorner : TFigureCorner;
FigureMove : TMoveDirect;
FigureType : Byte;
FigureX : Byte;
FigureY : Byte;
FirstColor : Byte;
FirstFigure : Byte;
Level : Byte;
NextLeftOfs : Integer;
NextTopOfs : Integer;
RedrawSheet : Boolean;
ReentKeys : Boolean;
ReentTimer : Boolean;
Score : Longint;
SecondColor : Byte;
SecondFigure : Byte;