Указания к выполнению работы
Изучите работу функции RGB().
Запустите оболочку Delphi.
Создайте новое приложение.
Задайте ширину и высоту окна формы по 255 пикселей.
Закрасьте рабочее поле формы цветом, определённым в соответствии с вариантом, так, чтобы получился плавный переход сверху вниз от самых темных тонов к самым светлым (рис. 5.1). Для этого разместите на форме компонент TImage, установите значение его свойства Align в alClient. Далее используйте событие OnShow для Form1 и "заготовку" обработчика для него, где требуется правильно задать значения параметров функции RGB(), обозначенные знаком "?":
With Image1.Canvas do
begin
Pen.Width := 2;
Pen.Style := psInsideFrame;
for y := 255 downto 0 do
for x := 0 to 255 do
Pixels [y,x] := RGB (?,?,?);
end;
К примеру, для получения плавного перехода серого цвета все три параметра функции RGB() должны определяться однозначно переменной y:
Pixels [y,x] := RGB (y,y,y);
Поместите в поле формы ещё один компонент TImage. Задайте его свойству TransParent значение True.
Добавьте в форму компонент TTimer.
Используя набор графических изображений из 11 файлов, в теле обработчика события OnTimer задайте смену кадров на канве компонента Image2. Для этого применяйте счётчик кадров (глобальную переменную типа integer), функцию преобразования типа integer в string (IntToStr()) (для формирования имени файла с изображением очередного кадра) и метод-обработчик LoadFromFile (для загрузки изображения из этого файла).
Подберите наиболее подходящий интервал для работы таймера.
Протестируйте и проверьте правильность выполнения вашей ПП.
Рис. 5.1. Плавный переход полутонов
Подключите к проекту собственную иконку, задайте название для формы и откомпилируйте конечный вариант программы.
Продемонстрируйте работу преподавателю.
Контрольные вопросы и задания
1. Какие компоненты инкапсулирует в себе класс TCanvas?
2. Каковы назначение и функции компонента TFont?
3. Каковы назначение и функции компонента TPen?
4. Каковы назначение и функции компонента TBrush?
5. Раскройте назначение функции RGB.
Лабораторная работа №6 (2 часа)
Создание нового компонента
Цель: создать простой компонент, который можно добавлять к проектам и устанавливать его свойства во время разработки программ.
Оборудование: ПЭВМ IBM PC-AT.
Программные средства: ОС семейства Windows, среда Delphi 5.* (или выше).
Задание
Создать на основе формы About Box из Репозитория объектов простой компонент TaboutBoxDlg — диалоговое окно.
Подключить этот компонент в палитру Компонентов Delphi.
Создать новый проект, добавив в него единственный компонент — созданный TaboutBoxDlg. Задать его свойства через Инспектор объектов, откомпилировать проект, проверить правильность работы компонента.
Программа работы
1. Изучить последовательность действий по созданию нового компонента.
2. Определить интерфейс для создаваемого компонента.
3. Написать исходный код компонента.
4. Выявить и исправить ошибки.
5. Расставить по тексту комментарии.
6. Проинсталлировать компонент в палитру Компонентов.
7. Написать тестовую программу и с её помощью проверить работоспособность вновь созданного компонента.
Пояснения к работе
Для профессионального программиста всегда удобно сделать часто используемый код (например, диалогового окна) компонентом и добавить его в Палитру компонентов. Такой компонент будет работать точно так же, как компоненты, которые представляют стандартный интерфейс Windows.
При создании компонента требуется выполнение следующих шагов:
1. Определение интерфейса компонента.
2. Создание компонента и подготовка его к регистрации.
3. Создание интерфейса компонента, инсталляция его в палитру.
4. Тестирование компонента.