procedure THIDriveBox.Init;
begin
_debug;
  Control := NewCombobox(FParent, [coReadOnly, coOwnerDrawFixed]);
  if ManFlags and $04 > 0 then
  begin
    Control.OnMeasureItem:= OnMeasureItem;
    Control.OnDrawItem := NewOnDrawItem; 
  end
  else
    Control.OnDrawItem := OldOnDrawItem;

  DriveBoxs.Add(Control);
_debug;