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

[kaseg]

Прошу помочь найти оптимальный вариант решения след. задачи:
нужно разместить мебель в комнате. Будет достаточно сделать хотябы схематично блоками (типа как в тетрисе).

Какой-нибудь компонент для отображения свободного пространства комнаты и далее компоненты (диваны, кресла, в виде клеточек хотяб (ну диван 3 клетки дапустим линия, крекло 1 клетка)) на первом компоненте.
Как подойти к этой задаче даже не знаю ещё.
Идеи с размерами и т.п. я сам реализую, главное как сделать чтоб расстановка блоков этих происходила?

[Вадим Буренков]

Используй Canvas для вывода графики.

[kaseg]

Используй Canvas для вывода графики.

окей, сама комната будет канвас, а мебель?

[Пепел Феникса]

канвас отображает все, так что надо вам рисовать то что надо.

[mutabor]

а мебель?

А мебель графическими примитивами.

[Miha85193]

Попробуйте сделать следующее:

const
  {ширина и высота клетки}
  W = 30;
  H = 30;

var
  Field: array[0..9, 0..9] of integer; // комната

procedure ShowField_(Canvas: TCanvas);

  procedure Ht(Row, Col: Integer); // рисуем клетку
  begin
     if Field[col, row] = 0 then
     begin // рисуем пол
        Canvas.brush.color := clMaroon;
        Canvas.Rechtangle(Col*W, Row*H, W, H);
     end
     else
     begin // рисуем мебель
        Canvas.brush.color := clBlue;
        Canvas.Rechtangle(Col*W, Row*H, W, H);
     end;
  end;

var
  row,col :  integer;

begin
    for row :=0 to 9 do
       for col :=0 to 9 do
          Ht(Row, Col);
end;

procedure TForm1.Form1Create(Sender: TObject);
var
  row,col :  integer;
begin
    for row :=0 to 9 do
       for col :=0 to 9 do
          Field[col,row]  := 0;
    
end;

procedure TForm1.Form1Show(Sender: TObject);
begin
  ShowField_(Canvas); 
end;

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

begin
  col := trunc(X/W);
  row := trunc(Y/H);
  if Fiald[col, row] = 0 theh
    Fiald[col, row] := 1 // если пусто то ставим мебель
  else
     Fiald[col, row] := 0; // иначе удаляем
   ShowField_(Canvas); 
end;

вот вроде так.

[kaseg]

спасибо большое за помощь, но выводит коряво... сетка вначале вабще не видна, щёлкаешь мышью - появляется. И выглядит не совсем как сетка. Красиво квадратик ставится только в единственную ячейку - квадратик (слева вверху). А больше клеток по сути и нет. Поразбираюсь посижу.
з.ы. канваса нету в делфи 7 неудобно слегка

[Miha85193]

Тогда попробуйте вот так:

const
  {ширина и высота клетки}
  W = 30;
  H = 30;

var
  Field: array[0..9, 0..9] of integer; // комната

procedure ShowField_(Canvas: TCanvas);

  procedure Ht(Row, Col: Integer); // рисуем клетку
  begin
     if Field[col, row] = 0 then
     begin // рисуем пол
        Canvas.brush.color := clMaroon;
        Canvas.Rectangle(Col*W, Row*H, Col*W+W+1, Row*H+H+1);
     end
     else
     begin // рисуем мебель
        Canvas.brush.color := clBlue;
        Canvas.Rectangle(Col*W, Row*H, Col*W+W+1, Row*H+H+1);
     end;
  end;

var
  row,col :  integer;

begin
  for row :=0 to 9 do
    for col :=0 to 9 do
      Ht(Row, Col);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  row,col :  integer;
begin
  for row :=0 to 9 do
    for col :=0 to 9 do
      Field[col,row] := 0;
end;

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
    Field[col, row] := 1 // если пусто то ставим мебель
  else
     Field[col, row] := 0; // иначе удаляем
   ShowField_(Canvas);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  ShowField_(Canvas);
end;

Дело в том, что я писас этот код по памяти и даже поленился проверить ошибки и откомпилировать его в своей Делфи. Вот теперь все ошибки исправлены.

[kaseg]

Miha85193
спасибо большое. А как к примеру поставить состоящий из двух блоков элемент?

[Miha85193]

Тогда пишем в TForm1.FormMouseDown следующее:

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 Field[col, row+1] <= 9 then
      Field[col, row+1] := 1;// второй блок

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