ListView OnCustomDrawSubItem

[Namenloser]

Btw kannst du deinen Code deutlich vereinfachen:
Statt

Delphi-Quellcode:

case SubItem of
  1: Brush.Color:=RGB(88,188,88);
  2: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  3: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  4: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  5: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  6: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  7: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  8: Brush.Color:=RGB(200,20,20);
end;

kannst du schreiben

Delphi-Quellcode:

case SubItem of
  1:    Brush.Color:=RGB(88,188,88); 
  2..7: if (item.Index mod 2 = 1) then brush.Color:=RGB(222,222,222) else brush.Color:=RGB(255,255,255);
  8:    Brush.Color:=RGB(200,20,20);
  { würde ich normal anders einrücken, aber die Forensoftware verbockt es }
end;