Zeilen eines TDBGrid "Blockweise" färben

[RSF]

OK, hast du mein Beispiel aus #4 probiert

Delphi-Quellcode:

procedure TRechnungen.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if (gdSelected in State) or (gdFocused in State) then
   DBGrid1.Canvas.Font.Color := clBlue;
  
   if DataModule2.Rechnung.FieldByName('Bezahlt').AsBoolean=True then
   Begin
   DBGrid1.Canvas.Brush.Color := clGray;
   end;
   if DataModule2.Rechnung.FieldByName('Bezahlt').AsBoolean=False then
   Begin
   DBGrid1.Canvas.Brush.Color := clMoneyGreen;
   end;
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

So färbe ich Zeilen. Die Sortierung (Gruppen) macht ja eigentlich ein SQL-Script.
Das geht nicht nur einmal am Anfang auch beim durchklicken.