Как узнать сколько строк помещается в ListBox без прокрутки?

← →
ListBox (2006-02-08 18:25) [0]

Как узнать сколько строк помещается в 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;

← →
Gero © (2006-02-08 18:28) [1]

ListBox.ClientHeight div ListBox.ItemHeight

← →
ListBox (2006-02-08 18:40) [2]

Спасибо!

Как узнать сколько строк помещается в ListBox без прокрутки? Найти похожие ветки