FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9176
Вход
TrackBar - Исправленый

Визуальное изменение значения при помощи ползунка


 
Прислал: Владимир Кныр   Категория: Интерфейс


Обновил класс, подправил бегание ползунка,
добавил отрицательный диапазон значений,
подчистил, добавил словесные эквиваленты
и ControlSource.

Пример и текстовичек в архиве. PS подправил получение значения из RecordSource (на входе). Заменил присвоение эквивалентов: Вместо прямого присвоения значений текстовых эквивалентов на метод Set_Items(cList,sDelimiter)
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (2.2) Вложение [17.12]kb
Дополнения пользователей
TrackBar - Исправленый
[+][?]
BOBAN
02.08.05 20:08:43

 Логичнее было бы сделать 2 бегунка . Для формирования различных периодов. 
И текущие значения бегунков как-то привязать к изображению
urfin
24.01.06 09:39:45

Попробуй :
1) нажать левую кнопку мыши на верхнем бегунке
2) не отпуская опустить мышиный курсор на уровень нижнего бегунка
3) поводить курсором влево-вправо
Результат :
Зеленые полоски не соответствуют положениям бегунков.
Vladimir_Knyr
24.01.06 11:58:28

Исправил (косячек был в передаче параметра oSource)
старый метод:
procedure sulky_image.set_position
lparameters oSource,nXCoord
local XL,XR
	with this
		m.XL = m.nXCoord - .parent.Left - .parent.dx
		m.XR = .parent.Width - oSource.width
		.set_left_sulky(this,iif(m.XL<0,0,iif(m.XL>m.XR,m.XR,m.XL)))
	endwith
return
исправлен на:
procedure sulky_image.set_position
lparameters oSource,nXCoord
local XL,XR
if oSource = this
	with this
		m.XL = m.nXCoord - .parent.Left - .parent.dx
		m.XR = .parent.Width - oSource.width
		.set_left_sulky(oSource,iif(m.XL<0,0,iif(m.XL>m.XR,m.XR,m.XL)))
	endwith
endif
return
Vladimir_Knyr
24.01.06 14:08:49

и еще в этом методе изменено (забыл указать)
старое:
procedure sulky_image.DragOver
LPARAMETERS oSource, nXCoord, nYCoord
	this.set_position(This,m.nXCoord)
                        ----
endproc

новое:
procedure sulky_image.DragOver
LPARAMETERS oSource, nXCoord, nYCoord
	this.set_position(oSource,m.nXCoord)
                        -------
endproc
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика