关于CANVAS的颜色设置

[ATCG]

请问如何填充矩形，线条的颜色，以及如何自定义颜色，谢谢！

[naughtyboy]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
rect:TRect;
begin
rect.Top:=10;
rect.Left:=10;
rect.Bottom:=100;
rect.Right:=100;
image1.Canvas.Pen.Style:=pssolid;
image1.Canvas.Pen.Color:=clred;
image1.Canvas.Rectangle(rect);
image1.Canvas.Brush.Style:=bssolid;
image1.Canvas.Brush.Color:=clgreen;
image1.Canvas.FillRect(rect);
end;

[franky_yuquan]

Canvas->Brush->Color=clRed;即设置为红色。
TRect rect(x1,y1,x2,y2) (矩形的坐标)
Canvas->FillRect(rect);
具体按F1键查Brush就ok了，
多用用帮助，很有用的。

[franky_yuquan]

对了，自定义颜色可以拉一个colordialog控件。

[jishiping]

Canvas->Pen->Color = clGreen; //设置线的颜色为绿色。
Canvas->Brush->Color = clRed; //设置填充颜色为红色。
//画一个矩形，线的颜色为绿色，内部的填充颜色为红色。
Canvas->Rectangle(0, 0, 100, 100);
如果想要画一个空心的矩形，指定
Canvas->Brush->Style = bsClear;