Combobox mit Icons Darstellung nicht korrekt

[Chemiker]

Hallo mkinzler,

Zitat von mkinzler:

Warum programmierst du ein vorhandenes Feature selber nach?

Welche Feature von der Combobox meinst Du??



Hallo bitsetter,

das ist die Lösung gewesen danke!
Durch diese Änderung verhält sich nun die ComboBox wie sie soll.

Delphi-Quellcode:

procedure TFormMSEinrichten.ComboBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  Combobox1.Canvas.Brush.Color:= clWhite;
  Combobox1.Canvas.FillRect(rect);
  if Index = 0 then
    ImageList1.Draw(ComboBox1.Canvas, rect.Left+2, rect.Top+3,1);
  if Index = 1 then
    ImageList1.Draw(ComboBox1.Canvas, rect.Left+2, rect.Top+3,0);
  ComboBox1.Canvas.Font.Color:= clblack;
  ComboBox1.Canvas.TextOut(32,rect.Top+4,Combobox1.Items[index]);
end;

Bis bald Chemiker