#Region Project Attributes
#ApplicationLabel: b4aShapeRipple
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#AdditionalRes: ..\LibRes
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private sr1 As ShapeRipple
Private sr2 As ShapeRipple
Private sr3 As ShapeRipple
Private sr4 As ShapeRipple
Private sr5 As ShapeRipple
Private sr6 As ShapeRipple
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
sr1.RippleDuration = 3000
sr1.EnableSingleRipple = True
sr1.RippleShape = sr1.SHAPE_CIRCLE
sr1.EnableRandomColor = True
sr1.EnableRandomPosition = False
sr1.EnableColorTransition = True
sr1.RippleStrokeWidth = 15
sr1.EnableStrokeStyle = True
sr1.RippleCount = 3
sr1.RippleFromColor = Colors.Yellow
sr1.RippleToColor = Colors.Red
sr2.RippleDuration = 3000
sr2.RippleShape = sr2.SHAPE_SQUARE
sr2.EnableRandomColor = True
sr2.EnableRandomPosition = True
sr2.EnableColorTransition = True
sr2.RippleStrokeWidth = 20
sr2.EnableStrokeStyle = True
sr2.RippleCount = 10
sr3.RippleShape = sr3.SHAPE_CIRCLE
sr3.EnableRandomColor = True
sr3.EnableRandomPosition = False
sr3.EnableColorTransition = True
sr3.RippleStrokeWidth = 30
sr3.EnableStrokeStyle = True
sr3.RippleCount = 15
sr3.RippleShape = sr3.SHAPE_CIRCLE
sr3.EnableRandomColor = True
sr3.EnableColorTransition = True
sr3.EnableRandomPosition = False
sr3.RippleStrokeWidth = 25
sr3.EnableStrokeStyle = True
sr3.RippleCount = 20
sr4.RippleShape = sr4.SHAPE_SQUARE
sr4.EnableRandomColor = True
sr4.EnableColorTransition = True
sr4.EnableRandomPosition = False
sr4.RippleStrokeWidth = 20
sr4.EnableStrokeStyle = True
sr4.RippleCount = 15
sr5.RippleShape = sr5.SHAPE_TRIANGLE
sr5.EnableRandomColor = True
sr5.EnableColorTransition = True
sr5.EnableRandomPosition = False
sr5.RippleStrokeWidth = 15
sr5.EnableStrokeStyle = True
sr5.RippleCount = 25
sr6.RippleShape = sr6.SHAPE_TRIANGLE
sr6.EnableRandomColor = True
sr6.EnableColorTransition = True
sr6.EnableRandomPosition = True
sr6.RippleStrokeWidth = 10
sr6.EnableStrokeStyle = True
sr6.RippleCount = 30
Dim lst As List
lst.Initialize
lst.Add(Colors.White)
lst.Add(Colors.Gray)
sr6.RippleRandomColors = lst
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub