Wie bekomme ich eine Zahl in einer Listview Farbig

[Natcree]

Habe eine Listview welche als Kassenbuch dienen soll.

Nun möchte ich das die Zahlen in der Spalte Ausgaben eine rote Farbe haben.

Wie Bekomme ich das am besten hin???



Item.SubItems.Add(TIrgendwas(FObjects[i]).ZweiteZahlAsString + ' €'); //Das ist die Zeile für die Ausgabe in der Listview.

Delphi-Quellcode:

function TIrgendwas.GetZweiteZahlAsString: string; [COLOR="YellowGreen"]//Das ist die Vorformatierung [/COLOR]
begin
  Result := Format('- %.2n', [FZweiteZahl]);
end;

[Volker Z.]

Hallo,

schau Dir in der OH mal OnCustomDrawSubItem oder OnAdvancedCustomDrawSubItem an.

Eine einfache Anwendung könnte so aussehen

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  ListView1.Canvas.Font.Color := GetSysColor (COLOR_WINDOWTEXT);
  if SubItem <> 2 then
    Exit;

  ListView1.Canvas.Font.Color := clRed
end;

Gruß