|
|
|
Кисть (canvas.Brush)
используется методами, обеспечивающими вычерчивание замкнутых областей, например
геометрических фигур, для заливки (закрашивания) этих областей. Кисть, как объект,
обладает двумя свойствами, перечисленными в табл. 10.5.
Таблица 10.5.
Свойства объекта TBrush (кисть)
|
Свойство |
Определяет |
||
|
Color Style |
Цвет закрашивания замкнутой области Стиль (тип) заполнения
области |
||
Область внутри контура
может быть закрашена или заштрихована. В первом случае область полностью перекрывает
фон, а во втором — сквозь незаштрихованные участки области будет виден фон.
В качестве значения
свойства Color можно использовать любую из констант типа TColor (см. список
констант для свойства Pen.color в табл. 10.2).
Константы, позволяющие
задать стиль заполнения области, приведены в табл. 10.6.
Таблица 10.6.
Значения свойства Brush, style определяют тип закрашивания
|
Константа |
Тип заполнения (заливки)
области |
||
|
bsSolid |
Сплошная заливка |
||
|
bsClear |
Область не закрашивается |
||
|
bsHorizontal |
Горизонтальная штриховка |
||
|
bsVertical |
Вертикальная штриховка |
||
|
bsFDiagonal |
Диагональная штриховка
с наклоном линий вперед |
||
|
bsBDiagonal |
Диагональная штриховка
с наклоном линий назад |
||
|
bsCross |
Горизонтально-вертикальная
штриховка, в клетку |
||
|
bsDiagCross |
Диагональная штриховка,
в клетку |
||
В качестве примера
в листинге 10.1 приведена программа Стили заполнения областей, которая
в окно (рис. 10.2) выводит восемь прямоугольников, закрашенных черным цветом
с использованием разных стилей.
Рис. 10.2. Окно
программы Стили заполнения областей
Листинг 10.1.
Стили заполнения областей
unit brustyle_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics,
Controls, Forms, Dialogs, ExtCtrls;
type
TForm1
= class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations}
public
{ Public declarations )
end;
var
Form1:
TForm1;
implementation
{$R
*.DFM}
//
перерисовка формы
procedure
TForm1.FormPaint(Sender: TObject);
const
bsName:
array[1..8] of string =
('bsSolid','bsClear','bsHorizontal',
'bsVertical','bsFDiagonal','bsBDiagonal',
'bsCross','bsDiagCross');
var
x,y:
integer; // координаты левого верхнего угла прямоугольника
w,h:
integer; // ширина и высота прямоугольника
bs:
TBrushStyle;// стиль заполнения области
k:
integer; // номер стиля заполнения
i,j: integer;
begin
w:=40;
h:=40; // размер области(прямоугольника)
у:=20;
for
i:=l to 2 do
begin
х:=10;
for
j:=1 to 4 do
begin
k:=j+(i-1)*4; // номер стиля заполнения
case
k of
1:
bs = bsSolid;
2:
bs = bsClear;
3:
bs = bsHorizontal;
4:
bs = bsVertical;
5:
bs = bsFDiagonal;
6:
bs = bsBDiagonal;
7:
bs = bsCross;
8:
bs = bsDiagCross; end;
//
вывод прямоугольника
Canvas.Brush.Color := clGreen;
// цвет закрашивания — зеленый
Canvas.Brush.Style := bs;
// стиль закрашивания
Canvas
. Rectangle (x, y, x+w, y-t-h) ;
// вывод названия стиля
Canvas.Brush.Style
:= bsClear;
Canvas.TextOut(x, y-15, bsName[k]);
// вывод названия стиля
x := x+w+30;
end;
у := y+h+30;
end;
end;
end.
|
|
|
|
|
 |
