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;