procedure THIComboBox.SetIconsManager;
begin
  if value <> nil then 
  begin
    fIconsManager := value;
    if Assigned(_prop_BoxDrawManager) then
      ItemHeight := max((value.imgsz + _prop_BoxDrawManager.AddSize * 2), Control.Canvas.TextExtent('W').cy);
  end;
  SetStrings(_prop_Strings);
  Control.Text := _prop_Text;  
end;