Как в ListBox определить количество строк видимых на экране?

← →
Mishenka (2005-12-13 20:01) [0]

← →
begin...end © (2005-12-13 20:18) [1]

Думаю, что можно определить только приблизительно, "в лоб":

Count := Min(Round(ListBox.ClientHeight / ListBox.ItemHeight), ListBox.Count)

← →
Джо © (2005-12-14 01:21) [2]

Если "строго" подходить, то нужно еще учитывать случай окончания списка, то есть, определять по остаток по TopIndex и концу списка и эту разницу учитывать в значении, определяемом begin...end.

> Mishenka (13.12.05 20:01)
> Как в ListBox определить количество строк видимых на экране?

Индекс верхней видимой строки:

t := ListBox.Perform(LB_GETTOPINDEX, 0, 0);

Индекс последней видимой строки:
with ListBox do b := LoWord(Perform(LB_ITEMFROMPOINT, 0, MakeLParam(0, ClientHeight)));
--
Regards, LVT.

Как в ListBox определить количество строк видимых на экране? Найти похожие ветки