Скачать: CL | DM;

Отрисовка в TComboBox   Найти похожие ветки 

← →
ввв   (2008-02-19 20:39) [0]

Хочу сделать в CombBox: что бы при выпадающем списке (когда нажали на кнопку) каждый элемент этого списка был допустим в два раза больше по высоте, чем стандартный размер. В образовавшемся пространстве, хочу вписывать дополнительную информацию.

В обычном положении (не раскрытом) высота выбранного элемента должна оставаться традиционной.

Я не знаю с чего начать, а именно, как изменять выстоту Item при различных положениях (открытом списке или выбранном элементе).

Что подскажете?

---

← →
trubin ©   (2008-02-19 20:54) [1]

Style:= csOwnerDrawVariable +
ItemHeight +
OnMeasureItem +
OnDrawItem +
F1

---

← →
trubin ©   (2008-02-19 20:55) [2]

> ItemHeight +


при Style = csOwnerDrawVariable лишнее

---

← →
ввв   (2008-02-19 21:12) [3]

Про саму отрисовку в OnDrawItem - я понимаю. Но я не понимаю как изменить высоту пунктов только в выпадающем списке.

Может быть я не понимаю, но например: у меня у ComboBox установлен ItemHeight = 16, далее

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl;
 Index: Integer; var Height: Integer);
begin
 Height := 20;  
end;

это меняет высоту везде (включая сам контролл без выпадающего списка).

---

← →
trubin ©   (2008-02-19 21:31) [4]

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl;
Index: Integer; var Height: Integer);
begin
if Index > -1 then
  Height := 20;  
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c