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

Вниз

Здравствуйте, подскажите плз, как программно установить ListView   Найти похожие ветки 

 
Layner ©   (2005-05-31 11:51) [0]

На опред строку, например в ListView(vsReport) 1000 строк, надо перейти к 500, и видеть ее в ListView, как это можно реализовать?
Есть что то - ListView1.ItemIndex:=500;, событие какое то происходит, но скролы у ListView стоят на месте.


 
begin...end ©   (2005-05-31 11:56) [1]

TListView.TopItem


 
begin...end ©   (2005-05-31 12:01) [2]

+ TListView.Scroll.


 
Layner ©   (2005-05-31 13:03) [3]

begin...end
Спасибо, сделал как ниже, т.е. на опр. строку никак не сместить, а только координатами задавать смещение?
ListView.TopItem.Top:=100;
ListView.Scroll(1,100);


 
begin...end ©   (2005-05-31 15:56) [4]

> Layner ©   (31.05.05 13:03) [3]

var
 N: Integer; // Индекс строки, до которой надо прокрутить
begin
 with ListView do
   Scroll(0, высота_одного_элемента * (N - TopItem.Index))
end.

--------------------
Sorry, I"m drunk now


 
Layner ©   (2005-05-31 16:49) [5]

ПОнял, благодарю!!


 
Юрий Зотов ©   (2005-06-01 01:25) [6]

ListView.Items[500].MakeVisible(False)

И все.


 
Layner ©   (2005-06-01 09:47) [7]

Юрий Зотов
Спасибо, ещё лучше! :)


 
Kerk ©   (2005-06-01 09:56) [8]

Юрий Зотов ©   (01.06.05 1:25) [6]
ListView.Items[500].MakeVisible(False)


Хм.. а я с LVM_ENSUREVISIBLE делал... RTFMить надо почаще :))))



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

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

Наверх




Память: 0.48 MB
Время: 0.04 c
14-1116831320
ANB
2005-05-23 10:55
2005.06.14
А не маюсь ли я дурью ? (Автоматизированное тестирование)


3-1115369002
Shark
2005-05-06 12:43
2005.06.14
Записи помеченные на удаление.


1-1117479425
Karlson
2005-05-30 22:57
2005.06.14
Признак конца строки в текстовом файле


14-1116931370
VX
2005-05-24 14:42
2005.06.14
Где узнать Все свойства Всех компонент Delphi?


1-1116999287
liver
2005-05-25 09:34
2005.06.14
Сортированные списки.