Подключение файла ресурсов
Определить прямоугольную область, заполнить поля структуры TRect можно при помощи функции Rect или Bounds. Функции Rect надо передать в качестве параметров координаты левого верхнего и правого нижнего углов области, функции Bounds – координаты левого верхнего угла и размер области. Например, если надо определить прямоугольную область, то это можно сделать так:
ret = Rect(x1,y1,x2,y2)
Или так:
ret = Bounds(x1,y1,w,h)
Где x1, y1 – координаты левого верхнего угла области; х2, у2 – координаты правого нижнего угла области; w и h – ширина и высота области.
Следующая программа (ее текст приведен в листинге 3.9) выводит в диалоговое окно баннер – рекламное сообщение. На рис. 3.23 приведены кадры этого баннера (содержимое файла baner.bmp), а на рис. 3.24 – диалоговое окно. Форма программы содержит один-единственный компонент – таймер.
Программа состоит из двух функций. Функция TForm1::FormCreate создает объект TBitmap и загружает в него баннер – BMP-файл, в котором находятся кадры баннера. Затем, используя информацию о размере загруженного битового образа, функция устанавливает значения характеристик кадра: высоту и ширину.
Рис. 3.23. Кадры баннера
Рис. 3.24. Воспроизведение баннера в окне программы