在 FMX TCanvas 中设置字体颜色

【问题标题】：Set font color in FMX TCanvas在 FMX TCanvas 中设置字体颜色
【发布时间】：2016-09-21 20:29:01
【问题描述】：

不确定我是否在这里遗漏了什么，但你能在 Firemonkey TCanvas 中设置字体颜色吗？

我在以下属性中没有看到任何建议：

Canvas.Font. ????

任何帮助都会很棒

谢谢，

【问题讨论】：

设置Canvas.Fill.Color ?
@RepeatUntil: 是的，Canvas.Fill 是正确使用的属性，例如在调用 Canvas.FillText() 时。

标签： delphi firemonkey delphi-xe8 tcanvas

【解决方案1】：

测试此代码。在表单上放一个图像和一个按钮。

procedure TForm1.Button1Click(Sender: TObject);
var
  b:TBitmap;
  f:TFont;
begin
  b:=TBitmap.Create;
  f:=TFont.Create;
  try
    f.Family:='Arial';
    f.Size:=20;
    f.Style:=[TFontStyle.fsBold];
    b.Width:=200;
    b.Height:=200;
    b.Canvas.BeginScene;
    b.Canvas.Fill.Color:=TAlphaColorRec.red;
    b.Canvas.Font.Assign(f);
    b.Canvas.FillText(TRectF.Create(0,0,100,100),'AAA',False,1,[TFillTextFlag.RightToLeft], TTextAlign.Leading,TTextAlign.Center);
    b.Canvas.EndScene;
    image1.Bitmap:=b;
  finally
   b.Free;
   f.Free;
  end;
end;

【讨论】：