| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать сколько строк помещается в ListBox без прокрутки?
ListBox © (2006-02-08 18:25:00)Как узнать сколько строк помещается в ListBox без появления движка прокрутки?
Сделал, но работает нелинейно, как ещё это можно сделать?
procedure TForm1.FormResize(Sender: TObject);
VAR i,z,m:word;
begin
ListBox1.Font.Height:=-11;
ListBox1.Clear;
z:=trunc(INT( ListBox1.Height / (-ListBox1.Font.Height)));
z:=trunc(z*0.85) ;
// IF (z mod 2)=0 THEN z:=z-1 ELSE z:=z+1;
Caption:=('ListBox1.Height '+ IntToStr(ListBox1.Height)+' z='+ IntToStr(z)+' Font '+IntToStr(ListBox1.Font.Height));
FOR i:=1 TO z DO ListBox1.Items.Add(IntToStr(i));
end;
ListBox (2006-02-08 18:40:00) [1]Спасибо!
Gero (2006-02-08 18:28:00) [2]ListBox.ClientHeight div ListBox.ItemHeight
| |
