Можно ли узнать количество видимых строк в ListView\ListBox?

[TwiX]

Когда строк много, появляется скрол-бар... Можно ли в таком случае узнать, сколько строк видно на экране?

[Ntlegend]

У них нету свойства которые хранят это.. Но можна пощитать самому.. Берем List** узнаем его высоту и размер шрифта, из размера шрифта узнаем размер строки, делим высоту листа на высоту строки, округляем в меньшую сторону и радуемся:-)

кстать, если это число больше чем всего строк в листе - то видимы все строки..

[TwiX]

У меня была такая же идея, но как узнать высоту листа?)

[rangerx]

procedure TForm1.Button1Click(Sender: TObject);
var
    item_height : integer;
    result         : integer;
begin
    item_height := SendMessage(ListBox1.Handle, LB_GETITEMHEIGHT, 0, 0);
    result := ListBox1.Height div item_height;
    if result > ListBox1.Items.Count then Form1.Caption := IntToStr(ListBox1.Items.Count)
    else Form1.Caption := IntToStr(result);
end;

[TwiX]

Спасибо =)
Хоть и ничего нового =)
А высоту я искал через getWindowPos

хотя джае ошибка есть =)
LB_GETITEMHEIGHT - высота одного итема

[inndim]

Сообщение от TwiX

хотя джае ошибка есть =)
LB_GETITEMHEIGHT - высота одного итема

Ну, и где ошибка-то, всё правильно берём высоту одного итема и делим высоту listbox'a и соответственно получаем колличество видимых итемов, так что никаких ошибок.

[Stilet]

всё правильно берём высоту одного итема и делим высоту listbox'a

Это если стандартная отрисовка, а если итемы отрисовываются в стиле Variable, то действовать по другому нужно.

[inndim]

Stilet
Согласен, просто мой комменатрий был относительно кода предложенного rangerx.