Программирование. Lazarus.Урок 1.

Практическое занятие 15

Тема: Изучение интерфейса среды программирования Lazarus

Цель: научиться создавать интерфейс и сохранять проект.

Оборудование: компьютер

Выполнение работы:

Запустите программу LAZARUS – ПУСК – LAZARUS.

Задание 1.

1. Измените заголовок окна формы с Form1 на «Первая программа», используя свойство Caption.

2. Измените цвет формы на clAqua, используя свойство Color.

3 . Разместите в центре формы компонент Label1. Задайте: надпись метки - СВЕТОФОР. Измените свойство Font: шрифт - TimesNewRoman, начертание - полужирный, размер – 24, цвет - красный.

4 . Расположите на форме компоненты Panel1, Panel2, Panel3, для которых поочередно задать свойство Caption пустым.

Panel1, Panel2, Panel3

Button1, Button2, Button3.

«Красный». «Желтый». «Зеленый». В результате должна получиться форма.

6. Для изменения цвета компоненты Panel1 на красный, необходимо выполнить следующую процедуру для командной кнопки Button1:

Procedure TForml.ButtonlClick (Sender:TObject);

Begin

Panel1. Color :=clRed;

Panel2.Со1оr:=clWhite;

Panel3.Color :=clWhite;

End;

7. Создайте событие и реакцию на событие для командной кнопки Button2 цвет компоненты Panel2 будет меняться на желтый (yellow), а цвет компонент Panel1 и Panel3 будет меняться на белый. Если вы не знаете, как записать название цвета, посмотрите возможныецвета свойства Color в Инспекторе Объектов.

8. Создайте событие и реакцию на событие для командной кнопки Button3: цвет компоненты Panel3 будет меняться на зеленый (green), а цвет компонент Panel1 и Panel2 будет меняться на белый.

9. На Рабочем столесоздать папку с номером вашей группы (в скобках указать номер подгруппы). В папке с номером группы создать папку с именем Первая программа.

1 0. Сохранить свою программу в папке Первая программа.

11. Добавьте появление на компоненте Panel1 при нажатии на командную кнопку Button1 информации «СТОЙТЕ», цвет - белый, начертание - полужирный, размер шрифта- 24.

Для этого необходимо в имеющуюся процедуру добавить следующие действия:

Ргосеdurе TForml.Button1CIick (Sender:TObject);

Begin

Panell.Color:=clRed;

PaneI2 .Color :=clWhite;

Panel3 .Color :=clWhite;

Panell.Сарtiоn:='СТОИТЕ'; {задание на панели надписи}

Panel1 .Font.Color:=clWhite; {задание цвета шрифта}

Panel1.Font. Size :=24; {задание размера шрифта}

End;

12. Добавьте появление на компоненте Рапеl2 при нажатии на командную кнопку Button2 информации «ВНИМАНИЕ», цвет - белый, начертание — полужирный, размер шрифта - 24.

13. Добавить появление на компоненте Рапеl3 при нажатии на командную кнопку Button3 информации «ИДИТЕ», цвет - белый, начертание - полужирный, размер шрифта – 24.

14. Сохраните изменения в программе и запустите ее на исполнение.

15. На форме добавьте командную кнопку Button4. Задайте для нее надпись «Автор». При нажатии на кнопку должно выводиться сообщение об авторе программы. Для реализации данного задания задайте для нее реакцию на событие.

ProcedureTForml .Button4Click(Sender :TObject);

begin

ShowMessage(‘Программа разработана Ивановым С.’);

end;

16. Сохраните изменения в программе и запустите ее на исполнение.