Unterschiedliche Selektionsfarben bei TListBox und TListView

[Shark99]

Angehängt ist ein Screenshot aus Delphi Xe5.

Auf der linken Seite ist eine TListbox, rechts eine TListView. Wieso sind die Selektionsfarben unterschiedlich? Die ListView scheint die standard Selektionsfarbe von Windows zu nehmen. Die Listbox nimmt für die Selektion clHighlight aus dem Delphi Farbraum. Ich hätte gerne, dass die Listbox auch die standard Selektionsfarbe von Windows nimmt.

Wo bekomme ich den Farbwert her?

[himitsu]

Weil das aktive Theme (Skin/Design/...) der ListView eigene Farben definiert hat.

Wer hält sich denn heutzutage noch an Standards/Vorgaben.

[Dalai]

Zitat von Shark99:

Die Listbox nimmt für die Selektion clHighlight aus dem Delphi Farbraum.

Nicht wirklich. clHighlight ist die im Windows definierte Farbe für Selektionen/Auswahlen, die z.B. in Listboxen, Editboxen (markierter Text), Comboboxen usw. verwendet wird.

Grüße
Dalai

[himitsu]

clHighlight ist eine Konstante, die für jene Farbe steht.

Mit ColorToRGB kann man sich darüber die jeweilige System-Farbe holen, bzw. beim Zeichnen werden solche Konstanten automatisch übersetzt.
clHighlight = TColor($FF000000 + COLOR_HIGHLIGHT) // COLOR_HIGHLIGHT = 13
siehe GetSysColor

[Shark99]

Zitat von himitsu:

Weil das aktive Theme (Skin/Design/...) der ListView eigene Farben definiert hat.

Wer hält sich denn heutzutage noch an Standards/Vorgaben.

Verstehe ich nicht. Hab Theming nicht aktiv. Es gibt auch kein Skin property bei der Listbox.

Zitat von Dalai:

Zitat von Shark99:

Die Listbox nimmt für die Selektion clHighlight aus dem Delphi Farbraum.

Nicht wirklich. clHighlight ist die im Windows definierte Farbe für Selektionen/Auswahlen, die z.B. in Listboxen, Editboxen (markierter Text), Comboboxen usw. verwendet wird.

Leider ist es nicht der Fall. clHighlight ist bei mir RGB(0, 120, 215). Das ist die gleiche Farbe die als Selektionshintergrund in der Listbox verwendet wird. Die Win32 Komponenten wie die Listview verwenden aber für die Selektion RGB(204, 232, 255). Ich will aber keine festen Farbwerte verwenden. Hätte viel lieber die Windows-Farbe für Selektionshintergrund irgendwo ausgelesen.

Edit: GetSysColor(COLOR_HIGHLIGHT) ergibt auch RGB(0, 120, 215), also nicht die Farbe die TListview, TTreeview etc für Selectionshintergrund verwenden.

[himitsu]

Doch, das hast du.

[Dalai]

Zitat von Shark99:

Leider ist es nicht der Fall.

Doch, es ist genau, wie ich beschrieben habe. ListViews verwenden aber eine eigene, vom Windows-Theme definierte Hintergrundfarbe für die Selektion, wie himitsu schon richtig anmerkte.

Grüße
Dalai

[Redeemer]

Windows hat für Listview-Auswahlen einen Skin, für Listbox-Auswahlen nicht. Das ist überall so und keine Delphi-bezogene Frage.

[Shark99]

Wie kann ich diese Farbe auslesen? Muss doch irgendwie wie GetsysColor gehen.

[uligerhardt]

Zitat von Shark99:

Wie kann ich diese Farbe auslesen? Muss doch irgendwie wie GetsysColor gehen.

Vermutlich ist das eher als Bitmap hinterlegt. Da kommst du vermutlich mit Windows' Theme API ran; vielleicht auch über den StyleManager der VCL (oder wie auch immer das Ding mittlerweile heißt).