Обновил класс, подправил бегание ползунка,
добавил отрицательный диапазон значений,
подчистил, добавил словесные эквиваленты
и 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-2022 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна