Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Slider Control
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01275347
Message ID:
01275638
Views:
29
>>>>Great.
>>>>
>>>>Now there are some other things to add:
>>>>
>>>>1 - InteractiveChange event
>>>> When the user moves the mouse when left clicking the mouse
>>>>2 - Orientation (0 = Horizontal / 1 = Vertical)
>>>>3 - Tick Frequency
>>>>4 - Tick Style (0 - BottomRight 1 - TopLeft 2 - Both 3 - No Ticks)
>>>>5 - Line below the button
>>>>6 - SmallChange / Big Change
>>>>
>>>>
>>>
>>>Yes, I already have some of this in there. I just couldn't get the movement right. As soon as its
>>>done, I'll send you a copy.
>
>
>Ok, I'd love some help. Here's the project
>http://www.geocities.com/kevin.marois/slider/xslider.zip
>
>Run the form Demo to see where I'm at.
>
>I was about to code the _SetValue and _PositionThumb methods.
>
>So far, _SetValue is called from the MouseDown of the control
>_PositionThumb is called from iValue_Assign.
>
>Those 2 should be fairly simple. If you could work on those and and send it
>back, I'll pick it up from there in the morning
>
>I welcome and and all suggestions.
>
>Thanks


Hi Kevin,

Thanks for the files.
I started coding it, but got so excited, and could not stop :-)

I went a lot further. Please download my version:

http://weblogs.foxite.com/files/cesarchalom/slidebarx/SlideBarX.zip


Here are the main changes:

- Allow the mouse to slide in horizontal and vertical
- Added the Value property
- Added the "Scrolled" event, to make it compatible with the ActiveX from CTL32 (This will eliminate "ValueChanged")
- Recreated the Track images, making it much taller / wider, in order to keep the appearance when the control is big.
- Value assignments. Now you can assign a value directly to the control, and the slidebar will automatically update its position.


- Some other various minor tweaks.


There are still some things missing:

1 - to code the horizontal lines
2 - To enable "Small Change / BigChange"


Please run the sample again, it was completely updated :-)

Hope you like

Cesar
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform