Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scrolling Panels
Message
From
18/05/1998 14:42:28
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, United States
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00095399
Message ID:
00100171
Views:
61
>>Could I see how you implemented horizontal and vertical scroll bars?
>>
>>thanks,
>>
>>ray humphrys
>
>Try this generic class code:
>
>DEFINE CLASS MSFORMS2_SCROLLBAR AS OLECONTROL
>
> * use of Microsoft Forms 2.0 Scrollbar, in FM20.dll (RegSrv32 first!)
> OleClass = "Forms.ScrollBar.1"
> Width = xx
> Height = xx
> Min = SCROLL_LOW
> Max = SCROLL_HIGH
> SmallChange = SMALL_CHANGE
> LargeChange = LARGE_CHANGE
>
> * vertical
> Orientation = 0 && or 1 horizontal
>
> PROCEDURE Change
> * OLE event
> * ---- do something
> ENDPROC
>
> PROCEDURE Scroll
> * OLE event
> * ---- do something
> ENDPROC
>
> PROCEDURE Init
> WITH THIS
> * set to minimum value
> .Object.Value = .Min
> ENDWITH
> ENDPROC
>
> PROCEDURE MoveToHome
> * user proc
> WITH THIS
> .Object.Value = .Min
> ENDWITH
> ENDPROC
>
> PROCEDURE MoveToEnd
> * user proc
> WITH THIS
> .Object.Value = .Max
> ENDWITH
> ENDPROC
>
> ... etc etc
>
>ENDDEFINE
>
>John Burton

You couldn't be more specific, especially with your procedures? I'm not sure what you mean with "Ole event"? or with the 3 procedures.

ray
Some days it's not worth chewing through the leather straps ...
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform