Ich habe ein wenig gelesen und das hier soll wohl helfen, da ich Fehler nicht habe kann ichs nicht testen.
Delphi-Quellcode:
procedure TForm1.PlanViewCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer;
State: TCustomDrawState; var DefaultDraw: Boolean);
var
r: TRect;
i: Integer;
begin
PlanView.Canvas.Font.Style := [fsItalic];
PlanView.Canvas.Font.Style := [];
//ab hier wie im Original weiter
Ps: Zweimal damit eine Veränderung eintritt.
Das ist die Lösung auch wenn Ihr dagegen seid. Ich habe vom TE das Projekt auf Delphi2009 Niveau gebracht, lustiger Weise mit dem Fehler vom Bild, mit himitsus Methode streikt
IDE oder ich wende es falsch an,
IDE sagt E2362 Auf protected-Symbol TControl.Font kann nicht zugegriffen werden
Im Anhang ist das Projekt für viele Delphis verfügbar mit gleicher Font in allen Feldern.