Ich hab jetzt noch einige Tests gemacht, aber ich kam immer noch nicht zum gewünschten Effekt. Sobald einmal TextOut aufgerufen wurde kann ich die Schriftfarbe nicht mehr ändern.
Das ist jetzt mein Code:
Delphi-Quellcode:
procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aIconRect, aTextRect:TRect;
ItemCaption: string;
ItemType: string;
begin
DefaultDraw := false;
Sender.Canvas.Font.Color := clGreen;
Sender.Canvas.TextOut(50,50,'Bla');
Sender.Canvas.Font.Color := clBlack;
Sender.Canvas.TextOut(50,70,'Bla');
end;
Allerdings werden beide Grün dargestellt.
EDIT:
Hab gerade rausgefunden, das es so bei OnCustomDrawItem ist, pack ich den gleichen Code ind OnCustomDraw funktioniert es.