Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.009 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Textfarbe eines Edit unter FMX anpassen geht nicht

  Alt 15. Sep 2021, 11:11
ich möchte abhängig von einer Checkfunktion die Textfarbe im Edit anpassen um dem Benutzer weitere Informationen zugeben ,
die VCL Variante funktionierte perfekt , unter FMX geht dieser analog entwickelte Code nicht ....
die Textfarbe bleibt immer bei default scharz.




Delphi-Quellcode:

procedure ColorEditbyData(anyEdit: TEdit; aValue: string);
var
  warnLevel: Integer;
begin

  CheckParameter(aValue, warnLevel);

  case warnLevel of

    0:
      anyEdit.TextSettings.Font.FontColor := TAlphaColorRec.Green;

    1:
      anyEdit.TextSettings.FontColor := TAlphaColorRec.Blue;

    2:
      anyEdit.TextSettings.FontColor := TAlphaColorRec.Red;

  else

  end;

  anyEdit.Text := aValue;

end;
  Mit Zitat antworten Zitat