Delphi's drawing function [13]

Brush type Tbrush has three important attributes:

Color、Style、Bitmap.

{style: style; Delphi defines the style enumeration Tbrushstyle for the brush, containing the following styles:}bsSolid
bsClear
bsHorizontal
bsVertical
bsFDiagonal
bsBDiagonal
bsCross
bsDiagCross

The following applet shows the fill style above:var
　i,n: Integer;
　r: TRect;
begin
　Canvas.Pen.Color := clRed;
　Canvas.Pen.Width := 1;
　n := 10;
　for i := 0 to 7 do
　begin
　　Canvas.Brush.Color := clYellow;
　　Canvas.Brush.Style := TBrushStyle(i);
　　r := Rect(n, 10, n+36, ClientHeight-10);
　　Canvas.FillRect(r);
　　Canvas.Rectangle(r);
　　n := n + 48;
　end;
end;

Effect Chart: