Проект «Собери картинку»

Постановка задачи.Данная программа релизует известную игру Puzzle и направлена на освоение типов TBitmap, TRect, метода CopyRect и навыков работы с двумерными массивами. Вид картинки до сборки и после перемешивания показан на рис. 32. Цель работы
с приложением – собрать картинку.

Рис. 32. Проект «Собери картинку»

Реализация. Подберите фотографию и сохраните ее в папке проекта как растровый рисунок типа bmp. Положите на форму два компонента TPaintBox, один TImage и две кнопки «Показать картинку» и «Перемешать картинку». При создании формы (процедура FormCreate) создайте компонент Puzzle класса TBitmap, загрузите
в него картинку из файла, установите размер формы, равный двум Puzzle.Width + 30 (30 пикселей на зазоры), установите размер компонентов PaintBox1 и PaintBox2, равным размеру Puzzle.

Картинку будем «резать» на 16 клеток (4 х 4). Размер одного фрагмента обозначим dx и dy.

dx:= Puzzle.Width div 4;

dy:= Puzzle.Height div 4;

Для хранения одного фрагмента картинки используйте компонент TImage. Сделайте его размер равным размеру фрагмента,
т. е. dx и dy. Сделайте Image1 невидимым.

Также задайте начальное значение переменной click1, которая подсчитывает число «кликов»:

click1 := 1; {Номер "клика": первый клик и далее нечетный клик выбирает первый фрагмент, второй – четный, выбирает второй фрагмент и меняет их местами}

Опишите глобальные переменные:

var

puzzle:TBitmap;

rect1,rect2:Trect;

click1,i,j,dx,dy:integer;

pole: array[1..4,1..4] of integer;

Обработчик кнопки «Показать картинку» выводит исходный рисунок в Paintbox1.

procedure TForm1.Button1Click(Sender: TObject);

begin

paintbox1.Canvas.Draw(0,0,puzzle);

end;

В следующей процедуре создаем перемешанный рисунок. Разбиваем рисунок на 16 квадратных фрагментов и перемешиваем их. «Перемешанный» рисунок помещаем в Paintbox2.

procedure TForm1.Button2Click(Sender: TObject);

var k,n,x,y:integer;

begin

{Заполняем двумерный массив нyлями. С помощью массива будем определять, помещен ли в соответствующую клетку фрагмент рисунка. Если в массиве 0, то это свободное поле, где еще не поставлен фрагмент.}

for i := 1 to 4 do

for j := 1 to 4 do

pole[i,j]:=0; //Весь массив заполнили нулями

for i := 1 to 4 do

for j := 1 to 4 do

begin // Ищем свободное поле

repeat

k:=random(4)+1;

n:=random(4)+1;

until pole[k,n]=0;

pole[k,n]:=1; //Заполняем его единицей

x:=(j-1)*dx; //Координаты фрагмента, который мы

//скопируем из PaintBox1 в Paintbox2

//на случайно выбранное место

y:=(i-1)*dy;

rect1:=bounds(x,y,dx,dy); //Границы этого фрагмента

//сохраняем в переменной rect1

x:=(n-1)*dx; //Координаты случайно выбранного

y:=(k-1)*dy; // фрагмента в Paintbox2

rect2:=bounds(x,y,dx,dy); //Границы этого фрагмента

//сохраняем в переменной rect2

//Копируем фрагмент из Paintbox1 в Paintbox2

paintbox2.Canvas.CopyRect(rect2,paintbox1.Canvas,rect1);

end;

//Чертим клетки на Paintbox2

with paintbox2.Canvas do

begin

pen.Color:=clblack;

pen.Width:=1;

for i:=1 to 3 do

begin

moveto(0, dy*i);

lineto(paintbox2.Width,dy*i);

moveto(dx*i,0);

lineto(dx*i,paintbox2.Height);

end;

end; end;

В обработчике события OnMouseDown на компоненте PaintBox2 напишите следующий код.

procedure TForm2.PaintBox2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var u,v:integer; rect3:Trect;

procedure XYtoUV(x,y:integer; var u,v:integer);

//Процедура находит номер строки и столбца, в которых

// находится фрагмент c координатами Х и Y

begin

u:=(x div dx)*dx;

v:=(y div dy)*dy;

end;

begin

XYtoUV(x,y,u,v);

rect2:=bounds(0,0,dx,dy); //Границы фрагмента,

// скопированного в Image1

// Если это нечетный "клик",

if click1 mod 2=1 then

begin

//Копируем фрагмент в Image1.

rect1:=bounds(u,v,dx,dy);

image1.Canvas.CopyRect(rect2,paintbox2.Canvas,rect1);

end

else

// Если это четный "клик"

begin

//Меняем местами два фрагмента

rect3:=bounds(u,v,dx,dy);

paintbox2.Canvas.CopyRect(rect1,paintbox2.Canvas,rect3);

paintbox2.Canvas.CopyRect(rect3,Image1.Canvas,rect2);

end;

click1:=click1+1;

end;

Задание 1. На титульном листе сделайте меню, в котором заведите позиции «Помощь играющему» и «Выбор картинки из файлов». Предложите на выбор около 5 картинок.

Задание 2. Сделайте программную проверку правильности сборки картинки с положительной похвалой.

Задание 3. Можно завести таблицу рекордов, в которую помещать минимальные количества кликов, необходимых для сборки картинки.

Задание 4.Положите таймер и сделайте на форме свой таймер с тем, чтобы на сборку картинки установить ограничение по времени.