在FMX TCanvas中设置字体颜色

Question

不知道我是否在这里丢失了某些东西，但是您能够在Firemonkey TCanvas中设置字体颜色吗？

我没有看到任何的下列财产表明这一点：

Canvas.Font. ???? 

任何帮助将是巨大的

感谢，

Answer 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;