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