Қолданбалы интерфейсінің құрылысы Орындау уақыты: 2 сағат Рейтинг: 1 балл

Жұмыстың мақсаты:

Әртүрлі тәсілдерді үйреніп қолдану және қолданбалы интерфейсінің көмегі бойынша өзгертуге болады.

Delphi позволяет легко манипулировать свойствами компонент как в режиме проектирования (design time), так и в режиме выполнения программы (run time). В режиме проектирования манипулирование свойствами осуществляется с помощью Проектировщика форм или с помощью вкладки Properties Инспектора объектов. В режиме выполнения программист имеет возможность не только манипулировать всеми свойствами, отображаемыми в Инспекторе объектов, но и управлять более обширным их списком.

Орындалу тәртібі:

1-кезең. Delphi жүктеу және жобаны құру

5. Delphi жүктеңіз.

6. Орындау барысында өлшемін, түсін және сыртқы келбетін TShape объектісі және өлшемі, түсі форманың өзіне мүмкіндік беретін программа құрыңыз.

2-кезең. Компоненттерді қою және құрылысының қасиеттері

16. Формаға Shape объектісін, CombоBox тізіміне түсетін ColorDialog компонентін, ScrollBar айналымының екі жолағын және Button батырмасының үшеуін орналастырыңыз. Келесі әрәкеттерді орындаңыз:

    Белгіленген объект	Object Inspector	Қасиеттің және оқиғаның аты	Орындалатын амалдар
    Button1	Properties	Name	FormColor
    		Caption	Цвет формы
    	Events	OnClick	if ColorDialog1.Execute then Form1.Color := ColorDialog1.Color;
    Button2	Properties	Name	ShapeColor
    		Caption	Цвет фигуры
    	Events	OnClick	if ColorDialog1.Execute then Shape1.Brush.Color := ColorDialog1.Color;
    Button3	Properties	Caption	Выход
    	Events	OnClick	Close
    ScrollBar1	Properties	Kind	sbHorizontal
    	Events	OnChange	Shape1.Width := ScrollBar1.Position * 3;
    ScrollBar2	Properties	Kind	sbVertical
    	Events	OnChange	Shape1.Height := ScrollBar2.Position * 2;
    ComboBox1	Properties	Text	Тексттін орнына бос орын қойыңыз
    		Items	Бөлек жолға әр фигураға атын теріңіз: прямоугольник квадрат закругленный прямоугольник закругленный квадрат эллипс круг
    	Events	OnClick	Shape1.Shape := TShapeType (ComboBox1.ItemIndex);

17. Shape объектісін созыңыз, жалпы тақырып және фигураны таңдау үшін шақыртуды енгізіңіз.

18. Құрылған қосымшаны орындауға жіберіңіз. Форманың өлшемдерін өзгертіңіз. Нәтижесін оқытушыға көрсетіңіз.

3-кезең. Модификация қосымшасы. Main Menu компонентімен жұмыс

9. Создайте модификацию проекта: уберите кнопки и выпадающий список, заменив их на MainMenu, «заставьте» полосы прокрутки изменять свое положение в зависимости от размера окна, а их свойство Position изменяться так, чтобы правильно отражать размер формы (лучше создать новый проект).

10. Разместите на форме объект Shape, компонент MainMenu, компонент ColorDialog, две полосы прокрутки ScrollBar. Дважды щелкните на компоненте MainMenu и в появившемся окне редактора меню, введите названия пунктов меню: три главных пункта Цвета, Фигуры, Выход; для первого пункта создайте два подпункта Цвет фигуры и Цвет окна; для второго 6 подпунктов Прямоугольник, Квадрат, Закругленный прямоугольник, Закругленный квадрат, Эллипс, Окружность; третий пункт меню не будет содержать никаких подпунктов.

11. Назначьте 0 свойству Tag пункта Прямоугольник, 1- пункту Квадрат и т.д., настройте события в случае выбора пунктов выбора фигуры:

Белгіленген объект	Object Inspector	Қасиеттің және оқиғаның аты	Орындалатын амалдар
Прямоугольник	Events	OnClick	Shape1.Shape := TShapeType((Sender as TMenuItem).Tag;

Обработка события OnClick для других фигур аналогична обработке события для прямоугольника.

12. Методы для подпунктов изменения цвета аналогичны тем, которые были на этапе 2.

13. Теперь «заставьте» полосы прокрутки всегда располагаться возле границ окна, независимо от его размеров. Для этого выполните следующие действия:

Белгіленген объект	Object Inspector	Қасиеттің және оқиғаның аты	Орындалатын амалдар
Form1	Events	OnResize	Добавьте раздел описания переменных: var Menu, Caption, Frame : integer; Тело процедуры: 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; ScrollBar2.Height := Height - Frame - Caption - Menu; ScrollBar1.Top := Height - ScrollBar2.Width - Frame - Caption - Menu; ScrollBar1.Width := Width - ScrollBar2.Width - Frame;

6. Қосымшаны жүктеңіз. Жұмыстың дұрыстығын тексеріңіз.

7. Жұмыстың нәтижесін оқытушыға көрсетіңіз.

Бақылау сұрақтары

10. Перечислите типы свойств. Приведите примеры разных типов в Инспекторе объектов.

11. Объектінің қасиеттері қалай өзгереді?

12. MainMenu компоненті қалай настраивается?

Тілдер және бағдарламалау технологиясы

№ 13 зертханалық жұмыс