Combobox mit Icons Darstellung nicht korrekt

**Chemiker**

Hallo,

ich habe ein Problem mit einer Combobox in der mit Hilfe einer ImageList für jeden Eintrag ein anderes Icon angezeigt werden soll. Das funktioniert auch soweit, aber mit einem Schönheitsfehler das immer das zuletzt benutzte Icon in allen Einträgen angezeigt wird. Erst wenn man mit dem Mauszeiger über die Einträge der aufgeklappten Combobox geht, wird das richtige Icon angezeigt.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormMSEinrichten.ComboBox1DrawItem(Control: TWinControl;

  Index: Integer; Rect: TRect; State: TOwnerDrawState);

begin

  Combobox1.Canvas.Brush.Color:= clWhite;

  Combobox1.Canvas.FillRect(rect);

  if ComboBox1.ItemIndex = 0 then

    begin

      ImageList1.Draw(ComboBox1.Canvas, rect.Left+2, rect.Top+3,1);

    end;

    if ComboBox1.ItemIndex = 1 then

    begin

      ImageList1.Draw(ComboBox1.Canvas, rect.Left+2, rect.Top+3,0);

    end;

  ComboBox1.Canvas.Font.Color:= clblack;

  ComboBox1.Canvas.TextOut(32,rect.Top+4,Combobox1.Items[index]);

end;

Vielleicht kann einer von euch mir einen Tipp geben.

Bis bald Chemiker

Combobox mit Icons Darstellung nicht korrekt

Combobox mit Icons Darstellung nicht korrekt

Forumregeln