Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

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

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

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


 
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.


 
Leonid Troyanovsky ©   (2005-12-14 09:31) [3]


> 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.



Страницы: 1 вся ветка

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
14-1134737802
Dngt
2005-12-16 15:56
2006.01.15
Из двличной в десятичную


2-1135677732
=<StelS>=
2005-12-27 13:02
2006.01.15
БД


14-1135233175
begin...end
2005-12-22 09:32
2006.01.15
С Днём рождения! 22 декабря


2-1135581818
ADO
2005-12-26 10:23
2006.01.15
Пытаюсь подключится к MS SQL 2000 через ADO


14-1134720549
Суслик
2005-12-16 11:09
2006.01.15
Проблемы с материнской платой Asus P4P800 E Deluxe.