Gridzeilen nach Wert abwechseln gruppenweise einfärben

[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