ComboBox.Height Как изменить?

[ArtGrek]

Кто знает как поменять высоту у ComboBox?

[Kotofff]

SendMessage(ComboBox1.Handle, CB_SETITEMHEIGHT, -1, 40);

40 - это высота в пикселях.
Да и не забудьте Style выставить в csOwnerDrawFixed

Правда вид "не очень" получается.

[Аватар]

А просто нельзя: ComboBox.Height:=200 ?

[ArtGrek]

спасибо.

Правда вид "не очень" получается.

я картинки загружать буду

[Stilet]

я картинки загружать буду

а это совсем другая история. Тут нужно выставить

 ComboBox1.Style:=csOwnerDrawFixed;

И в его OnDrawItem отрисовывать картинки ну и текст если нужно

[ArtGrek]

нарисовал

procedure TForm1.EffectsDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   ImageList1.Draw(TComboBox(Control).Canvas,rect.left,rect.top,index);
end;

но картинка не занимает весь ComboBox

 Effects[S]:=TComboBox.Create(self);
  with Effects[S] do
  begin
    Parent:=ScrollBox1;
    Style:=csOwnerDrawFixed;
    Top:=60;
    Left:=130*S+60*(S-1)-ScrollBox1.HorzScrollBar.Position;
    Width:=70;
    SendMessage(Handle, CB_SETITEMHEIGHT, -1, 40);
    for j:= 0 to 9 do Items.Add(IntToStr(j));
    ItemIndex:=0;
    OnDrawItem:=EffectsDrawItem;
  end;

[Stilet]

Весь???
У-у-у...
РекомендуYOU заглянуть вот сюда:http://www.programmersforum.ru/showthread.php?t=107981
Тут давались примеры рисования картинки на весь контрол.
Смысл - разбивка картинки на элементы, и отрисова этих элементов в каждом Итеме - в совокупности дает картинку.
Там даже эффект сеточки я на всякий случай оставил - прикольно смотрится зато

[ArtGrek]

моя цель создать 10 Items в ComboBox, загрузить 10 картинок 40х50 (в пикселях),
с возможностью вибрать любую, и что б они не были по кусочкам,
ето возможно реализовать, или может мне другую компоненту использовать

[_SERGEYX_]

моя цель создать 10 Items в ComboBox, загрузить 10 картинок 40х50 (в пикселях)

Чего только люди не придумают. Zip-архивы в запихивают exe-шник , картинки в items...
Используй какой нибудь ThumbnailList.

[ArtGrek]

готово

  
procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Style:=csOwnerDrawFixed;
  for j:= 0 to 9 do
  begin
    SendMessage(ComboBox1.Handle, CB_SETITEMHEIGHT, j-1, 50);
    ComboBox1.Items.Add(IntToStr(j));
  end;
end;

procedure TForm1.EffectsDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   TComboBox(Control).Canvas.StretchDraw(Rect,BitMap[Index]);
end;

всем спасибо за помощ