Установка стииля кисти
Листинг 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.
