Sub Globals
Dim GridView As B4AGridView
Dim l1 As Label
Dim s() As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
GridView.Initialize("GridView")
Activity.AddView(GridView,0dip,0dip,100%x,100%y)
GridView.CreateCache = ".it.giuseppe.salvi"
GridView.Animation=True
GridView.ItemWidth=200dip
GridView.ItemHeight=200dip
GridView.HorizontalSpacing=10dip
GridView.VerticalSpacing=10dip
GridView.NumColumns=3'GridView.AUTO_FIT
GridView.ColumnWidth=GridView.ItemWidth
GridView.StretchMode=GridView.ColumnWidth
GridView.Gravity=Gravity.CENTER
Activity.AddMenuItem("Add Image","a")
Activity.AddMenuItem("Add Image At","b")
Activity.AddMenuItem("Populate From Disk","c")
Activity.AddMenuItem("Populate From Web","d")
Activity.AddMenuItem("Clear Cache","e")
Activity.AddMenuItem("Exit","f")
s = Array As String("https://lh3.googleusercontent.com/-rrFnVC8xQEg/URqufdrLBaI/AAAAAAAAAbs/s69WYy_fl1E/s1024/Chess.jpg","http://www.hdwallpapers3d.com/wp-content/uploads/abstract-wallpaper1.jpg","http://www.walldoze.com/static/wallpaper/1920x1200/hd-wallpapers-wide-war-desktop-background-wallpaper-1920x1200-wallpaper.jpg","https://lh6.googleusercontent.com/-55osAWw3x0Q/URquUtcFr5I/AAAAAAAAAbs/rWlj1RUKrYI/s1024/A%252520Photographer.jpg","https://lh4.googleusercontent.com/--dq8niRp7W4/URquVgmXvgI/AAAAAAAAAbs/-gnuLQfNnBA/s1024/A%252520Song%252520of%252520Ice%252520and%252520Fire.jpg","https://lh5.googleusercontent.com/-7qZeDtRKFKc/URquWZT1gOI/AAAAAAAAAbs/hqWgteyNXsg/s1024/Another%252520Rockaway%252520Sunset.jpg","https://lh6.googleusercontent.com/-9lzOk_OWZH0/URquoo4xYoI/AAAAAAAAAbs/AwgzHtNVCwU/s1024/Frantic.jpg","https://lh6.googleusercontent.com/-74Z5qj4bTDE/URqu6LSrJrI/AAAAAAAAAbs/XzmVkw90szQ/s1024/Orchid.jpg","https://lh5.googleusercontent.com/-GoUQVw1fnFw/URquv6xbC0I/AAAAAAAAAbs/zEUVTQQ43Zc/s1024/Kauai.jpg")
End Sub
Sub a_Click
GridView.AddImage(File.DirAssets,"a.jpg")
End Sub
Sub b_Click
GridView.AddImageAt(1,"","a.jpg")
End Sub
Sub c_Click
GridView.PopulateGridView(File.DirRootExternal,"Images2")
Activity.Title = "Items From Disk in GridView = " & GridView.Length
End Sub
Sub d_Click
GridView.PopulateGridVieFromWeb(s)
Activity.Title = "Items From Web in GridView = " & GridView.Length
End Sub
Sub e_Click
GridView.ClearCache
End Sub
Sub f_Click
ExitApplication
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub GridView_ItemLongClick(Position As Int, Value As Object)
ExitApplication
End Sub
Sub GridView_ItemClick(Position As Int, Value As Object)
Msgbox(Value, "")
End Sub
Sub GridView_ItemSelected(Position As Int, Value As Object)
Activity.Title = "Items in GridView = " & GridView.Length&" -- Position =" & Position
End Sub