dbGrid Zeile farbig markieren und fokusieren

[fanavity]

Niemand mehr ne Idee?

[DeddyH]

Du kannst im OnDrawCell selber zeichnen.

[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;

[Bummi]

Hat der letzte Link nicht geholfen?
Ich würde für das Malen gegf. vorher ein ein Array [x,y] anlegen welches mit den "Status/Farbinformationen" für bei Grids verwendet wird und in OnColumnDraw darauf zugreifen ....

[Jumpy]

Ich vermute die Hauptschwierigkeit des TE, wofür mir auch nix einfällt, sonst hätte ich schon was gesagt, liegt darin zu bestimmen, wann ein "Farbwechsel" erfolgen soll. Im verlinkten Beispiel war es ja "einfach" bei geraden und ungeraden Zeilen. Hier nun scheint die Anforderung zu sein immer dann zu wechseln, wenn der Datensatz eine andere ID hat, als der Datensatz davor.

Edit: Wo war der rote Kasten, der TE hat's ja inzwischen selber verdeutlicht.

[DeddyH]

ACol und ARow werden doch übergeben. Da zieht man also von ARow 1 ab, schaut, ob es die Zelle wirklich gibt und ermittelt, was in Cells[<betreffende Spalte>, ARow - 1] steht. Das vergleicht man mit dem eigenen Wert... fertig.

[Sir Rufo]

Zitat von DeddyH:

ACol und ARow werden doch übergeben. Da zieht man also von ARow 1 ab, schaut, ob es die Zelle wirklich gibt und ermittelt, was in Cells[<betreffende Spalte>, ARow - 1] steht. Das vergleicht man mit dem eigenen Wert... fertig.

Ich würde in der Zeichen-Routine mich auf das Zeichnen beschränken.
Das Ermitteln, wie die Zeile eingefärbt wird, würde ich in so einem Fall über einen separaten Aufruf machen, der mir dieses ermittelt.
Dann kann man den Code sogar weiterverwenden

Delphi-Quellcode:

procedure TForm2.GetSpecialState( Sender : TObject; ACol, ARow : integer; var SpecialState : Boolean );
begin
  // Jetzt in den Daten suchen und schauen, ob es sich hier um einen SpecialState handelt
end;

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  SpecialState : Boolean;
begin
  // Hier den SpecialState abfragen lassen
  SpecialState := False;
  GetSpecialState( Sender, ACol, ARow, SpecialState );
  // Jetzt kann man den weiter behandeln
   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;

[DeddyH]

Die Logik ist aber exakt dieselbe. Ich habe ja nicht gesagt, er soll das komplett im OnDrawCell machen, sondern nur aufzeigen, wie das überhaupt zu bewerkstelligen ist. Übrigens kann man auch eine Funktion schreiben, das spart den Boolean Var-Parameter

[fanavity]

Zitat von Sir Rufo:

Zitat von DeddyH:

ACol und ARow werden doch übergeben. Da zieht man also von ARow 1 ab, schaut, ob es die Zelle wirklich gibt und ermittelt, was in Cells[<betreffende Spalte>, ARow - 1] steht. Das vergleicht man mit dem eigenen Wert... fertig.

Ich würde in der Zeichen-Routine mich auf das Zeichnen beschränken.
Das Ermitteln, wie die Zeile eingefärbt wird, würde ich in so einem Fall über einen separaten Aufruf machen, der mir dieses ermittelt.
Dann kann man den Code sogar weiterverwenden

Delphi-Quellcode:

procedure TForm2.GetSpecialState( Sender : TObject; ACol, ARow : integer; var SpecialState : Boolean );
begin
  // Jetzt in den Daten suchen und schauen, ob es sich hier um einen SpecialState handelt
end;

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  SpecialState : Boolean;
begin
  // Hier den SpecialState abfragen lassen
  SpecialState := False;
  GetSpecialState( Sender, ACol, ARow, SpecialState );
  // Jetzt kann man den weiter behandeln
   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;

Sorry aber das verstehe ich nicht so ganz, kannst du mir das ganze vielleicht nochmal erklären?

[Jumpy]

Der Vorschlag von DeddyH meint ungefähr sowas:

Delphi-Quellcode:

var
farbwechsel:Boolean;
i:integer;
//[...]
begin
//[...]
farbwechsel := false;
for i:=0 to Grid.ColCount-1
  if Grid.Cells[i,ARow]<>Grid.Cells[i,ARow-1] then farbwechsel:=true;
if farbwechsel then
//[...]
end;

Sir Rufo schlägt nun glaub ich vor, die Ermittlung ob ein Farbwechsel vorliegt in eine externe Funktion auszulagern, so braucht man nur diese Funktion ändern, wenn sich mal die Kriterien für einen Farbwechsel ändern sollten.