不知道我是否在这里缺少任何内容,但是您能够在Firemonkey TCanvas中设置字体颜色吗?
我在以下属性中看不到任何建议的内容:
Canvas.Font. ????
任何帮助都会很棒
谢谢,
测试此代码。将图像放在表单和按钮上。
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;
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句