Unable to set the VAS (Paul Groot VAS with changes) needle direction when the scale is vertical

[avraham niv]

Hi all,
First I would really like to thank Paul for the script for the VAS it's 
great!
In my experiment I need to use the VAS both horizontally and vertically, 
and i need the needle starting position to be at the left and right edges 
(and not like Paul's VAS in the center).
For the horizontal VAS I managed to do it by adding another argument to 
VAS_DragScale so it looks like this:

Function VAS_DragScale(c As Context, strAttributeName as string, Optional 
duration as Variant, *Optional strSliderDirection as Variant*) as Integer

and than inside the function i added the following:

'set mouse cursor at left right or center position
    If IsMissing(strSliderDirection) then
        Mouse.SetCursorPos 
0.5*(VAS_SliderDummy.Left+VAS_SliderDummy.Right), VAS_SliderDummy.Bottom
    else
        if strSliderDirection = "left" then
            Mouse.SetCursorPos VAS_SliderDummy.Left, VAS_SliderDummy.Bottom
        else
            if strSliderDirection = "right" then
                Mouse.SetCursorPos VAS_SliderDummy.Right, 
VAS_SliderDummy.Bottom
            end if
        end if
    End If

and in the trials I use an inline to tell the needle where to start.
That went fine but when I try to implement it in the vertical VAS it always 
starts from the bottom of the slider dummy text object,
I guess it is got to do with the fact that to create the vertical vas I 
just changed the slide text object (VAS_SliderDummy) dimensions, in the 
script basically changes every X to Y and vice versa, and every 
Object.Right to Object.Bottom and every Object.Left to Object.Top .
So for example my changes to the script above looks like this:

'set mouse cursor at up down or center position
    If IsMissing(strSliderDirection1) then
        Mouse.SetCursorPos 
0.5*(VAS_SliderDummy.Bottom+VAS_SliderDummy.Top), VAS_SliderDummy.Left
    else
        if strSliderDirection1 = "top" then
            Mouse.SetCursorPos VAS_SliderDummy.Top, VAS_SliderDummy.Left
        else
            if strSliderDirection1 = "bottom" then
                Mouse.SetCursorPos VAS_SliderDummy.Bottom, 
VAS_SliderDummy.Left
            end if
        end if
    End If

As I mentioned it doesn't work.
If anyone got a clue I will be greatfull!
I attached the whole experiment if someone needs it and I would like to 
thank Paul again for the original script.

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+unsubscribe at googlegroups.com.
To post to this group, send email to e-prime at googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/e-prime/1af07bf2-5f71-4f20-baa4-3c0acb57543d%40googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20130618/08846372/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Exp2 - TEST 18.6.rar
Type: application/rar
Size: 5775446 bytes
Desc: not available
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20130618/08846372/attachment.rar>