dbGrid Zeile farbig markieren und fokusieren

[fanavity]

Das tue ich ja bereits, nur weiß ich leider nicht wie ich abfragen soll ob x nacheinander folgende Zeilen in Spalte 2 den gleichen Inhalt haben?

Wenn 2 oder 3 oder ... Zeilen nacheinandern in Spalte 2 den gleichen Inhalt haben, sollen sie die gleiche Farbe haben. Danach dann wieder eine andere und so weiter

Jaein @ Bummi... Hat schon geholfen.. kann es jetzt schon Zeichnen.. Aber leider ist die Farbe immer abwechselnd.. Und ich will ja zusammenhänge bilden und darstellen


Edit:

So sieht es bisher aus:

Delphi-Quellcode:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   With (Sender as TStringGrid) do
  begin
    if (gdSelected in State) then
      Canvas.Brush.Color:= clYellow
    else if (gdFixed in State) then
      Canvas.Brush.Color:= clBtnHighlight
    else
      if (ARow Mod 2 = 0) then // Hier muss ich ja meine Abfrage einbinden, damit er schaut ob 2                                 aufeinanderfolgenden Zeilen den gleichen inhalt haben.. Oder habe                              ich das ganze falsch verstanden?
      Begin
        canvas.Brush.Color:= clWhite;
        Canvas.Font.Color:= clBlack;
      end
      else
        Canvas.Brush.Color:= clBtnFace;
        Canvas.Font.Color:= clBlack;
        Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
  end;
end;