Конструктор пластиковых окон

[Elvisnya]

Здравствуйте! Хочу написать "конструктор" пластиковых окон, но даже не знаю с чего начать. Конструктор окон должен выглядеть примерно ТАК. Посоветуйте какие компоненты лучше использовать для такой задачи, и в общих чертах как это реализовывать. Заранее спасибо

P.S. Хотел использовать TShape, но не знаю как сделать:

1. выделение при щелчке (Чтобы указывать программе куда ставить створку или например импост)
2. динамическое создание новых фигур TShape (например добавляю в процессе работы программы новую форточку или например новый импост)

[Utkin]

динамическое создание новых фигур TShape (например добавляю в процессе работы программы новую форточку или например новый импост)

Создайте структуру:

type
    Okno = record
        Elem: Array of TShape;   // Элементы окна
        Count: Integer;             // Число элементов
    end;

И не забывайте об инициализации Elem

Добавление нового элемента в конец

Inc(Count);
SetLength(Elem, Count);

Удаление последнего элемента

Dec(Count);
SetLength(Elem, Count);

[Stilet]

"конструктор" пластиковых окон

Моделирование окон?
Так для этого CAD системы обычно применяются. Делфи тут не помошник.

[Utkin]

Наверно хочет специализированную прогу, сразу с калькулятором стоимости и т.д.

[Elvisnya]

Utkin Спасибо. Сейчас почитаю про динамические массивы и записи, потом попробую сделать то что вы написали и отпишусь.
P.S. Да. Хочу написать прогу с калькуляцией стоимости и т.д.

[Stilet]

А-а-а так это рассчетная прога?
Дык калькуляцию лучше делать используя базы данных.

[Elvisnya]

Разобрался...кажется. Но есть несколько вопросов:

1. Если на форме не будет хотя бы одного компонента Shape, то

RecOkno=record
   Elem:array of TShape;
   Count:Integer;
end;

2. Под инициализацией вы понимали примерно следующее:

  //Увеличиваю Count на 1
  Inc(Okno.Count);

  //Увеличиваю длину динамического массива на один элемент
  SetLength(Okno.Elem, Okno.Count);

  //Создаю объект типа TShape и записываю указатель на него в Elem[1]
  Okno.Elem[Okno.Count]:=TShape.Create(Self);

  //От болды назначаю ширину и высоту
  Okno.Elem[Okno.Count].Width:=100;
  Okno.Elem[Okno.Count].Height:=100;

  //ПОСЛЕ ЭТОЙ КОМАНДЫ ФИГУРА ПОЯВИЛАСЬ НА ФОРМЕ. ЧТО Я СДЕЛАЛ?
  Okno.Elem[Okno.Count].Parent:=Form1;

3. Как сделать выделение при щелчке (Чтобы указывать программе куда ставить створку или например импост)

[Stilet]

Ну вообще-то TShape для этогоне очень подходит.
Впрочим назнач им всем один и тот же обработчик OnMouseDown

Okno.Elem[Okno.Count].OnMouseDown:=Shape1MouseDown;
Где
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Описанная в составе класса TForm1

А в ней TShape(Sender) даст тебе обьект по которому кликнули.

[Utkin]

Если на форме не будет хотя бы одного компонента Shape, то

То ничего страшного не произойдет.

2. Под инициализацией вы понимали примерно следующее:

Что-то вроде этого.

ПОСЛЕ ЭТОЙ КОМАНДЫ ФИГУРА ПОЯВИЛАСЬ НА ФОРМЕ. ЧТО Я СДЕЛАЛ?
Okno.Elem[Okno.Count].Parent:=Form1;

Вы все сделали правильно - установили родителя фигуры. Это информация для фигуры - где и как ей отображаться. Зная родителя, фигура получает привязку к координатам и еще кучу дополнительной информации без которой нарисоваться она не сможет.

3. Как сделать выделение при щелчке (Чтобы указывать программе куда ставить створку или например импост)

Стилет уже ответил - отлавливаете координаты мыши в момент щелчка, запоминаете их. Изменяете свойства конкретного TShape, так чтобы его отображение отличалось от остальных (например чуть увеличивать в размерах). Вообще посмотрите все свойства TShape.

ЗЫ. Есть такая штука, называется DRKB (введите в гугле или в Яндексе) - в ней содержатся много разных примеров кода для Дельфи. Посмотрите, многие моменты прояснит.

[Elvisnya]

Stilet спасибо, сделал как вы сказали. Получилось...почти. Возникла проблема, почему на Shape2, чтобы он окрасился в красный цвет, нужно нажимать два раза, а не один раз и как это исправить?

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TShape).Brush.Color:=clRed;
end;

procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Shape2.OnMouseDown:=Shape1MouseDown;
end;

Utkin

То ничего страшного не произойдет.

Затупил. Код ниже работает, хотя на форме нет ни одного Shape'a

procedure AddElem(Okno:RecOkno);
begin
  inc(Okno.Count);
  SetLength(Okno.Elem,Okno.Count);
  Okno.Elem[Okno.Count]:=TShape.Create(Form1);
  Okno.Elem[Okno.Count].Parent:=Form1;
end;

procedure TForm1.AddButtonClick(Sender: TObject);
begin
  AddElem(Okno)
end;

P.S. DRKB скачал. Толком ещё не смотрел, но "вешь" хорошая.