Eigenschaften einer Zelle im DBGrid zur Laufzeit ändern.

[Sharky]

Zitat von Berserker:

Hallo.
Wenn ich in die Zelle gehe und der wert ist 0 ist der Bg ja weiss.
Leider ist dann auch die schriftfarbe weiss. Komisch.
Kann man auch die Schriftfarbe irgendwie noch definieren?

Hai,

hihi... das einfachste ist: lasse die Zeile in der auf STATUS = 0 geprüfrt wird enfach weg.

Aber Du kannst natürlich auch die Schriftfarbe ändern:

Delphi-Quellcode:

If (Column.FieldName = 'STATUS') then
  begin
   Case Column.Field.AsInteger of
     0:  begin
          DBGrid1.Canvas.Brush.Color := clWhite;
          DBGrid1.Canvas.Font.Color := clAqua;
         end;
     1:  DBGrid1.Canvas.Brush.Color := clRed;
     2:  DBGrid1.Canvas.Brush.Color := clBlue;
    end;
   end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);