Delphi 在FMX TCanvas中设置字体颜色
不确定我是否遗漏了一些内容,但您是否能够在Firemonkey TCanvas中设置字体颜色 我在以下酒店中没有看到任何建议:Delphi 在FMX TCanvas中设置字体颜色,delphi,firemonkey,delphi-xe8,tcanvas,Delphi,Firemonkey,Delphi Xe8,Tcanvas,不确定我是否遗漏了一些内容,但您是否能够在Firemonkey TCanvas中设置字体颜色 我在以下酒店中没有看到任何建议: Canvas.Font. ???? 任何帮助都会很好 谢谢,测试此代码。 在表单上放置一个图像和一个按钮 procedure TForm1.Button1Click(Sender: TObject); var b:TBitmap; f:TFont; begin b:=TBitmap.Create; f:=TFont.Create; try
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;
Set
Canvas.Fill.Color
?@RepeatUntil:yes是要使用的正确属性,例如在调用时。