Combobox mit Icons Darstellung nicht korrekt

[bitsetter]

Hi,

das kommt weil der ItemIndex beim Aufklappen der Combobox -1 und nicht 0 oder 1 ist.
Eventuell könntest du es so abändern:

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  Combobox1.Canvas.Brush.Color:= clWhite;
  Combobox1.Canvas.FillRect(rect);
    if Index(*ComboBox1.ItemIndex *)= 0 then
    begin
      ImageList1.Draw(ComboBox1.Canvas, rect.Left+2, rect.Top+3,1);
    end;
    if Index(*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;

Dann allerdings ohne ItemIndex.