FMX Stringgrid Background-Farbe & Schrift-Farbe ändern

[mmw]

hallo,
evtl. so

DefaultDrawing auf false setzen.
im OnDrawColumnCell Ereignis der Komponente den Code Einfügen.

Delphi-Quellcode:

var
  flags: TFillTextFlags;
  text: string;

begin
 if StringGrid1.Cells[Column.Index, Row] <> '' then
  begin

    text := Value.AsString;

   if (Column.Index = 3) and (StrToInt(text) < 0) then
    begin
      Canvas.Fill.Color := TAlphaColorRec.red;
      Canvas.Fill.Kind := FMX.Graphics.TBrushKind.solid;
      Canvas.FillRect(Bounds, 0, 0, [], 1, Canvas.Fill);

      Canvas.Fill.Color := TAlphaColorRec.Black;
      Canvas.FillText(Bounds, text, True, 1, flags, TTextAlign.Leading, TTextAlign.Center);
    end
     else
    begin
      Canvas.Fill.Color := TAlphaColorRec.blue;
      Canvas.Fill.Kind := FMX.Graphics.TBrushKind.solid;

      Canvas.FillText(Bounds, text, True, 1, flags, TTextAlign.Leading, TTextAlign.Center);
    end;
  end;
end;

Nur als Beispiel und ohne Fehlerbehandlung.

Gruß