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

Вниз

Как вернуть Скролл на прежнее место.   Найти похожие ветки 

 
Дмитрий С ©   (2010-04-14 09:41) [0]

Есть TListView. Делаю beginupdate, clear, вставка строк, endupdate, при этом скролл сдивгается в самый верх, а как вернуть туда, где он был?

Делал Get/SetScrollPos - не помогает, скролл остается там, где был.


 
oldman ©   (2010-04-14 09:45) [1]

Может при cleаr все и рушится?


 
Дмитрий С ©   (2010-04-14 09:46) [2]


> oldman ©   (14.04.10 09:45) [1]
>
> Может при cleаr все и рушится?

Понятно, что рушиться, а как вернуть?


 
Leonid Troyanovsky ©   (2010-04-14 09:46) [3]


> Дмитрий С ©   (14.04.10 09:41)  

TopItem?

--
Regards, LVT.


 
Дмитрий С ©   (2010-04-14 10:10) [4]


> TopItem?

к сожалению ReadOnly.


 
Leonid Troyanovsky ©   (2010-04-14 10:17) [5]


> Дмитрий С ©   (14.04.10 10:10) [4]

LVM_SCROL ?

--
Regards, LVT.


 
Дмитрий С ©   (2010-04-14 18:55) [6]


> Leonid Troyanovsky ©   (14.04.10 10:17) [5]

Пока сделал так:
I := TopItem.Index
...
postmessage(List.Handle, LVM_SCROL, 0, I*16);

Работает почти так, как хочется. Знать бы еще что вместо 16и написать.

А есть более универсальный способ для окон со встроенными скроллами (TListView, TListBox, TMemo, ...)?


 
HF-Trade ©   (2010-04-15 05:00) [7]

Selected
ItemIndex


 
Leonid Troyanovsky ©   (2010-04-15 08:32) [8]


> Дмитрий С ©   (14.04.10 18:55) [6]

> postmessage(List.Handle, LVM_SCROL, 0, I*16);

SendMessage.

> Знать бы еще что вместо 16и написать.

The height of a line.

Хотя, наверное, проще как-то так:
I := TopItem.Index;
..
Items[I].MakeVisible(False);

> А есть более универсальный способ для окон

Нет, AFAIK.

--
Regards, LVT.



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

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

Наверх




Память: 0.48 MB
Время: 0.128 c
15-1269273636
Правильный$Вася
2010-03-22 19:00
2010.08.27
многосессионный диск - копирование образа


2-1268719836
zergost
2010-03-16 09:10
2010.08.27
Очистка параметров ADOQuery


15-1272627412
12
2010-04-30 15:36
2010.08.27
EDBEngineError. Cannot load driver. Что можно сделать?


11-1219344430
Dy1
2008-08-21 22:47
2010.08.27
помогите плз с (KOL)ZIP


15-1266769968
TUser
2010-02-21 19:32
2010.08.27
Суворов о деле Пеньковского