如何定义Brush

Question

想定义Brush的属性,以便程序调用Brush的方法,但不会写,希望哪位大大给写一个
用到两个参数color,style
procedure setBrush(color: TColor; style: string);
begin
  FCanvas.Brush.Color := color;
  FCanvas.Brush.Style := style;
end;
但好象不对,因为style有如很多bsSolid类型,直接调用参数出错
若定义style为 TBrushStyle类型,那我调用参数时如何写?
写成setbrush(clblack,bsSolid)出错

Answer 1

在程序创建的时候将Brush的color, style设置好就可以了，没有必要另外写一个过程。

Answer 2

procedure setBrush(Value:TBrush);
begin
  FCanvas.Brush:=Brush;  
end;

Answer 3

FCanvas.Brush.Style := bsDiagCross ;
这样不行吗？