Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Listview удаление НЕвыделенных строк


Аликъ ©   (2007-02-18 18:56:00) 

Подскажите плз как удалить все невыделенные строки в listview .
спс


Аликъ   (2007-02-18 20:07:00) [1]

СПС
Вот еще вопрос про Listview

при прокрутке он сильно мерцает  
пробовал doublebuffered  ,  как мерцал так и мерцает.
Можно ли от избавится от мерцания или ограничить скорость прокручивания


Dmitrij_K   (2007-02-18 19:42:00) [2]

точно


TRUNK   (2007-02-18 19:34:00) [3]


> Dmitrij_K   (18.02.07 19:01) [1]

При таком ипользовании BeginUpdate/EndUpdate толку от них не будет.
Нужно так:

LV1.Items.BeginUpdate;
for i := (LV1.Items.Count-1) downto 0 do
 if not LV1.Items[i].Selected then
   LV1.Items.Delete(i);
LV1.Items.EndUpdate;


Dmitrij_K   (2007-02-18 19:01:00) [4]

примерно так
for i:=(LV1.Items.Count-1) downto 0 do
begin
 LV1.Items.BeginUpdate;
 if not LV1.Items[i].Selected then
   LV1.Items.Delete(i);
 LV1.Items.EndUpdate;
end


Наверх

Титульная страница Поиск, карта сайта Написать письмо