Einzelnen Beitrag anzeigen

Benutzerbild von Devil1925
Devil1925

Registriert seit: 20. Nov 2015
Ort: Saerbeck
236 Beiträge
 
Delphi 10.3 Rio
 
#1

[FMX] Stringgrid / Grid Zelle Färben

  Alt 25. Okt 2016, 09:00
Hallo,
Ich weiss, dass es hier dieses Thema schon zu hunderten gibt, aber entweder war ich zu blöd das richtige zu finden oder das ist wirklich alles nur für VCL, was mir nicht weiter hilft.

Ich muss in einer Spalte die Zellen je nach Inhalt einfärben (so a la Ampel in grün, gelb oder rot).
Soweit so gut. Um mit der Zelle zu Interagieren gehe ich über das onDrawCell - Event. An den Inhalt komme ich ja nun über Value ran. Kein Problem. Jetzt habe ich nur das Problem, das ich die Zelle irgendwie einfärben muss. Da habe ich schon eine Ganze menge Probiert, es hat bisher aber noch nichts ansatzweise funktioniert!

Folgendes Habe ich probiert:

Delphi-Quellcode:
procedure TfrmProjekt.GRD_ProjektDrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const [Ref] Bounds: TRectF;
  const Row: Integer; const [Ref] Value: TValue; const State: TGridDrawStates);
begin
        Canvas.Fill.Color := TAlphaColorRec.Yellow;
End;
Delphi-Quellcode:
procedure TfrmProjekt.GRD_ProjektDrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const [Ref] Bounds: TRectF;
  const Row: Integer; const [Ref] Value: TValue; const State: TGridDrawStates);
begin
        GRD_Projekt.Canvas.Fill.Color := TAlphaColorRec.Yellow;
        GRD_Projekt.Canvas.FillRect(Bounds);
End;
Ich habe auch einige Lösungen gefunden, welche auf die Eigenschaft "CellControlByRow" zugreifen, welche es aber in FMX scheinbar nicht gibt!

Hat hier jemand eine Idee?
Philipp
Höllische Grüße
Devil
Meistens sitzt das Problem vor dem Bildschirm! - Leider bin das oftmals ich.
  Mit Zitat antworten Zitat