Private. { Private declarations }

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.DFM}

procedure TForm1.NewShapeClick(Sender: TObject);

Begin

Shape1.Shape:= TShapeType((Sender as TMenuItem).Tag);

end;

procedure TForm1.ShapeColorClick(Sender: TObject);

Begin

If ColorDialog1.Execute then

Shape1.Brush.Color:= ColorDialog1.Color;

end;

procedure TForm1.FormColorClick(Sender: TObject);

Begin

If ColorDialog1.Execute then

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

Date: 2015-06-06; view: 580; Нарушение авторских прав