[expmrs]

Уважаемые эксперты, у компонента ComboBox свойства:

Код:

Style = csOwnerDrawVariable; 
DropDownCount = 8; 

высота строк задается в обработчике ComboBox1MeasureItem:

Код:

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl;
  Index: Integer; var Height: Integer);
begin
  case Index of
    0: Height := 16 ;
    1: Height := 40 ;
    2: Height := 16 ;
  end
end;

Проблема в том, что при выпадении списка, его высота намного меньше этих трех строк (хотя DropDownCount = 8). Может возможно задать высоту выпадающего списка программным путем ?