| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему неправильно работает OnMeasureItem? [D7, WinXP]
Aleksandr. © (2005-07-12 16:16:00)В потомке от TCustomListBox Style устанавливается в lbOwnerDrawVariable, и назначаются обработчики на OnDrawItem, OnMeasureItem. Условие в OnMeasureItem простое:
if Index=Count-1 then
Height:=15
else
Height:=65
Затем в rt начинаю по одной добавлять строчки - и наблюдается странная картина первая добавленная (и единственная), калькулируется с высотой 15, но когда добавляются еще строчки, то их высота, как и высота первой, тоже остается 15! В какой момент и как правильно вызвать пересчет?
Aleksandr. (2005-07-12 16:58:00) [1]Нет, я именно хочу получить высоту = 15 для последнего элемента, а для всех остальных - 65. Я понял, что для каждой добавляемой выполняется условие Index=Count-1, но я не могу понять, как заставить его пересчитать высоту для элементов, которые перестали удовлетворять условию...
Юрий Зотов (2005-07-12 16:27:00) [2]Затем в rt начинаю по одной добавлять строчки...
И каждая добавленная строка становится последней. Естественно, для каждой из них выполняется условие Index=Count-1, а в результате у всех строк получаем одинаковую высоту 15.
Не очень понятно, что Вы хотите получить, но похоже, что-то вроде этого:
if Index = 0 then
Height := 15
else
Height := 65;
| |
