Моделирование игровых программ
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
begin
close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form2.ShowModal
end;
procedure TForm1.N2Click(Sender: TObject);
Var i,j:integer;
begin
for i:=1 to H do
for j:=1 to W do
pole[i,j]:= stp[i,j];
Form1.Mixer;
Form1.ShowPole;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute
then fname:=OpenPictureDialog1.FileName;
NewGame;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form3.RichEdit1.Lines.LoadFromFile(Правила.rtf);
Form3.ShowModal;
end;
procedure TForm1.N8Click(Sender: TObject);
var
i,j:integer;
begin
H:=4;W:=4;
Formmas;
NewGame;
N2Click(Sender);
end;
procedure TForm1.N9Click(Sender: TObject);
var
i,j:integer;
begin
h:=5;w:=5;
Formmas;
NewGame;
N2Click(Sender);
end;
procedure TForm1.N10Click(Sender: TObject);
var
i,j:integer;
begin
h:=6;w:=6;
Formmas;
NewGame;
N2Click(Sender);
end;
end.