Problem mit Listview mit 3 Spalten und Bildern

[xaromz]

Hallo,

Zitat von SeeAAL:

nun möchte ich aber gerne das der hacken grün und das X rot wird. habe zwar rum probiert , aber ebtweder bekomme ich alles in einer farbe oder sonst ein durcheinander. das ist doch bestimmt genauso einfach.

Wie wär's hiermit:

Delphi-Quellcode:

procedure TForm1.ObjectsListCustomDrawSubItem(Sender: TCustomListView; 
  Item: TListItem; SubItem: Integer; State: TCustomDrawState; 
  var DefaultDraw: Boolean); 
begin 
  if SubItem = 4 then // Drittes SubItem (erstes SubItem = 2)
  begin
    if Item.SubItems[SubItem - 2] = 'a' then // Haken
    begin
      Sender.Canvas.Font.Name := 'Webdings'; // Schriftart
      Sender.Canvas.Font.Color := clGreen;  // Grün
    end else
      if Item.SubItems[SubItem - 2] = 'X' then // Rot
        Sender.Canvas.Font.Color := clRed;
  end;
end;

Gruß
xaromz
// Edit: Fehler ausgebessert