Zeilen in DBGrid farbig darstellen

[Michael Booms]

Ich möchte in einer Datenbanktabelle DBGrid einzelnen Zeilen oder sogar einem einzelnen Feldinhalt eine
spezielle Farbe zuweisen um diesen Wert optisch herforzuheben.
Kann mir jemand sagen wie das geht.
Ich bin für jede Hilfe dankbar.

mfg Michael

[Stefan Schreier]

Hallo Michael,<br><br>
ein TDBGrid besitzt die beiden Ereignisse OnDrawDataCell und<br> OnDrawColumnCell. Ein kleines Besipiel findest Du in der Online-<br>
hilfe.<br><br>
MfG<br><br>
Stefan Schreie

[Peter Hennek]

Hallo,
procedure TGeburtstagForm.DBGrid1DrawColumnCell(Sender: TObject)

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if gdSelected in State then begin

//Eingabefocus Orange

//DBGrid1.Canvas.Brush.Color := $0041CFFE;

//Eingabefocus Rot

DBGrid1.Canvas.Brush.Color := $00FFF;

DBGrid1.Canvas.Font.Color := clBlack;

end {need that highlight for 'focus'}

else if (DataModule2.DataSource1.DataSet.RecNo mod 2) > 0 then

begin

DBGrid1.Canvas.Font.Color := clBlack;

DBGrid1.Canvas.Brush.Color := clSilver;

end;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

Steht auch so irgendwo hier im Forum. Gruss p

[Michael Booms]

Vielen Dank für, ich werde es gleich ausprobieren.
mfg Michae