Mac Professional Member
Joined: 08 Jul 2000 Posts: 1585 Location: Oklahoma USA
|
Posted: Tue Sep 17, 2002 12:21 pm Post subject: Slide... |
|
|
Not sure how useful this is...
Code: |
OPTION SCALE, 96
TITLE By Mac
DIALOG CREATE,"Slide Example",-1,0,207,240
DIALOG ADD,STYLE,Blue,Arial,12,,LTBLUE,WHITE
DIALOG ADD,TEXT,Slide,0,0,100,20,"0",Blue,CLICK
DIALOG ADD,TEXT,Info,3,105,100,60,"Click on the bar to grab it. Move off the ends to release it."
DIALOG ADD,PROGRESS,ProgBar,220,0,207,20
DIALOG SHOW
:EVLOOP
WAIT EVENT
goto @event()
:SlideCLICK
REPEAT
%x = @mousepos(X)
%y = @mousepos(Y)
%t = @winpos("Slide Example", T)
%l = @winpos("Slide Example", L)
%p = @diff(%y, @sum(%t, 30))
if @greater(%p, 200)
%p = 200
end
if @greater(0, %p)
%p = 0
end
DIALOG SETPOS, Slide, %p
DIALOG SET, Slide, %p
DIALOG SET, ProgBar, @div(%p, 2)
UNTIL @greater(%x, @sum(%l, 100))@greater(%l, %x)
goto EVLOOP
:CLOSE
EXIT
|
Cheers, Mac _________________ VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
|
|