Реферат: Игра Мозайка на Делфи Delphi

begin

clickx:=Trunc(X/widt)+1; // переведём щелчок мыши в координаты клетки

clicky:=Trunc(Y/heig)+1;

Go(clickx,clicky);

end;

procedure TForm1.Load; // отвечает за загрузку поля

var

into,outof:Trect; // ввод и вывод

lx,ly:integer; // координаты верхнего левого угла ввода

i,j:integer;

begin

for i:=1 to W do // отслеживает содержимое клеток

for j:=1 to H do

begin

ly:=((pole[i,j]-1) div W) * heig; // присвоим координатам верхнего левого угла ввода номер картинки

lx:=((pole[i,j]-1) mod W) * widt;

into:=Bounds(lx,ly,widt,heig);

outof:=Bounds((j-1)*widt,(i-1)*heig,widt,heig);

if pole[i,j]<>0

then Canvas.CopyRect(outof,pic.Canvas,into)

else Canvas.Rectangle((j-1)*widt,(i-1)*heig,j*widt,i*heig);

end;

end;

procedure TForm1.refresh; // "тусует" фрагменты картинки

var

x1,y1:integer; // координаты пустой клетки

x2,y2:integer; // взять картинку из этой координаты и поменять её с пустой

n:integer; // направление возможного хода

i:integer;