Скачать: CL | DM;

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

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c