Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВоскресенье, 22.04.2018, 07:40
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой версией Delphi вы пользуетесь?
Всего ответов: 118

Каталог статей
Главная » Статьи » Начинающим

Урок 28. Класс Tbrush

На этом уроке изучим класс Tbrush. На прошлом занятии мы рассматривали объект Canvas, на котором происходит рисование. К этому объекту можно, в частности, приписать кисть. Одно из свойств кисти мы уже знаем - это Color. Тут ничего хитрого нет - для приписывания к кисти определенного цвета используем функцию RGB (см. предыдущий урок). Следующее свойство - это style. Оно определяет способ закрашивания. Возможные значения - это bsSolid (сплошная кисть), bsHorizontal и (горизонтальные и вертикальные полоски соответственно), bsFDiagonal и bsBDiagonal (наклонные вправо или влево полосы соответственно) и другие. Тут тоже ничего хитрого нет - присваиваем соответствующее значение и любуемся на результат.

Кроме закрашивания сплошной кистью можно закрашивать некоторой картинкой. За это отвечает свойство Bitmap для нашей кисти. Если вы используете свойство Bitmap, то свойства Color и Style игнорируются.

 

Вот пример применения этого свойства:

 

var

            Bitmap: TBitmap; //Заводим переменную для картинки

begin

            Bitmap:=TBitmap.Create;

            Bitmap.LoadFromFile('1.bmp'); //Загружаем картинку из файла

            Form1.Canvas.Brush.Bitmap:=Bitmap; //Присваиваем Bitmap к холсту

            Form1.Canvas.Ellipse(10, 10, 60, 60); //Рисуем нашей кистью

end;

 

Этот код можно поместить, например, в обработчик для кнопки. Разумеется, файл 1.bmp должен существовать (в той же папке, что и exe-файл).
            Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (24.08.2007) | Автор: Дубин Михаил Олегович
Просмотров: 451 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2018Сайт управляется системой uCoz