Отрисовка в 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;

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

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

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