Class TForm1 (unit Upuzz)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure Button1Click(Sender: TObject);

regret the draw:

procedure FormCreate(Sender: TObject);


procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);


procedure Draw;


function Makedraws(color: tcolor): longint;

win or los

procedure NewGame;


function score:longint;


Properties

Events

Variables

BitBtn1 : TBitBtn;


Button1 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


current : tcolor;

Private declarations

dx : longint;


dy : longint;


rememberi : longint;


rememberj : longint;


searchlevel : longint;


stop : boolean;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure Button1Click(Sender: TObject);

regret the draw:


procedure FormCreate(Sender: TObject);


procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);


procedure Draw;


function Makedraws(color: tcolor): longint;

win or los


procedure NewGame;


function score:longint;


Properties


Events


Variables


BitBtn1 : TBitBtn;


Button1 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


current : tcolor;

Private declarations


dx : longint;


dy : longint;


rememberi : longint;


rememberj : longint;


searchlevel : longint;


stop : boolean;