Контрольные вопросы и задания

 

1. Как установить взаимные ссылки между компонентами TDriveComboBox , TDirectoryListBox и TFileListBox? Для чего это необходимо?

2. По каким правилам формируется значение свойства Mask для компонента - списка файлов?

3. За что отвечает свойство Stretch компонента TImage?

4. Каково функциональное назначение свойства AutoSize компонента TImage?

5. Какое событие происходит при смене текущего файла у компонента TFileListBox?

 

 

 

Лабораторная работа №5 (2 часа) Программирование графики

 

 

Цель: получить навыки работы с графической подсистемой средствами Delphi; создать ПП с элементами графического интерфейса.

Оборудование: ПЭВМ IBM PC-AT.

Программные средства: ОС семейства Windows, среда Delphi 5.* (или выше).

 

Задание

 

Написать программу, которая при выполнении закрашивает собственную рабочую область окна заданным цветом с плавным переходом тона. При этом поверх закрашенной области вывести анимированное изображение бегущего человека.

Варианты цветов указываются в табл. 5.1.

 

Таблица 5.1

№	Цвет
1	Красный
2	Желтый
3	Зелёный
4	Голубой
5	Синий
6	Серый

 

Программа работы

 

1.     Изучить свойства и методы работы с компонентом TCanvas.

2.     Изучить работу функции RGB().

3.     Получить вариант задания.

4.     Разобраться с алгоритмами примеров отдельных частей исходного кода.

5.     Придумать формулы для формирования аргументов функции RGB().

6.     Получить набор файлов с изображениями кадров видеоряда.

7.     Написать текст программы.

8.     Выявить и исправить ошибки.

9.     Расставить по тексту комментарии.

10. Откомпилировать исходный текст программы.

 

Пояснения к работе

 

Сердцевиной графической подсистемы Delphi является класс TCanvas.

Большинство визуальных компонентов, с которыми имеет дело разработчик программного обеспечения в среде Delphi, обладают собственным свойством (property) типа TCanvas. В дальнейшем это свойство для любого компонента мы будем называть просто "канвой".

Для рисования канва включает в себя шрифт (TFont), перо (TPen) и кисть (TBrush), а также имеет набор функций для рисования типовых геометрических фигур. Кроме того, можно рисовать, получив доступ к каждому пикселю. Свойство канвы Pixels[X, Y], имеющее тип TColor, соответствует цвету точки с координатами (X,Y), где X и Y - типа Integer.

Цвета точек могут быть заданы с помощью функции RGB (bRed, bGreen, bBlue), где bRed, bGreen, bBlue - соответствующая доля красного, зеленого и синего в суммарном цвете RGB. Значение доли каждого цвета задается в единицах в диапазоне от 0 до 255.

Наглядно исследовать работу функции RGB() можно через окно Инспектора объектов при расширенном определении цвета (свойства Color для любого визуального компонента), двигая полозок насыщенности тона и наблюдая изменения значений bRed, bGreen и bBlue.

Набор кадров для анимации (из файла Ran_1.bmp) требуется преобразовать с помощью редактора Paint в 11 отдельных файлов. Далее с помощью метода-обработчика LoadFromFile для свойства Picture и события OnTimer компонента TImage задаётся циклическое изменение картинки на канве.