Schriftfarbenwechsel von TListItem, bei klick auf Checkbox des Items in TListView

[Kevinpptx]

Hallo, ich bin heute auf folgendes Problem gestoßen:

Ich habe eine TListView im ViewStyle vsReport mit Checkboxes auf True und möchte, dass wenn die Checkbox aktiviert ist, sich die Schriftfarbe der Zeile, also des TListItem auf Grün ändert. Wenn die Checkbox dann wieder ent-checked wird, soll sich die Schriftfarbe wieder auf Rot ändern.

Ich dachte dabei an das CustomDrawItem -Event in Kombination mit dem ItemChecked -Event, aber ich konnte noch an keine vernünftige Lösung denken und auch im Internet nichts dazu finden.

Hat jemand eine Idee?

Danke im Voraus

[DeddyH]

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;

[Kevinpptx]

Zitat von DeddyH:

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!

[peterbelow]

Zitat von Kevinpptx:

Zitat von DeddyH:

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...

[Kevinpptx]

Zitat von peterbelow:

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...

Danke für den Hinweis, die Anwendung ist aber nur für mich.

[venice2]

Zitat von peterbelow:

Zitat von Kevinpptx:

Zitat von DeddyH:

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.