DB Grid- Zeilen in Abhängigkeit des Inhalts einfärben

[khh]

hallo zusammen,
ich habe ein DB-Grid welches zur Laufzeit erstellt und gefüllt wird.
per :
TColumn(self.Columns[0]).Field:= kundenQuery.FieldByName('kundennummer');
self.columns[0].Title.caption := 'Kundennr.';

etc.

etc.

werden die Ergebnisse der Query dem Grid zugewiesen.

Wie kann ich nun inhaltsabhängig einzelne Zeilen einfärben?

danke für eure Hilfe


Gruss KH

[mkinzler]

Stichwort OwnerDraw

[khh]

Zitat von mkinzler:

Stichwort OwnerDraw

ich danke dir
das ging ja rasend schnell


Gruss KH

[khh]

klappt doch nicht ganz so wie ich dachte

was mach ich falsch?

Delphi-Quellcode:

  TColumn(self.Columns[5]).Field:= kundenQuery.FieldByName('mahnstufe);
     self.columns[5].Title.caption  := 'Mahnstufe';
     if TColumn(self.Columns[5]).Field.Value  > 0 then
          self.Color := clred else self.Color := clBtnFace;

hier komme ich nie in die if-abfrage
warum nicht ?


Danke gruss KH

[mkinzler]

Was meinst du mit nicht reinkommen?
BTW Ich nehme an der Tippfehler besteht nur im Forum.

[khh]

Zitat von mkinzler:

Was meinst du mit nicht reinkommen?
BTW Ich nehme an der Tippfehler besteht nur im Forum.

du meinst den Tippfehler mit dem fehlenden Schlusszeichen , ja das ist im Quelltext richtig.

Mit reinkommen, mein ich einfach, dass die if abfrage nie zutrifft, obwohl in der DB entsprechende Werte stehen.
Folgedessen werden die entsprechenden DS auch nicht rot markiert

was mache ich falsch?


Gruss KH

[Chemiker]

Hallo khh,

hast Du DefaultDrawing auf FALSE gesetzt?

Vielleicht solltest Du zuerst normal mit dem DBGrid arbeiten, wenn dann alles zur Zufriedenheit läuft kannst Du es zur Laufzeit erzeugen.

Bis bald Chemiker

[khh]

Zitat von Chemiker:

Hallo khh,

hast Du DefaultDrawing auf FALSE gesetzt?

Vielleicht solltest Du zuerst normal mit dem DBGrid arbeiten, wenn dann alles zur Zufriedenheit läuft kannst Du es zur Laufzeit erzeugen.

Bis bald Chemiker

danke euch,
werd ich so mal ausprobieren.

Gruss KH