Home

Page 108
Page 108
background image

Система

101

Рис.  3 . 1 0 . Овальное окно с квадратной дыркой внутри

Теперь еще больше усложним задачу и попытаемся создать окно абсолютно

неправильной формы, используя дли этого картинку.

Создайте новый проект. Поместите на форму один компонент

В него вы должны загрузить какую-нибудь растровую картинку (например,
в формате bmp), которая будет использоваться в качестве фона окна, и по
ней мы будем вырезать форму. На рис.

 вы можете видеть мое окно

с рисунком в виде кадра из фильма "Матрица". А программа будет создавать

окно, которое будет иметь форму девушки с ноутбуком. Весь белый фон

удален (цвет фона будет определяться по цвету левой верхней точки изобра-

жения).

  3 . 1 1 . Форма будущей программы

Сделайте картинку Timage невидимой (свойство visible нужно установить
равным false). Она нужна нам на форме только для хранения картинки,

а сам компонент не должен быть виден после запуска. Конечно же, можно

было загрузить картинку, не используя компонентов, но это просто пример,

а как вы будете его использовать в будущем

 это уже ваше дело.

Теперь создадим обработчик события

 и впишем в него следую-

щий код:

procedure

 FormCreate (Sender: TObject) ;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.