Hallo,
klar geht das ganz einfach. Du setzt als SubItem gegebenenfalls ein kleines "A". Das ist ein Haken beim Font "Webdings". Jetzt musst Du nur noch das Item selbst zeichnen. Dazu erstellst Du ein Ereignis "OnCustomDrawSubItem", und wenn das entsprechende Item vorbeikommt, stellst Du einfach den Font um.
Das sollte es gewesen sein.
Beispiel:
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)
Sender.Canvas.Font.Name := 'Webdings';
end;
Gruß
xaromz