Problem beim zeichnen in die ComboBox

[hugo1990]

Ich habe mir eine ComboBox für Farben gebastelt, wo ein kleines Viereck die Farbe anzeigt und dahinter der Text steht. Das funtioniert ja ganz gut, nur ist bei dem aktiven Eintrag das Viereckt kein Quadrat, sondern ein Rechteckt (Einfach das angehängte Bild angucken). Wie kann ich das ändern, oder diesen Eintrag extra Zeichnen lassen?

[mkinzler]

Ohne zu Wissen, was du genau machst, ist es schwer dir zu helfen.

[hugo1990]

Delphi-Quellcode:

procedure TForm1.FarbenBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with FarbenBox1 do
  begin
  Canvas.Fillrect(rect);
  Canvas.Brush.Color:=Farben[Index].Color;
  Canvas.Brush.Style:=bsSolid;
  Canvas.Pen.Color:=clBlack;
  Canvas.Rectangle(Rect.Left+1,Rect.Top+1,ItemHeight-1,Rect.Bottom-1);
  Canvas.Brush.Style:=bsClear;
  Canvas.TextOut(Rect.Left+Rect.Bottom-Rect.Top+2,Rect.Top,Items[Index]);
  end;
end;

Also so zeichne ich in die Combobox, nur leider kann ich da nicht denn aktiven Eintrag extra zeichnen lassen.