Не срабатывает событие OnMeasureItem у ListBox

← →
NAlexey © (2004-07-01 11:37) [0]

Пытаюсь в ListBox выводить строки разной высоты. На событие OnMeasureItem вешаю например:

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

Выставляю Style у ListBox = lbOwnerDrawVariable. Так вот событие OnMeasureItem вообще не возникает. Работаю в D6. Может кто сталкивался?

← →
MBo © (2004-07-01 11:56) [1]

Добавляй строки динамически - для записанных в dfm это событие не вызывается.

← →
NAlexey © (2004-07-01 12:36) [2]

>MBo © (01.07.04 11:56) [1]
Хм... Интересно. Сработало, но только один раз при создании строки. Если я ничего не путаю то сказано, что будет происходить перед каждым DrawItem? Если например я хочу перерасчитывать высоту строки в зависимости от размеров контрола, такой способ не подходит. Придется видимо самому отсылать сообщения изменения высоты Item-а.

← →
Семен Сорокин © (2004-07-01 12:48) [3]

LB_SETITEMHEIGHT должен помочь

Не срабатывает событие OnMeasureItem у ListBox Найти похожие ветки