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

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确定。
周边将以Canvas.Pen.Color指定的颜色绘制。


您还需要确保正确设置了Set Canvas.Brush.Style，例如到bsSolid，对于Canvas.Pen.Style也是如此，例如psSolid。

TCanvas.Ellipse的文档说明如下：


椭圆使用Pen的值绘制轮廓，并使用Brush的值填充。