1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  if q_zonen.FieldByName('zone').AsString <> s_lastRow then
  begin
    if col_currentCol = clWhite then
      col_CurrentCol := col_gridrow
    else
      col_currentcol := clWhite;

    s_lastRow := q_zonen.FieldByName('zone').AsString;
  end;

  (Sender As TDBGrid).Canvas.Brush.Color := col_currentCol;

  if not(gdselected in state) then
    (Sender As TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 1. Statement absetzen
 2. Oben anfangen -> Wert holen
 3. Farbe zuordnen
 4. Zuordnungstabelle schreiben (Wert|Farbe)
 5. Zeile färben
 6. Nächste Zeile -> Wert holen
 7. Array nach Wert durchsuchen
    schon vorhanden -> Farbe aus Tabelle holen und zu 5 gehen
    neuer Wert      -> zu 3 gehen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

// mein eigener Proc-Kopf
procedure Tf_firmendatei.gr_firmendaten1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

  // anstelle meiner KOnstanten (col_...) kann natürlich auch
 // einfach eine Farbe angegeben werden

  // Hier wird die Zeile gefärbt, wenn sie ungerade ist
  if ( ( ( Sender As TDBGrid ).DataSource.DataSet.RecNo mod 2 ) = 0 ) then
    ( Sender As TDBGrid ).Canvas.Brush.Color := u_Main.col_GridRow
  else
    (Sender As TDBGrid).Canvas.Brush.Color := clWhite;
 
 // Ist die Zelle ausgewählt, wird sie entsprechend auch anders gefärbt
  if (gdSelected in State) then
  begin
    with (Sender As TDBGrid).Canvas do
    begin
      Brush.Color := u_Main.col_GridSelectedRow;
      Font.Color := u_Main.col_GridSelectedFont;
    end; // with
  end; // begin

 // Und hier schließlich die Färbung abhängig vom Inhalt, die eigentliche Lösung fürs PRoblem
  if qFirmendt.FieldByName('barzahl').AsString = 'X' then
    ( Sender As TDBGrid ).Canvas.Brush.Color := col_GridWarnung
  else if qFirmendt.FieldByName('barzahl').AsString = 'Y' then
    ( Sender As TDBGrid ).Canvas.Brush.Color := col_GridWarnung
  else if qFirmendt.FieldByName('archiv').AsString = '1' then
    ( Sender As TDBGrid ).Canvas.Brush.Color := col_GridAngebot;

 // und das muss sowieso immer da sein
  (Sender As TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;