Zeilen eines TDBGrid "Blockweise" färben

[Uwe Raabe]

Ganz simpler Ansatz:

Beim Einlesen der Daten erstellst du eine Liste der VG_IDs (z.B: TList<Integer> ). Dazu musst du eventuell einmal durch die ganze Query durch, da das Grid eventuell nur einen Teil der Daten abruft, die in seinen internen Puffer passen.

Im DrawCell-Event hast du ja für den aktuellen Datensatz die VG_ID in dem entsprechenden Feld. Nun suchst du den Index dieser VG_ID in der zuvor erstellten Liste. Je nachdem ob der Index gerade oder ungerade ist (kann man leicht mit der Funktion Odd() prüfen) malst du die Zeile in der einen oder anderen Farbe.