Практическое занятие №33 Разработка оконного приложения. Создание новых форм с меню, геометрическими фигурами, палитрой и со шкалой.

Цель работы: научиться разрабатывать оконные приложения

Теоретическая часть

Палитра компонентов. Палитра компонентов расположена в главном окне и имеет вид многостраничного блокнота. Каждая страница имеет свой набор компонентов (рис. 1). Чтобы поместить компонент в центре окна формы, дважды щелкают на его пикто­грамме. Если нужно разместить компонент где либо на форме, щелкают один раз на его пиктограмме и один раз в нужном месте формы. Для того, чтобы вставить один и тот же компонент не­сколько раз, нужно нажать клавишу Shift и щелкнуть на его пиктограмме - теперь можно щелкать в окне формы. Чтобы отка­заться от этого режима, надо нажать на кнопку палитры компо­нентов с изображением стрелки. Выбранный компонент можно перемещать на форме, а также изменять его размеры, перетягивая маркеры.

Практическая часть

Ход работы

1. Создайте новое приложение. Форму назовите Paint.

2. Добавьте на форму меню в любое место (Standard ––> MainMeny).

3. На форме появится значок меню, кликните по нему 2 раза.

4. Появится окно; в свойстве – caption напишите “Файл”, нажмите Enter, перейдите курсором мыши на строку ниже; в свойстве – caption напишите “Выход”; Enter; перейдите курсором на строку справа в свойстве – caption напишите “Вид”; и т.д. создайте меню как на рисунке. В меню “Справка” добавьте один пункт: “Об Авторе”;

 

5. Закройте эту форму (Form1.MainMenu1);

6. Создание GroupBox (Standard ––> GroupBox); разместите его по всему периметру формы. В свойстве Caption напишите текст (DemoPaint).

 

7. Добавьте в левый угол формы геометрическую фигуру (Additional ––> Shape) прямоугольного, не квадратного размера!; в свойстве Shape укажите stCircle; прямоугольник станет кругом.

8. Вставьте палитру цветов (Samples ––> Colorgrid) в нижнюю часть формы.

9. Добавьте на форму шкалу для изменения толщины линий фигуры (Win32 ––> TrackBar); в свойстве max укажите 45, в свойстве min укажите 1.

10. Добавьте поле (Standard ––> Edit) в свойстве Enabled укажите false (это запретит изменение данного поля), укажите в свойстве text значение 1; добавьте текст “Толщина линии:” (Standard ––> Label).

11. Кликните 2 раза на шкалу изменения ширины линий; после begin введите:

shape1.Pen.Width:=TrackBar1.Position; Edit1.Text:=IntToStr(TrackBar1.Position);

12. Кликните 2 раза по палитре цветов; после begin введите:

Shape1.Brush.Color:=ColorGrid1.ForegroundColor; Shape1.Pen.Color:=ColorGrid1.BackgroundColor;

(Это дает возможность менять цвет заливки фигуры (левой клавишей мыши) и цвет линий фигуры (правой клавишей мыши).

13. Кликните на форме по пункту меню “Выход” (Файл ?Выход); после begin введите close; (теперь кнопка выход в меню закрывает форму).

14. Кликните по пункту Круг; после begin введите: Shape1.Shape:=stCircle;

15. Кликните по пункту Квадрат; после begin введите: Shape1.Shape:=stSquare;

16. Кликните по пункту Эллипс; после begin введите: Shape1.Shape:=stEllipse;

17. Кликните по пункту Прямоугольник; после begin введите: Shape1.Shape:=stRectangle;

18. Кликните по пункту Квадрат.со скруг углами; после begin введите: Shape1.Shape:=stRoundSquare;

19. Кликните по пункту Прямоуг. со скруг. углами; после begin введите: Shape1.Shape:=stRoundRect;

20. Создайте новую форму (Файл  ––> Новый ––> Форма); назовите её “Об Авторе”; напишите на ней о себе; сделайте кнопку “Ок”.

21. Кликните по пункту “Об авторе”; после begin введите: Form2.show; (это позволит откроет вторую форму); после запуска программы появится сообщение о присоединении второй формы, нажмите Да.

22. На второй форме кликните 2 раза по кнопке “Ок” и после begin введите: Form2.Close;

23. Протестируйте программу, исправьте все недочёты, добавьте что-нибудь своё.