| Class TForm1 (unit Upuzz) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
procedure Draw;
function Makedraws(color: tcolor): longint;
procedure NewGame;
function score:longint;| Properties |
| Events |
| Variables |
BitBtn1 : TBitBtn;
Button1 : TButton;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
current : tcolor;
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;