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;

Answer 2

你的 Paint 方法应该是这样的：

procedure TTestControl.Paint;
begin
  inherited;
  Canvas.BeginScene;
  Canvas.Fill.Color := claBlueviolet;
  Canvas.FillEllipse(ClipRect, AbsoluteOpacity);
  Canvas.EndScene;
end;

我也认为你应该重写 TControl 的 DoPaint 方法而不是 Paint。