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

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

1. 内部的颜色由Canvas.Brush.Color确定。
2. 周边将以Canvas.Pen.Color指定的颜色绘制。

您还需要确保设置Canvas.Brush.Style设置正确，例如至bsSolid同样适用于Canvas.Pen.Style，例如psSolid。

TCanvas.Ellipse的文档说明如下：

  

使用Pen的值概述椭圆，并使用Brush的值填充。