So etwas hast Du schon versucht?
Delphi-Quellcode:
procedure TFormBlubb.ListViewBlaCustomDrawItem(Sender: TCustomListView; Item: TListItem;
State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Checked then
Sender.Canvas.Font.Color := clGreen
else
Sender.Canvas.Font.Color := clRed;
end;
Item.Checked
habe ich gar nicht bedacht
, da habe ich mal wieder viel komplizierter gedacht, als notwendig...
Also funktioniert hat es, danke vielmals!
Schön, aber wenn die Anwendung nicht nur für dich selbst ist solltest du bedenken, das eine solch Farbgebung eine ergonomische Katastrofe ist, besonders für Leute mit Farbsehschwäche...
Es ist genauso katastrophal wenn man Katastrofe schreibt anstelle von Katastrophe..
Lass ihn doch machen wie er will.