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;