Ничего не понимаю уже мозги кипят как только я не менял X и Y Необходимо чтобы это всё работало в горизонтальном положении.
КАКОГО ЧЁРТА НЕ ЗАГРУЖАЮТСЯ ФАЙЛЫ!!!
Код объекта "MoveTrackSlider" (Script):
If (MouseUp) Then
Return()
End
Show("track$")
MState=MouseLButton()
If (MState=0) Then
MouseUp=TRUE
Hide("status$")
Return()
End
x=MouseX()
y=MouseY()
y2 = (MouseY()-handleoff)
If (y>posmin) Then
y2 = posmin
End
If (y2<posmax) Then
y2 = posmax
End
MoveObject("track$","xpos,y2")
MoveObject("status$","xpos+35,y2")
Refresh("")
percent= INT((posmin-y2)/((h-sldrH)/59))
VolumeUp("percent")
percent$= CHAR(percent)
percent$= percent$+'%'
LoadText("status$","percent$")
ScriptTimer("TimerA=MoveTrackSlider","50")
Код ползунка:
MouseUp=FALSE
xpos=ObjectX(track$)
ypos=ObjectY(track$)
sldrH=ObjectHeight(track$)
handleoff = ObjectHeight(track$)/2
w=ObjectWidth(back$)
h=ObjectHeight(back$)
l=ObjectX(back$)
t=ObjectY(back$)
posmin=t + h - sldrH
posmax=t
Show("status$")
ScriptTimer("TimerA=MoveTrackSlider","50")