Verschiedene Schriftarten in einem Listview

[JonnyGuitar]

Danke für eure Antworten, ich habe es jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.lvItemsCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 2 then
  begin
    Sender.Canvas.Font.Name := 'Wingdings';
  end;
end;

Gruss Jonny