Gridzeilen nach Wert abwechseln gruppenweise einfärben

[haalmu]

Hallo und guten Tag, ich habe folgendes Problem:
Ich möchte dataGrid-Zeilen nach dem Wert der ersten Spalte einfärben. Wobei gleiche Werte auch gleiche
Farben haben sollen.Und das ganze abwechselnd in zBSp. clAqua und clInfoBK.
Ich verwende die TopGrid-Componente.
Hier eine schematische Darstellung:

2 -> clAqua
4 -> clInfoBK
4 -> clInfoBk
5 -> clAqua
7 -> clInfoBK
7 -> clInfoBK

Ich hoffe jemand kann mir helfen. Wie auch immer, ich wünsche allen ein frohes Weihnachtsfest.

Gruß haalmu

[mkinzler]

Stichwort OwnerDraw

[haalmu]

Was ist denn das? <OwnerDraw>

[DeddyH]

Das heißt, dass Du das Zeichnen im Event OnDrawCell selbst übernimmst. Das TopGrid ist mir allerdings unbekannt, Du musst halt mal schauen, ob es ein solches Ereignis bereitstellt.

[haalmu]

Das Event OnDrawCell gibst hier nicht. Das ist ja das Schlimme. Habe so viele Lösungen im Forum gesehen, die sich aber auf das "normale" DBGrid beziehen. Naja, jeder macht es sich so schwer wie er kann.
Trotzdem, Danke

[DeddyH]

Ist das eine kommerzielle Komponente oder kann man sich den Source irgendwo ansehen?

[haalmu]

Die ist Commerziell. Das gibts so'n Event das nennt sich "GetDrawInfo"

[DeddyH]

Das klingt doch schon einmal vielversprechend. Da würde ich dazu mal einen Blick in die Hilfe werfen (so vorhanden).

[haalmu]

Na das hab ich getan, alles auf englisch. Und keine Beispiele.
ich stell mal ein Codeschnippzel ein

[

Delphi-Quellcode:

procedure TfrmMain.drgAlleFilmeGetDrawInfo(Sender: TObject; DataCol: Integer;
                                           DataRow: Variant; var DrawInfo: TtsDrawInfo);

begin
  if (drgAlleFilme.CurrentDataRow = DataRow) then begin
    DrawInfo.Color              := clInactiveCaption;
    DrawInfo.Font.Color         := clBlue;
    drgAlleFilme.FocusColor     := clInactiveCaption;
    drgAlleFilme.FocusFontColor := clBlue;
  end else begin
    intLastZeile := DM.qryAlleFilmeintReihenFolge.Value;

    if (drgAlleFilme.GridStatus = grNormal) then begin
      if intLastZeile <> intNextZeile then blnFarbeWechseln := not blnFarbeWechseln;
      if blnFarbeWechseln = false then begin
        DrawInfo.Color          := clAqua;
        drgAlleFilme.FocusColor := clAqua;
      end else begin
        DrawInfo.Color          := clInfoBK;
        drgAlleFilme.FocusColor := clInfoBK;
      end; // if
    end; // if
    intNextZeile := DM.qryAlleFilmeintReihenFolge.Value;
  end; // if]
end; // TfrmMain.drgAlleFilmeGetDrawInfo

procedure TfrmMain.drgAlleFilmeRowChanged(Sender: TObject; OldRow, NewRow: Variant);
var
  iRow,
  iCol  :integer;
begin
  iRow     := drgAlleFilme.DisplayRownr[OldRow];
  for iCol := 1 to drgAlleFilme.Cols do drgAlleFilme.CellInvalidate(iCol, iRow);
  iRow     := drgAlleFilme.DisplayRownr[NewRow];
  for iCol := 1 to drgAlleFilme.Cols do drgAlleFilme.CellInvalidate(iCol, iRow);
end; // TfrmMain.drgAlleFilmeRowChanged]

]





Das ganze funktioniert auch, aber nur solange ich nicht auf das Grid klicke, dann kommt alles durcheinander.
Kann mir jemand sagen, was ich ändern muß?
Gruß haalmu