Danke marabu,
habe in der Zwischenzeit etwas herum probiert und folgende Lösung bekommen:
Delphi-Quellcode:
procedure TMain.LVwInfosCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
If (SubItem = 2) and (TVwList.Selected.AbsoluteIndex = 8) then // wenn 3. Spalte und bestimter Index
begin
Sender.Canvas.Font.Name := Trim(Item.Caption);
end;
end;
Das funktioniert so. Scheinbar sind in Item.Caption einige Leerzeichen die ich erst entfernen muss.
Danke trotzdem.
Gruß
Mazel