powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Непонятки с DoScroll
3 сообщений из 3, страница 1 из 1
Непонятки с DoScroll
    #34525159
Pr0teus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я уже задавал похожий вопрос (http://www.sql.ru/forum/actualthread.aspx?tid=423219), но все же. Спасибо 2 alex11100 за предыдущий ответ, а точнее пример. В том примере два грида, один прилинкован к другому, и по событию Scrolled одного грида, это событие также происходит во втором. Но вот возникла проблема см. код ниже.

Код: plaintext
1.
2.
3.
4.
5.
6.
*scroll to R
 i= 0 
do while this.oSourceGrid.LeftColumn > This.LeftColumn  
   This.DoScroll( 5 )
enddo      


При выполнении DoScroll(5) в гриде не обновляется LeftColumn. В общем засада, никак не могу прикрутить второй грид так, как мне нужно.
...
Рейтинг: 0 / 0
Непонятки с DoScroll
    #34525567
Pr0teus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не стал перестраивать интерфейс под себя, оставил как есть. В принципе устраивает. Так-что проблема DoScroll закинута в темный ящик.
...
Рейтинг: 0 / 0
Непонятки с DoScroll
    #34526172
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я делаю немного не так:
Это код в событии Scrolled "основного" GRID
THIS.oAgrGrid - ссылка "подчиненного" GRID, который должне отслеживать Scroll "основного"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LPARAMETERS m.nDirection
LOCAL m.lnSteps, m.i

WITH THIS
	IF (m.nDirection >  3 )
		IF (TYPE("THIS.oAgrGrid") == "O") AND .oAgrGrid.Visible
			m.lnSteps = ABS(.LeftColumn - .oAgrGrid.LeftColumn)
			FOR m.i =  1  TO m.lnSteps
				.oAgrGrid.DoScroll(m.nDirection)
			ENDFOR
			.oAgrGrid.Refresh()
		ENDIF
		.Refresh()
	ENDIF
ENDWITH
С уважением, Алексей
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Непонятки с DoScroll
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]