Работа с картинками

[Miha85193]

В предыдущем моем примере есть ошибки. Жаль что уже нельзя отредактировать.

Вот, здесь по идеи ошибок быть не должно.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  row, col : integer;

begin
  col := trunc(X/W);
  row := trunc(Y/H);
  if Field[col, row] = 0 then
  begin
    Field[col, row] := 1;// если пусто то ставим мебель

    if (row+1) <= 9 then
      Field[col, row+1] := 1;// второй блок

    { или же
    if (row-1) >= 0 then
      Field[col, row-1] := 1;
    или
    if (col+1)<= 9 then
      Field[col+1, row] := 1;
    или
    if (col-1) >= 0 then
      Field[col-1, row] := 1;
    в зависимости от того, где будет второй блок}
  end
  else
  begin
     Field[col, row] := 0; // иначе удаляем
  end; 
   ShowField_(Canvas);
end;

[kaseg]

Я сделал уже чтоб размеры можно было задавать и т.п. (блоки 2х3 например), а заодно и цвет) спасибо большое)

[VladSuhoy522]

А мужики-то не знают