AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Schriftfarbenwechsel von TListItem, bei klick auf Checkbox des Items in TListView

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

Ein Thema von Kevinpptx · begonnen am 17. Okt 2022 · letzter Beitrag vom 17. Okt 2022
Antwort Antwort
Kevinpptx

Registriert seit: 10. Okt 2022
Ort: Sachsen
7 Beiträge
 
Delphi 10.4 Sydney
 
#1

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

  Alt 17. Okt 2022, 12:25
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
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.473 Beiträge
 
Delphi 11 Alexandria
 
#2

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

  Alt 17. Okt 2022, 12:57
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Kevinpptx

Registriert seit: 10. Okt 2022
Ort: Sachsen
7 Beiträge
 
Delphi 10.4 Sydney
 
#3

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

  Alt 17. Okt 2022, 13:10
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!
  Mit Zitat antworten Zitat
peterbelow

Registriert seit: 12. Jan 2019
Ort: Hessen
532 Beiträge
 
Delphi 11 Alexandria
 
#4

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

  Alt 17. Okt 2022, 14:12
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...
Peter Below
  Mit Zitat antworten Zitat
Kevinpptx

Registriert seit: 10. Okt 2022
Ort: Sachsen
7 Beiträge
 
Delphi 10.4 Sydney
 
#5

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

  Alt 17. Okt 2022, 16:25
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.
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#6

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

  Alt 17. Okt 2022, 18:00
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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf