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;