Wie ziehe ich eine farbige Linie in einem DBGrid / DrawColumnsCell-Event?

[Delphi.Narium]

Bitte nur den Code aus DBGrid_TraDrawColumnCell. Der Rest interessiert (erstmal) nicht, damit ich verstehen kann, was Du genau in der Prozedur machst. Ggfls. als Kommentar reinschreiben: "DataCol ist immer irgendwas von 0 bis 12, erwarte dort aber 0 bis 28."
Dergleichen für alle für Dich offensichtlichen oder nicht nachvollziehbaren Unstimmigkeiten zwischen dem Gewünschten / Beabsichtigtem und dem von Delphi produzierten.

Wenn ich damit dann nicht weiterkomme, können wir sehen, ob noch mehr Code zum Nachlesen erforderlich sein sollte.