一个combobox的简单问题

Question

//ComboBox1.Style := csOwnerDrawFixedprocedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TBitmap;
  Offset: Integer;
begin
  Bitmap := TBitmap.Create;
  with TComboBox(Control).Canvas do try
    FillRect(Rect);
    Offset := 2;
    ImageList1.GetBitmap(Index, Bitmap);
    BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
      Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);
      Offset := Bitmap.width + 6;
    TextOut(Rect.Left + Offset, Rect.Top, TComboBox(Control).Items[Index]);
  finally
    Bitmap.Free;
  end;
end;