Игра уголки

const
  kletka_x = 8; //кол-во клеток
  kletka_y = 8;
  razm_x = 32; //размеры клеток
  razm_y = 32;
 
var
  Form1: TForm1;
  i, j: Integer; //цикл
  map: array[0..kletka_x - 1, 0..kletka_y - 1] of string;
  mr: TRect; //рект область для отрисовки
  nx, ny: Integer; //для вычисления ячеек
  zapom: string; //запомнить значение массива где взяли шарик
  zap_x, zap_y: Integer; //запомнить индексы массива куда отпустить
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // размер имаги = размер клетки * количество клеток
  Image1.Width := razm_x * kletka_x;
  Image1.Height := razm_y * kletka_y;
 
  // заполним массив пустыми клетками (вернее 0- потом отрисуем)
  for j := 0 to 7 do
    for i := 0 to 7 do
    begin
      map[j, i] := IntToStr(0);
 
    end;
 
  // заполним массив красными шариками (вернее 1- потом отрисуем)
  for j := 0 to 3 do
    for i := 0 to 3 do
    begin
      map[j, i] := IntToStr(1);
 
    end;
 
  // заполним массив синими шариками (вернее 2- потом отрисуем)
  for j := 4 to 7 do
    for i := 4 to 7 do
    begin
      map[j, i] := IntToStr(2);
 
    end;
 
  // определение mr-рект области и отрисовка на канву поля шариков из значений массива
  for j := 0 to kletka_x - 1 do
    for i := 0 to kletka_y - 1 do
    begin
      mr := Rect(j * razm_x, i * razm_y,
        j * razm_x + razm_x, i * razm_y + razm_y);
 
      if map[j, i] = '0' then
        Image1.Canvas.StretchDraw(mr, Image2.Picture.Bitmap);
 
      if map[j, i] = '1' then
        Image1.Canvas.StretchDraw(mr, Image3.Picture.Bitmap);
 
      if map[j, i] = '2' then
        Image1.Canvas.StretchDraw(mr, Image4.Picture.Bitmap);
    end;
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // вычисление ячеек исходя из координат по X и Y
  nx := X div razm_x;
  ny := Y div razm_y;
  Caption := ' X = ' + IntToStr(nx) + ', Y = ' + IntToStr(ny);
 
  // показать над какой клеткой мышь
  if map[nx, ny] = '0' then
    Label1.Caption := 'Пустая клетка';
 
  if map[nx, ny] = '1' then
    Label1.Caption := 'Красный шарик';
 
  if map[nx, ny] = '2' then
    Label1.Caption := 'Синий шарик';
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //запоминаем в переменную из массива, где берем шарик
  zapom := map[nx, ny];
 
  //определим исходя из координат X и Y в какой ячейке взяли и запомним
  zap_x := X div razm_x;
  zap_y := Y div razm_y;
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // если попытка опустить в пустую клетку то то что запомнили
  // заносим в массив над отпущенной клеткой и тамгде взяли шарик ставим ноль
  if map[nx, ny] = '0' then
  begin
    map[nx, ny] := zapom;
    map[zap_x, zap_y] := '0';
  end;
 
  // определение mr-рект области и отрисовка на канву из значений массива
  // то есть отрисовка перемещенного шарика
  for j := 0 to kletka_x - 1 do
    for i := 0 to kletka_y - 1 do
    begin
      mr := Rect(j * razm_x, i * razm_y,
        j * razm_x + razm_x, i * razm_y + razm_y);
 
      if map[j, i] = '0' then
        Image1.Canvas.StretchDraw(mr, Image2.Picture.Bitmap);
 
      if map[j, i] = '1' then
        Image1.Canvas.StretchDraw(mr, Image3.Picture.Bitmap);
 
      if map[j, i] = '2' then
        Image1.Canvas.StretchDraw(mr, Image4.Picture.Bitmap);
    end;
end;
 
end.