Listbox mit Farbflächendarstellung

[Aviator]

Zitat von Delphi.Narium:

Wenn man diese Zeile ändert

Brush.Color := StringToColor(Polyneon[ComboBox1.ItemIndex]);

in

Brush.Color := StringToColor(Polyneon[Index]);

werden die Farben beim Aufklappen (wie gestern schon vermutet) korrekt angezeigt.

Es soll ja schließlich die Farbe zum entsprechenden Eintrag aus Polyneon und nicht immer die Farbe des zufällig gerade gewählten Eintrages genommen werden.

Sowas übersieht man dann auch leicht in dem geposteten SourceCode auf Seite 1