In Kombobox zeichnen

[TheAn00bis]

Hi,

wie kann ich auf eine Kombobox zeichnen?

Ich weiß, dass die Kombobox den Style CSOwnerDraw (Fixed, oder Variable?) haben muss und, dass der Code für das Zeichnen in DrawItem kommt.

Wenn ich

Delphi-Quellcode:

 
procedure TStyle.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin 
Combobox1.Canvas.Rectangle(0,0,10,10);
end;

verwende passiert leider rein garnichts. Was mache ich falsch, bzw. wie mache ich es richtig?