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

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

Исправил (косячек был в передаче параметра 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

и еще в этом методе изменено (забыл указать)
старое:
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