Skip to main content

Return to Question

spelling
Source Link
Jason Aller
Jason Aller
  • 3.7k
  • 28
  • 43
  • 40

I've got 5 labels on my form whose Fonts styles should all get the BOLD property added. I tried doing this using the code below but only Label2 gets bold and the rest still stays as it is at design time.

 Sleep(350); TThread.Synchronize(nil, procedure begin Label2.TextSettings.Font.Style := Label2.TextSettings.Font.Style + [TFontStyle.fsBold]; Label2.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold]; Label3.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label4.TextSettings.Font.Style := Label4.TextSettings.Font.Style + [TFontStyle.fsBold]; Label4.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label5.TextSettings.Font.Style := Label5.TextSettings.Font.Style + [TFontStyle.fsBold]; Label5.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label6.TextSettings.Font.Style := Label6.TextSettings.Font.Style + [TFontStyle.fsBold]; Label6.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350);

The colors change on each Label, but the Fonts aren't getting bold except for the first label wich iwhich I try to get bold... this is confusing me. please help me. I use Delphi 10.3.3 Community Edition and an Android 10 Smartphone (Lineage 17.1)

I've got 5 labels on my form whose Fonts styles should all get the BOLD property added. I tried doing this using the code below but only Label2 gets bold and the rest still stays as it is at design time.

 Sleep(350); TThread.Synchronize(nil, procedure begin Label2.TextSettings.Font.Style := Label2.TextSettings.Font.Style + [TFontStyle.fsBold]; Label2.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold]; Label3.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label4.TextSettings.Font.Style := Label4.TextSettings.Font.Style + [TFontStyle.fsBold]; Label4.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label5.TextSettings.Font.Style := Label5.TextSettings.Font.Style + [TFontStyle.fsBold]; Label5.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label6.TextSettings.Font.Style := Label6.TextSettings.Font.Style + [TFontStyle.fsBold]; Label6.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350);

The colors change on each Label, but the Fonts aren't getting bold except for the first label wich i try to get bold... this is confusing me. please help me. I use Delphi 10.3.3 Community Edition and an Android 10 Smartphone (Lineage 17.1)

I've got 5 labels on my form whose Fonts styles should all get the BOLD property added. I tried doing this using the code below but only Label2 gets bold and the rest still stays as it is at design time.

 Sleep(350); TThread.Synchronize(nil, procedure begin Label2.TextSettings.Font.Style := Label2.TextSettings.Font.Style + [TFontStyle.fsBold]; Label2.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold]; Label3.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label4.TextSettings.Font.Style := Label4.TextSettings.Font.Style + [TFontStyle.fsBold]; Label4.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label5.TextSettings.Font.Style := Label5.TextSettings.Font.Style + [TFontStyle.fsBold]; Label5.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label6.TextSettings.Font.Style := Label6.TextSettings.Font.Style + [TFontStyle.fsBold]; Label6.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350);

The colors change on each Label, but the Fonts aren't getting bold except for the first label which I try to get bold... this is confusing me. please help me. I use Delphi 10.3.3 Community Edition and an Android 10 Smartphone (Lineage 17.1)

Source Link
qGold
qGold
  • 341
  • 2
  • 16

FMX [Android] make multiple Labels bold

I've got 5 labels on my form whose Fonts styles should all get the BOLD property added. I tried doing this using the code below but only Label2 gets bold and the rest still stays as it is at design time.

 Sleep(350); TThread.Synchronize(nil, procedure begin Label2.TextSettings.Font.Style := Label2.TextSettings.Font.Style + [TFontStyle.fsBold]; Label2.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold]; Label3.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label4.TextSettings.Font.Style := Label4.TextSettings.Font.Style + [TFontStyle.fsBold]; Label4.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label5.TextSettings.Font.Style := Label5.TextSettings.Font.Style + [TFontStyle.fsBold]; Label5.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350); TThread.Synchronize(nil, procedure begin Label6.TextSettings.Font.Style := Label6.TextSettings.Font.Style + [TFontStyle.fsBold]; Label6.TextSettings.FontColor := TAlphaColorRec.Gray; end); Sleep(350);

The colors change on each Label, but the Fonts aren't getting bold except for the first label wich i try to get bold... this is confusing me. please help me. I use Delphi 10.3.3 Community Edition and an Android 10 Smartphone (Lineage 17.1)