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