Иллюстрированный самоучитель по Kylix


Листинг 13 7 Установка стииля кисти



Листинг 13.7. Установка стииля кисти

procedure TForm1.Button1Click(Sender: TObject); begin
with Canvas.Brush do begin
Style = bsSolid Style = bsClear Style = bsHorizontal Style = bsVertical Style = bsFDiagonal Style = bsBDiagonal Style = bsCross Style = bsDiagCross; end; end;

Установка значения свойства Bitmap

Свойство Bitmap кисти позволяет указать графический образ, который будет использоваться для заполнения областей и геометрических фигур, расположенных на канве.

Нижеприведенный пример (листинг 13.8) показывает, как можно загрузить графический образ из файла и присвоить его свойству Bitmap кисти канвы формы Form1.



Начало Назад Вперед


Книжный магазин