In Kombobox zeichnen

[shmia]

Dein Zeichenbereich ist auf das übergebene Rechteck beschränkt; ausserhalb darfst/kannst du nicht zeichnen.

Delphi-Quellcode:

procedure TStyle.ComboBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
begin 
  InflateRect(Rect, -1, -1);  // Rechteck schrumpfen
  control.Canvas.Pen.color := clRed;
  control.Canvas.Rectangle(Rect); 
end;