#Region Project Attributes
#ApplicationLabel: b4aDriveImageView
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region
#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 div1, div2 As DriveImageView
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")
Dim bm As Bitmap
bm.Initialize(File.dirassets,"pluto.jpg")
div1.ImageBitmap = bm
div1.AnimateTextDuration = 5000
' div1.animateText 'same as above but has a default value of 3000ms assiged to it
div1.FolderCorner = 20 'the height for the folder corner on the right
div1.BackgroundColor = "#FFAA44" 'red
div1.CustomFolderSpacing = 100 'make the folder size bigger smaller in x direction
div1.CustomHeight = 35 'the height of the overlay
div1.FolderText = "Photo 1 of 2" 'text for the folder
div1.MainText = "Pluto" 'main text
div1.DivideColor = "#FFFFFF" 'white
div1.TextColor = "#FFFFFF" 'black
bm.Initialize(File.DirAssets,"stitch.jpg")
div2.ImageBitmap = bm
div2.AnimateTextDuration = 5000
' div2.animateText 'same as above but has a default value of 3000ms assiged to it
div2.FolderCorner = 15 'the height for the folder corner on the right
div2.BackgroundColor = "#c8c8c8" 'red
div2.CustomFolderSpacing = 100 'make the folder size bigger smaller in x direction
div2.CustomHeight = 35 'the height of the overlay
div2.FolderText = "Photo 2 of 2" 'text for the folder
div2.MainText = "Stitch" 'main text
div2.ImageScaleType = div2.ScaleTypeCentreCrop
div2.DivideColor = "#00FFFF" 'white
div2.TextColor = "#FF00FF" 'black
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
