Listbox mit Farbflächendarstellung

[to-wer]

Du bist genial... es geht.
Jetzt verstehe ich langsam diese Prozedur, wo "Index" ja auch in der Variablenübergabe auftaucht...

Hier noch einmal die ganze Prozedur, falls sie jemand anderem noch helfen kann.

Delphi-Quellcode:

procedure TForm2.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TComboBox).Canvas do begin // in ComboBox zeichnen
    Brush.Color := StringToColor(Stringarray[Index]);  //im Stringarray befinden sich die HEX-Farbwerte
    Brush.Style := bsSolid;
    FillRect(Rect);
    Brush.Style := bsClear;
    TextOut(Rect.Left, Rect.Top, (Control as TComboBox).Items[Index]);
  end;
end;

[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