delphi - Firemonkey控件不绘制

Question

当尝试绘制控件时，我根本无法弄清楚自己在做什么。

我尝试使用TCanvas.BeginScene（）/ TCanvas.EndScene（），尝试以其他方法绘画（例如主要形式OnPaint（））。
我已经尝试过TControl.InvalidateRect（）。
我什么都没有。

这是我的测试应用程序中的内容：

type
  TTestControl = class(TControl)
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    fTestControl: TTestControl;
  end;

procedure TTestControl.Paint;
begin
  Canvas.Fill.Color := TColorRec.Blueviolet;
  Canvas.FillEllipse(ClipRect, AbsoluteOpacity);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fTestControl := TTestControl.Create(Self);
  fTestControl.Parent := Self;
  fTestControl.Align  := TAlignLayout.Client;
end;

根据在线内容，它应该足够了。
有什么建议？

Answer 1

Canvas.Fill.Color是TAlphaColor。

换线

  Canvas.Fill.Color := TColorRec.Blueviolet;

至

  Canvas.Fill.Color := TAlphaColors.Blueviolet;