Delphi的绘图功能[13] - TBrush类

Delphi的绘图功能[13] - TBrush类2011-12-15 cnblogs 万一//画刷类 TBrush 有三个重要属性:

Color、Style、Bitmap.

{Style: 样式; Delphi 为画刷定义了样式枚举 TBrushStyle, 包含以下样式:}

bsSolid
bsClear
bsHorizontal
bsVertical
bsFDiagonal
bsBDiagonal
bsCross
bsDiagCross

//下面小程序展示了上面的其中填充样式:

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;

//效果图: