//为什么会这样呢?类似于下面这样的代码不能生效。
MyLbl := Ttext.Create(self);
MyLbl.Parent := VscrbMenuBtn;
// MyLbl.Font.Size := 20;
MyLbl.TextSettings.Font.Size := 20;
MyLbl.Size.PlatformDefault := false;
MyLbl.TextSettings.Font.Style := [TFontStyle.fsBold];
MyLbl.Margins.Left := 20;
MyLbl.Align := TAlignLayout.Top;
MyLbl.TextSettings.Font.Style := [];
先清空再
MyLbl.TextSettings.Font.Style := [TFontStyle.fsBold];
或者
uses
FMX.TextLayout, System.UIConsts;
procedure ApplyCustomFontStyle(AText: TText);
var
TextSettings: TTextSettings;
begin
// 定义默认的文本样式
TextSettings := TTextSettings.Create(nil);
try
TextSettings.Font.Family := 'Arial';
TextSettings.Font.Size := 16;
TextSettings.FontColor := TAlphaColors.Red;
// 应用自定义样式到指定的 TText 对象
AText.TextSettings := TextSettings;
finally
TextSettings.Free;
end;
end;
标签:Style,20,fmx,MyLbl,TextSettings,字体,Font,TText,Size From: https://blog.51cto.com/kinglandsoft/8016275