Listbox mit Farbflächendarstellung

[Aviator]

Könntest du mal ein kleines Beispielprojekt anhängen wo man den Fehler nachvollziehen kann?

EDIT: Ich verstehe was du meinst, aber ich kann an dem SourceCode so nichts falsches erkennen. Deshalb wäre ein Beispielprojekt hilfreich.

[to-wer]

Hallo Aviator,
habe das Projekt auf die wesentlichen Funktionen zusammengeschrumpft.
Du kannst die Projektdatei öffnen und starten.
Im Formular Grafik findet man rechts unten die Combobox Polyneon.

In der Unit ist die onDraw Prozedur die vorletzte.
Gestern hatte ich bei einem ähnlichen Listboxproblem noch etwas mit DropKind oder so ähnlich gelesen. Das gibt es bei der Combobox wohl nicht?!
VG

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

[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