是否在绘制椭圆时更改颜色属性？

Question

嗨，我正在尝试弄清楚如何在表单上绘制椭圆时更改它的颜色。我的代码如下。

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssalt in shift then
     form3.canvas.Ellipse(x-10,y-10,x+10,y+10)
  else
     if ssCtrl in shift then
        form3.canvas.Ellipse(x-10,y-10,x+10,y+10);    
end;

我知道在使用tshape组件时，椭圆有一个brush.style属性，但我似乎不知道如何为此目的更改它。

Answer 1

由Canvas.Brush.Color.

• The决定内部颜色的周长将以Canvas.Pen.Color.

指定的颜色绘制

您还需要确保设置了适当的Canvas.Brush.Style，例如设置为bsSolid，对于Canvas.Pen.Style也是如此，例如psSolid。

TCanvas.Ellipse的文档是这样描述的：

使用画笔的值绘制椭圆的轮廓，并使用画笔的值填充椭圆。