B4A Library B4APhotoPager v3.85

Sub p_Click

If (vp.ToggleZoom) Then
   vp.ToggleZoom = False
Else
   vp.ToggleZoom = True
End If

End Sub

Sub Process_Globals    
    Dim PictureUrl As String = "http://www.domainname.com/pictures.json"
    Dim PictureJson As String
    Dim fromWeb As List
    Dim AlbumID As Int    
    Dim posSelected As Int
End Sub

Sub Globals        
    Dim GridView As PhotoGridView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("pictures")   
           
    GridView.initialize("GridView")    
    GridView.CacheInMemory = False
    GridView.CacheOnDisk = True   
    
        Activity.AddView(GridView,10dip,50dip,100%x-20dip,100%y-160dip)
        GridView.ItemWidth= GridView.Width / 3
        GridView.ItemHeight= GridView.ItemWidth
        GridView.HorizontalSpacing=4dip   
        GridView.VerticalSpacing=4dip
        GridView.NumColumns= 3       

    GridView.Gravity=Gravity.CENTER
    GridView.ScaleType = GridView.ScaleType.Fit_XY
   
    GridView.SetNoEffect = False
    GridView.FadeInTime = 300
    GridView.RoundedBitmap = False
    GridView.SetBorderColor = Colors.RGB(133,22,30)
    GridView.SetBorderWidth =1

    GridView.ProgressBarIndeterminate = True
    GridView.ProgressBarVisible = True

    GridView.TextColor = Colors.Black
    GridView.TextSize = 12
    GridView.ShowText = False
    GridView.TextGravity = Gravity.CENTER
    GridView.TextPosition = GridView.TextPosition.Text_Bottom_Inside
   
    GridView.TextStyle =  GridView.TextTypeFace.Style_Italic
    GridView.CompressFormat = GridView.CompressFormat.Compress_Format_JPG
    GridView.CompressQuality = 80
   
    GridView.SetImageOnLoading = "empty_photo1.png"
    GridView.SetImageOnFail = "ic_error1.png"
   
    Dim GetPage As HttpJob
    GetPage.Initialize("GetPageJob", Me)
    GetPage.Download(PictureUrl)
    ProgressDialogShow2("please wait loading...", False)
   
End Sub

Sub ParseJSON(json As String)
    Dim parser As JSONParser
    parser.Initialize(json)
   
    Dim root As Map = parser.NextObject
    Dim albums As List = root.Get("albums")
    Dim actAlbum As Int = -1   
    For Each col_albums As Map In albums
        actAlbum = actAlbum +1         
        Dim album_title As String = col_albums.Get("album_title")
        fromWeb.Initialize
        If actAlbum = AlbumID Then       
        Dim pictures As List = col_albums.Get("pictures")
            Dim pic_row As Int = -1
            For Each album_pictures As Map In pictures
            pic_row = pic_row +1
            Dim picture_title As String = album_pictures.Get("picture_title")
            Dim picture_image As String = album_pictures.Get("picture_image")
           
            GridView.AddImageFromWeb(picture_image)
            GridView.SetText2(pic_row, picture_title)   
            fromWeb.Add(picture_image)           
            Next
            GridView.SetArrayList(fromWeb)                   
        Page_title.Text = album_title
        End If       
    Next   
End Sub

Sub JobDone(job As HttpJob)
    If job.Success = True Then
        PictureJson = job.GetString
        ParseJSON(PictureJson)
        ProgressDialogHide
    Else
        Log("Error: " & job.ErrorMessage)
    End If       
End Sub

Sub Activity_Resume
    GridView.ResumeEngine
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    GridView.StopEngine
End Sub

Sub GridView_ItemClick(Position As Int, Value As Object)  
    posSelected = Position
    Picture.a.Initialize
    Picture.a.AddAll(GridView.GetArrayList)   
    StartActivity(Picture)       
End Sub

Sub Process_Globals    
    Dim a As List
    Dim NewPos As Int
End Sub

Sub Globals
    Dim vp As PhotoPager    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("picture")

    vp.Initialize("vp")
    If Activity.Width > Activity.Height Then
    Activity.AddView(vp, 0, 12.5%y, 100%x, 100%y-12.5%y)
    Else
    Activity.AddView(vp, 0, 8.33%y, 100%x, 100%y-8.33%y)   
    End If
    vp.Color = Colors.Black
    vp.ScaleType = vp.ScaleType.Fit_Center   
    vp.ToggleFade = True
    vp.ToggleLock = True
    vp.OutlineEnabled = False
    vp.OutlineColor = Colors.Transparent
    vp.Effect = vp.Effect.FlipHorizontal
    vp.ToggleDoubleTap = True    
    vp.CacheOnDisk = True
    vp.ProgressBarVisible = True

    vp.SetArrayList(a)
    vp.CurrentItem = Pictures.posSelected  
   
End Sub

Sub vp_PageSelected(Position As Int)    
    NewPos = Position   
End Sub

Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)    
    Pictures.posSelected = NewPos
End Sub

Sub vp_LongClick
    vp.ClearDiskCache
    vp.DestroyEngine
    Activity.Finish
End Sub