Scrolling in form

I need a small tutorial about scroolling in form.
I have a bunch of image buttons or buttons.
For example the form as space for only 10 Image Buttons and i want to use 15 image buttons , so i need to scroll along the form, like we do in android. it is possible on device?

Best Regards
 

kustg

Member
Licensed User
hi,
something like this(?):

Sub Globals
'Declare the global variables here.
dim buttons(0)
dim startx,starty
End Sub

Sub App_Start
Form1.Show
End Sub


Sub Form1_MouseDown (x,y)
startx=x
starty=y
End Sub

Sub Form1_MouseUp (x,y)
buttons() = GetControls("Form1")
For i = 0 To ArrayLen(buttons())-1
'Control(buttons(i)).left=x
Control(buttons(i)).top=Control(buttons(i)).top+y-starty
next
End Sub

for smooth scrolling you have insert some steps.
stefan
 

mjcoon

Well-Known Member
Licensed User
I haven't tried any of this, but won't there be a problem that the "mouse" touch has to be between the buttons so that the button itself does not get the mouse action. This means big gaps between the buttons, which will make use of the screen "real estate" even worse.

But then I don't have an Android to compare either...

Mike.
 

PepSoft

Member
Licensed User
Longtime User
You can use Door Library.


Sub App_Start
Form1.Show
DoorObject.New1(False)
DoorObject.FromControl("Form1")
DoorObject.SetProperty("AutoScroll", True) "AutoScroll"
End Sub

PepSoft
 
Top