Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating custom spinner control buttons
Message
 
 
To
29/04/2008 10:07:21
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01313683
Message ID:
01313797
Views:
9
>>Brilliant idea! Thank you very much.
>>By the way, why do you add 4 to the Sysmetric(5) for the width?
>
>To account for the spinner borders, I got the 4 by trial and error and doing PrtScreen and pasting into a graphics program and zooming in and checking the results.
>
>If you don't want the borders, do the following:
>
>Add a container to the form, add a spinner inside the container, then:
>
>
>*!* Container Init
>This.Width = Sysmetric(5) - 2
>This.Height = This.spinner1.Height - 6
>
>*!* Spinner Init
>This.Width = Sysmetric(5)
>This.Height = Sysmetric(6) * 2
>This.Top = -3
>This.Left = 1
>
>
>And voila! an up/down control with no borders, and sized just like the scrollbars arrows.
>
>Carlos

Carlos,

Thank you very much! This should get me what I need.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Previous
Reply
Map
View

Click here to load this message in the networking platform