Nuova libreria
https://www.filehosting.org/file/details/929860/SD_RollingBall-Base.b4xlib
- Codice:
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
#LibraryAuthor:
#LibraryName: Library
#LibraryVersion: 1.0
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private SD_RollingBall1 As SD_RollingBall
Private Side1 As Pane
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Sleep(1000)
SD_RollingBall1.BallText="8"
SD_RollingBall1.MoveTo(1500,Side1.Left,Side1.Top)
Wait For SD_RollingBall1_MovementCompleted
SD_RollingBall1.Resize(500,Side1.Width,Side1.Height)
Wait For SD_RollingBall1_ResizeCopmpleted
SD_RollingBall1.Stop
End Sub