Text im DBgrid einfärben

[eddy]

Hallo barnti,

ich hab' das mal ausprobiert, weil Du doch in Deiner Problemstellung geschrieben hast, daß Du nur eine einzelne Zelle färben willst. Bei mir wird aber die ganze Zeile verändert.

War das so von Dir geplant oder fehlt die Lösung?

mfg
eddy

[barnti]

Hi eddy,

das sollte so Funktionieren. Du musst nur die entsprechende Bedingung setzen. Ich verwende den Code genau so.

Die Bedingung bezieht sich auf den Text des zu färbenden Feldes:

Delphi-Quellcode:

...
if Column.FieldName='FeldName' then
...

[eddy]

Hallo barnti,

habe Deinen Vorschlag probiert, hat mir aber keine Färbung der Zellen gebracht (nach dem Warum habe ich nicht weiter gesucht.

Damit hat's in beiden Varianten funktioniert:

Code:

//  if (DataCol = 1) or (DataCol = 4) or (DataCol = 5)   // wenn man die Spalte kennt
  s := lower(Grid.Columns.Items[DataCol].FieldName);     // wenn man den Feldnamen verwendet
  if (s = 'kurs') or (s = 'diff') or (s = 'diffp') 
    then Grid.DefaultDrawColumnCell(Rect, 0, Column, State);

mfg
eddy