Почему неправильно работает OnMeasureItem?

← →
Aleksandr. (2005-07-12 16:16) [0]

В потомке от TCustomListBox Style устанавливается в lbOwnerDrawVariable, и назначаются обработчики на OnDrawItem, OnMeasureItem. Условие в OnMeasureItem простое:
if Index=Count-1 then Height:=15 else Height:=65
Затем в rt начинаю по одной добавлять строчки - и наблюдается странная картина первая добавленная (и единственная), калькулируется с высотой 15, но когда добавляются еще строчки, то их высота, как и высота первой, тоже остается 15! В какой момент и как правильно вызвать пересчет?

← →
Юрий Зотов © (2005-07-12 16:27) [1]

Затем в rt начинаю по одной добавлять строчки...

И каждая добавленная строка становится последней. Естественно, для каждой из них выполняется условие Index=Count-1, а в результате у всех строк получаем одинаковую высоту 15.

Не очень понятно, что Вы хотите получить, но похоже, что-то вроде этого:

if Index = 0 then
Height := 15
else
Height := 65;

← →
Aleksandr. (2005-07-12 16:58) [2]

Нет, я именно хочу получить высоту = 15 для последнего элемента, а для всех остальных - 65. Я понял, что для каждой добавляемой выполняется условие Index=Count-1, но я не могу понять, как заставить его пересчитать высоту для элементов, которые перестали удовлетворять условию...

Почему неправильно работает OnMeasureItem? Найти похожие ветки