If ColorDialog1.Execute then. Form1.Color := ColorDialog1.Color;

Form1.Color := ColorDialog1.Color;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

Begin

Shape1.Height := ScrollBar2.Position;

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

Begin

Shape1.Width := ScrollBar1.Position;

end;

procedure TForm1.FormResize(Sender: TObject);

Var

Menu,

Caption,

Frame: Integer;

Begin

Caption := GetSystemMetrics(sm_cyCaption);

Frame := GetSystemMetrics(sm_cxFrame) * 2;

Menu := GetSystemMetrics(sm_cyMenu);

Scrollbar1.Max := Width;

Scrollbar2.Max := Height;

Scrollbar2.Left := Width - Frame - Scrollbar2.Width;

Scrollbar1.Top := Height - ScrollBar2.Width - Frame - Caption - Menu;

Scrollbar1.Width := Width - Scrollbar2.Width - Frame;

Scrollbar2.Height := Height - Frame - Caption - Menu - Scrollbar1.Height;

end;

procedure TForm1.Exit1Click(Sender: TObject);

Begin

Close;

end;

end.

Главное меню для программы создается с помощью компонента MainMenu (находится на страничке “Standard” палитры компонентов). Поместив его на форму, дважды щелкните по нему мышкой - откроется редактор меню, в котором Вы сможете ввести нужные Вам названия пунктов меню и, при желании, изменить их имена (задаваемые Delphi по умолчанию) для удобочитаемости. Создадим меню программы SHAPEDEM2 с тремя главными пунктами: “Цвета”, “Фигуры”, “Выход”.

Для первого пункта создадим следующие подпункты:

· Цвет фигуры

· Цвет окна

Для второго:

· Прямоугольник

· Квадрат

· Закругленный прямоугольник

· Закругленный квадрат

· Эллипс

· Окружность

Третий пункт меню не будет содержать никаких подпунктов.

После создания всех пунктов и подпунктов меню для работы программы SHAPEDEM2 нужно назначить номера для каждого из подпунктов меню, связанных с типом фигуры. Для этого воспользуемся свойством Tag, имеющимся у каждого пункта меню. Свойство Tag (типа Integer) специально введено в каждый компонент Delphi с тем, чтобы программисты могли использовать его по своему усмотрению. Назначим 0 свойству Tag пункта “Прямоугольник”, 1 - пункту “Квадрат”, 2 - пункту “Закругленный прямоугольник” и т.д. Цель такого назначения будет объяснена позднее.

Два метода, созданные для подпунктов изменения цвета аналогичны тем, которые были в программе SHAPEDEM:

procedure TForm1.ShapeColorClick(Sender: TObject);

Begin