[FMX] TStringgrid einzelne Zellen färben

[wurzelzwerg]

Moin,
weiss jemand wie man bei TStringGrid einzelne Zellen abhängig vom Inhalt farbig darstellen kann.
OnDrawCell wie bei VCL gibts ja hier nicht.

[Delphi-Laie]

Zitat:

Zitat von wurzelzwerg (Beitrag 1145004)

Moin,
weiss jemand wie man bei TStringGrid einzelne Zellen abhängig vom Inhalt farbig darstellen kann.
OnDrawCell wie bei VCL gibts ja hier nicht.

Den Text oder den Hintergrund oder beides?

Außerdem ist Dein Thema falsch: Es geht hier um die Farben eines Stringgrids und nicht die einer Stringliste. Stringlisten sind keine visuellen Elemene und mithin auch nicht einfärbbar.

Edit: Die Textfärbung löste ich folgendermaßen: Ein zweidimensionales Array (hier: "Farbe") speichert die Farben, sozusagen im Hintergrund. In der OnDrawCell-Prozedur des Stringgrids (keine Ahnung, wann die immer aufgerufen wird, aber diese Ereignisbehandlungsprozedur gibt es durchaus) steht:

Delphi-Quellcode:

StringGrid1.canvas.Font.Color:=Farbe[ACol,ARow];
StringGrid1.Canvas.TextRect(Rect,Rect.Left{+2},Rect.Top{+2},StringGrid1.cells[ACol,ARow])

, und das funktioniert auch. In meinen Augen ist die Stringgridfärbung eine mittlere Katastrophe. Dermaßen umständlich. Warum man nicht einzelne Zellen direkt färben kann (über deren Eigenschaft), ist mir bis heute schleierhaft.

[wurzelzwerg]

Ja, natürlich Stringgrid. sorry.

Es gibt im FMX Stringgrid kein OnDrawCell!

[Delphi-Laie]

Zitat:

Zitat von wurzelzwerg (Beitrag 1145024)

Es gibt im FMX Stringgrid kein OnDrawCell!

Das erschwert die Angelegenheit m.E. deutlich.

Ich weiß nicht, was für eine Komponente "FMX Stringgrid" ist. Wenn sie vom Standardstringgrid abgeleitet ist, dann müßte doch dieses Ereignis vererbt worden sein?!

[DeddyH]

FMX ist FireMonkey, das hat mit der VCL nichts zu tun.

[mkinzler]

Nein, da FMX für Firemonkey steht. Und dieses basiert nicht auf Windowscontrols sondern auf Vektorgrafik.
Versuch es mal beim Paint-Eent der entsprechenden T(String)Column.
Der bessere Weg scheint aber der über Styles zu sein.

https://forums.embarcadero.com/threa...1733&tstart=45

http://www.raize.com/Articles/FmxStr...dCellFonts.asp

[wurzelzwerg]

Zitat:

Zitat von mkinzler (Beitrag 1145040)

http://www.raize.com/Articles/FmxStr...dCellFonts.asp

Danke, da steht wies geht.
Nur dass das dort über ApplyStyleLookup gemacht wird versteh ich nicht.

Delphi-Quellcode:

TTextCell(StringGrid1.Columns[0].CellControlByRow(0)).FontFill.Color:= claBlue;

wo immer man das braucht reicht aus.