Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jun 2005
Odd(item.index) bedeutet bei dir "Grau"
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jun 2005
Du könntest die Farben Rot und Grün etwas abdunkeln, wenn sie auf einer grauen Zeile liegen.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jun 2005
Einfache Erklärung: das ist nicht mein Code und auch nicht der von treffnix. Du fragst nur SubItem ab und steuerst damit die Farbunterlegung für alle SubItems.
Wenn du nur die Spalte mit 'ja' und 'nein' einfärben willst, dann probiere es so:
with Sender.Canvas.Brush do
if Item.SubItems = 'ja' then
if SubItem = 6
then Color := clgreen
else Color := clBlack
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jun 2005
Wenn der Code in OnCustomDrawSubItem steht, dann wird nur die Zelle gefärbt - bei mir.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jun 2005
Kleiner Verbesserungsvorschlag:
with Sender.Canvas.Brush do
if Item.SubItems = 'ja'
then Color := clred
else Color := clBlack;
Später müsste man dann noch State auswerten, damit das ganze schöner aussieht.