Wie bekomme ich eine Zahl in einer Listview Farbig

[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ß