B4A Library [Library] B4aGridView v3.80



Hi guys, B4AGridView is updated to v3.70.


1: GridView Demo
1: Library
1: PDF Explanations



A big thanks goes to ( Sergey Tarasevich - author of Universal Image Loader )

A thanks is always appreciated.


B4AGridView
Author:
Giuseppe Salvi
Version: 3.7

  • Fields:
    • Default As Typeface
      The default NORMAL typeface object.
    • Default_Bold As Typeface
      The default BOLD typeface object.
    • Monospace As Typeface
      The NORMAL style of the default monospace typeface.
    • Sans_Serif As Typeface
      The NORMAL style of the default sans serif typeface.
    • Serif As Typeface
      The NORMAL style of the default serif typeface.
    • Style_Bold As Int
      The default BOLD style int.
    • Style_Bold_Italic As Int
      The default BOLD ITALIC style int.
    • Style_Italic As Int
      The default ITALIC style int.
    • Style_Normal As Int
      The default NORMAL style int.
    Methods:
    • LoadFontFromAssets (file As String) As Typeface
      Create a new typeface from the specified font data from assets.
    • LoadFontFromFile (file As String) As Typeface
      Create a new typeface from the specified font data from sdcard.

  • Fields:
    • Center As ScaleType
      Center the image in the view, but perform no scaling.
    • Center_Crop As ScaleType
      Scale the image uniformly (maintain the image's aspect ratio) so that both dimensions (width and height) of the image
      will be equal to or larger than the corresponding dimension of the view (minus padding).
    • Center_Inside As ScaleType
      Scale the image uniformly (maintain the image's aspect ratio) so that both dimensions (width and height) of the image
      will be equal to or less than the corresponding dimension of the view (minus padding).
    • Fit_Center As ScaleType
      Scale the image using CENTER.
    • Fit_End As ScaleType
      Scale the image using END.
    • Fit_Start As ScaleType
      Scale the image using START.
    • Fit_XY As ScaleType
      Scale the image using FILL.
    • Matrix As ScaleType
      Scale using the image matrix when drawing.

  • Fields:
    • CARDS As Int
      CARDS Effect = 2
    • CURL As Int
      CURL Effect = 3
    • FADE As Int
      FADE Effect = 12
    • FAN As Int
      FAN Effect = 9
    • FLIP As Int
      FLIP Effect = 5
    • FLY As Int
      FLY Effect = 6
    • GROW As Int
      GROW Effect = 1
    • HELIX As Int
      HELIX Effect = 8
    • PUZZLE As Int
      PUZZLE Effect = 16
    • REVERSE_FLY As Int
      REVERSE_FLY Effect = 7
    • REVERSE_TWIRL As Int
      REVERSE_TWIRL Effect = 15
    • SLIDE_IN As Int
      SLIDE_IN Effect = 14
    • STANDARD As Int
      Standard Effect = 0
    • TILT As Int
      TILT Effect = 10
    • TWIRL As Int
      TWIRL Effect = 13
    • WAVE As Int
      WAVE Effect = 4
    • ZIPPER As Int
      ZIPPER Effect = 11

  • Fields:
    • Text_Bottom_Inside As GravityEnum
      Text Bottom InSide
    • Text_Bottom_OutSide As GravityEnum
      Text Bottom OutSide
    • Text_Center_Inside As GravityEnum
      Text Center InSide
    • Text_Top_Inside As GravityEnum
      Text Top InSide
    • Text_Top_OutSide As GravityEnum
      Text Top OutSide

  • Fields:
    • AUTO_FIT As Int
      Creates as many columns as can fit on screen.
    • NO_STRETCH As Int
      Disables stretching.
    • STRETCH_COLUMN_WIDTH As Int
      Stretches the spacing between columns.
    • STRETCH_SPACING As Int
      Stretches columns.
    • STRETCH_SPACING_UNIFORM As Int
      Stretches the spacing between columns.

  • Fields:
    • Compress_Format_JPG As CompressFormat
      Compression Format JPG
    • Compress_Format_PNG As CompressFormat
      Compression Format PNG

  • PhotoGridView
    Events:
    • ItemClick (Position As Int, Value As Object)
    • ItemLongClick (Position As Int, Value As Object)
    • Ready ( As )
    • ShareItemClick (Value As Object)
    Methods:
    • AddImage (dir As String, file As String)
      Add an image from sdcard or AssetsDir at the end of the GridView
    • AddImageAt (index As Int, dir As String, file As String)
      Add an image from sdcard or AssetsDir to the desired position in the GridView
    • AddImageFromWeb (address As String)
      Add an image from web at the end of the GridView
    • AddImageFromWebAt (index As Int, address As String)
      Add an image from Web to the desired position in the GridView
    • AddThisView
      Adds view to this activity 100%x,100%y
    • ClearDiskCache
      Clears disk cache.
    • ClearMemoryCache
      Clears memory cache
    • DestroyEngine
      Stops ImageLoader and clears current configuration. Use this option on exit app.
    • GetArrayList As List
      Gets array.
    • GetCacheDir As String
      Returns application cache directory. Cache directory will be created on SD card
      <i>("/Android/data/[app_package_name]/cache")</i> if card is mounted and app has appropriate permission. Else -
      Android defines cache directory on device's file system.
      Return type: @return:Cache {@link File directory}.<br />
      <b>NOTE:</b> Can be null in some unpredictable cases (if SD card is unmounted)
    • GetImageListFromAssets (path As String, sort As Boolean) As List
      Get entire list of images stored in assets or sub-folder
      Examples:
      <code>
      Dim lv as ListView
      Dim l as list
      l.Initialize
      lv.Initialize("lv")
      Sub Menu_Click
      Activity.AddView(lv,0,0,100%x,100%y)
      l = GridView.GetImageListFromAssets("Here the Images folder stored in Assets")
      or
      l = GridView.GetImageListFromAssets(File.DirAssets)
      or
      l = GridView.GetImageListFromAssets("")
      For n = 0 To l.Size-1
      lv.AddSingleLine(l.Get(n))
      next
      End Sub
      </code>
    • GetIndividualCacheDir As String
      Returns individual application cache directory (for only image caching from ImageLoader). Cache directory will be
      created on SD card <i>("/Android/data/[app_package_name]/cache/b4AGridview-Images")</i> if card is mounted and app has
      appropriate permission. Else - Android defines cache directory on device's file system.
    • GetItem (position As Int) As String
      Returns Item
      Example:
      i.Bitmap=LoadBitmap("",g.GetItem(Position))
    • GetRealImagePath (filename As String) As String
      Returns the real path of the image
    • GoToWebsite (url As String)
      Go to web site by given an address
      Example:
      GoToWebsite("www.example.com")
      url:
    • Initialize (EventName As String)
      Initialize the object
    • Initialize2 (EventName As String, withCacheName As String)
      Initialize the object and set own cache directory
    • InitializeFromLayout (EventName As String, container As ViewGroup, Layout As String, LayoutID As String)
      Initialize the object from layout
    • PauseEngine
      Pause ImageLoader. All new load and display tasks won't be executed until ImageLoader is resumed.
      Already running tasks are not paused.
    • ResumeEngine
      Resumes waiting load and display tasks
    • SetArrayList (array As ArrayList)
      Sets array.
    • SetText (text As String)
      Sets the string value of the TextView.
    • SetText2 (index As Int, text As String)
      Sets the string value of the TextView.
    • ShareItemsTo (appName As String, item As String, subJect As String, message As String, shareTo As String)
      Share any items to ?
      app: name
      item:
      subJect:
      message:
      shareTo:
    • ShareTextUrlTo (subject As String, text As String, message As String, shareTo As String)
      Share any text to ?
      subject:
      text:
      message:
      shareTo:
    • ShowActionBarToShare (icons() As String)
      Sets the icons on action bar
      Example:
      Dim icons() As String = Array As String("gmail.png","email.png","gmx.png","dropbox.png","facebook.png","twitter.png","telegram.png","line.png")
      icons: as array
    • ShowFromAssets (path As String, sort As Boolean)
      Populate GridView from assets or assets/sub-folder
    • ShowFromBucket (path As String, sort As Boolean)
      Populate GridView from sdcard
    • ShowFromMediaStore (sort As Boolean)
      Populate GridView from media store images
    • ShowFromSdCard (dir As String, path As String, sort As Boolean)
      Populate GridView from sdcard
    • ShowFromWeb (webStrings() As String, sort As Boolean)
      Populate GridView from web
    • StopEngine
      Cancels all running and scheduled display image tasks.
      <b>NOTE:</b> This method doesn't shutdown if you set them.

      ImageLoader still can be used after calling this method.
    • TextBackGroundColor (red As Int, green As Int, blue As Int)
      Sets the background color for this view.
      <b>by default red = 0</b>
      <b>by default green = 0</b>
      <b>by default blue = 0</b>
    • TextColor2 (alpha As Int, red As Int, green As Int, blue As Int)
      Get or Sets Text Color - by default White
    • isPauseOnFling As Boolean
      Whether pause ImageLoader during fling
    • isPauseOnScroll As Boolean
      Whether pause ImageLoader during touch scrolling
    Permissions:
    • android.permission.INTERNET
    • android.permission.READ_EXTERNAL_STORAGE
    • android.permission.WRITE_EXTERNAL_STORAGE
    Properties:
    • CacheInMemory As Boolean [write only]
      Sets whether loaded image will be cached in memory.
    • CacheOnDisk As Boolean [write only]
      Sets whether loaded image will be cached on disk.
    • ColumnWidth As Int
      Get or Sets Specifies the fixed width for each column.
    • CompressFormat As BitmaCompression
      Get or Sets the known formats a bitmap can be compressed into [ JPG or PNG ]Sets the quality of a bitmap, that can be compressed. [ 0 = low -> 100 = high ]
      by default PNG
    • CompressQuality As Int
      Get or Sets the quality of a bitmap, that can be compressed. [ 0 = low -> 100 = high ]
      by default 100
    • DelayBeforeLoading As Int [write only]
      Sets delay time before starting loading task. Default - no delay.
    • FadeInTime As Int [write only]
      Duration of "fade-in" animation (in milliseconds)
      Whether animation should be played if image is loaded from network
      Whether animation should be played if image is loaded from disk cache
      Whether animation should be played if image is loaded from memory cache
    • Friction As Boolean
      Get or Sets the amount of friction applied to flings.
    • Gravity As Int [write only]
      Specifies the gravity within each cell.
    • HorizontalSpacing As Int [write only]
      Defines the default horizontal spacing between columns..
    • ItemHeight As Int
      Get or Sets the the size of the images will be displayed in thumbnail by default size is 480x320
    • ItemWidth As Int
      Get or Sets the the size of the images will be displayed in thumbnail by default size is 480x320
    • Length As Int [read only]
      Returns length
    • LoadFontFromAssets As String [write only]
      Loads a new Typeface from the specified font data.
    • LoadFontFromFile As String [write only]
      Loads a new Typeface from the specified font data.
    • MaxAnimationVelocity As Int
      Get or Sets max animation velocity.
    • NumColumns As Int
      Get or Sets the number of columns in the grid.
    • PauseOnFling As Boolean [write only]
      Whether pause ImageLoader during fling
    • PauseOnScroll As Boolean [write only]
      Whether pause ImageLoader during touch scrolling
    • ProgressBarIndeterminate As Boolean [write only]
      Change the indeterminate mode for this progress bar.
    • ProgressBarVisible As Boolean [write only]
      Set the enabled state of this view. - by default is trueChange the indeterminate mode for this progress bar.
    • RemoveAt As Int [write only]
      Removes the item at the specified location from this list.
    • ResetViewBeforeLoading As Boolean [write only]
      Sets whether image view will be reset before image loading start
    • RoundedBitmap As Boolean [write only]
      Can display bitmap with rounded corners. - by default is false
    • ScaleType As PhotoScaleTypes
      Controls how the image should be resized or moved to match the size of this ImageView.
      by default ScaleTypeFIT_XY
    • ScaleTypeForRounded As ScaleType [write only]
      Controls how the RoundedBitmap should be resized or moved to match the size of this ImageView.
      by default ScaleType.FIT_CENTER
    • Selection As Int
      Get or Sets the currently selected item.
    • SetBorderColor As Int [write only]
      Set the border Color - by default is transparent
    • SetBorderWidth As Int [write only]
      Set the border Width - by default is 0
    • SetCornerRadius As Int [write only]
      Set the corner Radius - by default is 0
    • SetImageOnFail As String [write only]
      Sets own icon on fail
    • SetImageOnLoading As String [write only]
      Sets own icon on loading
    • SetNoEffect As Boolean [write only]
      Can display bitmap with rounded corners.
      Show thumbnails with corner radius or oval. - by default is true
    • ShouldOnlyAnimateFling As Boolean
      Get or Sets should only animate fling.
    • ShouldOnlyAnimateNewItems As Boolean
      Get or Sets should only animate new item.
    • ShowMessageError As Boolean [write only]
      Set to true if you want to display an error message.
    • SimulateGridWithList As Boolean
      Get or Sets simulate grid with list.
    • SmoothScrollbarEnabled As Boolean [write only]
      When smooth scrollbar is enabled, the position and size of the scrollbar thumb is computed based on the number of visible pixels in the visible items.
    • StretchMode As StretchModeEnum
      Defines how columns should stretch to fill the available empty space, if any.
      Examples:
      GridView.StretchMode = GridView.StretchMode.STRETCH_SPACING
    • Tag As Object
      Get or Sets this view's tag.
    • TextBackGroundAlpha As Int
      Get or Sets alpha property of the view, as a value between 0 (completely transparent) and 255 (completely opaque).
      <b>by default alpha = 0</b>
    • TextBackGroundColor2 As String [write only]
      Sets the background color for this view.
      Example:
      TextBackGroundColor2("#88666666")
    • TextColor As Int
      Get or Sets Text Color - by default White
    • TextGravity As Int
      Get or Sets the horizontal alignment of the text that will be used.
    • TextLines As Int
      Get or Sets the TextView exactly this many lines tall.
    • TextPosition As TextPositionEnum
      Get or Sets the position alignment of the text that will be used.
      <b>param Text_Top_OutSide</b>
      <b>param Text_Top_Inside</b>
      <b>param Text_Center_Inside</b>
      <b>param Text_Bottom_Inside</b>
    • TextSize As Int
      Get or Sets Text Size - by default 14
    • TextStyle As Int [write only]
      Sets the style in which the text should be displayed.
    • TextTypeFace As TypefaceUtils
      Get or Sets the typeface and style in which the text should be displayed.
      Note that not all Typeface families actually have bold and italic variants,
      so you may need to use TextStyle(style) to get the appearance that you actually want.
    • TextVisible As Boolean
      Get or Sets the visibility of the text - by default is hide
    • TransitionDuration As Int
      Get or Sets transition duration.
    • TransitionEffect As TransitionEffect
      Get or Sets the desired transition effect.
    • Version As String [read only]
      Version of the library
    • VerticalSpacing As Int [write only]
      Defines the default vertical spacing between rows.
 

Attachments

  • GridView.jpg
    GridView.jpg
    92.4 KB · Views: 4,416
  • gridview.jpg
    gridview.jpg
    80.3 KB · Views: 3,963
  • B4AGridView_v3.70_Demo.zip
    337.7 KB · Views: 1,310
  • B4AGridView_v3.70_Lib.zip
    461.2 KB · Views: 931
  • B4AGridView_v3.70.pdf
    102.2 KB · Views: 1,018
  • B4AGridView_Lib_v3.80.zip
    408.7 KB · Views: 982
  • B4AGridView_Lib_v3.80_Fix.zip
    409.4 KB · Views: 1,370
Last edited:

Shahid Saeed

Active Member
Licensed User
Longtime User
Hi, check this to me work.

B4X:
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")

'  For Each col_albums As Map In albums
        'Dim album_id As String = col_albums.Get("album_id")
'      Dim album_image As String = col_albums.Get("album_image")
        'Dim album_title As String = col_albums.Get("album_title")
 
'  GridView.AddImageFromWeb(album_image)
'  Next                 
'      Log(album_image)

    Dim parser As JSONParser
   
    ' parser.Initialize(File.ReadString(File.DirAssets, "1.txt"))
     parser.Initialize(json)
     Dim root As Map = parser.NextObject
   
     Dim albums As List = root.Get("albums")
   
   For Each colalbums As Map In albums
 
     Dim album_id As String = colalbums.Get("album_id")
   
     Dim pictures As List = colalbums.Get("pictures")
   
   For Each colpictures As Map In pictures
 
       Dim picture_image As String = colpictures.Get("picture_image")
   
       Dim picture_title As String = colpictures.Get("picture_title")
   
       Dim picture_date As String = colpictures.Get("picture_date")
   
       Dim picture_id As String = colpictures.Get("picture_id")
     GridView.AddImageFromWeb(picture_image)
   Next
 
     Dim album_image As String = colalbums.Get("album_image")
   
     Dim album_title As String = colalbums.Get("album_title")
   
   Next

End Sub

You are loading pictures inside Album this is what I am already doing in next activity, first I need to show Album pictures which my code is doing as well. just to what was the concern the pictures are not being displayed in full on right and bottom edges.
 

xor83

Member
Licensed User
Longtime User
Hi lonleystar and thanks for this great library. Your library works great but I am facing one issue or may be I don't know how to do this.
I am showing small resized images as thumbnails in grid and on clicking any of thumbnail my app takes user to detail page where I want to show full size image/wallpaper, for that I need to store some value/details of image like ID which I get when user clicks on thumbnail. Is there any way that I can do this?
 

Shahid Saeed

Active Member
Licensed User
Longtime User
Hi lonleystar and thanks for this great library. Your library works great but I am facing one issue or may be I don't know how to do this.
I am showing small resized images as thumbnails in grid and on clicking any of thumbnail my app takes user to detail page where I want to show full size image/wallpaper, for that I need to store some value/details of image like ID which I get when user clicks on thumbnail. Is there any way that I can do this?

Try the code below:

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object) 
      DetailPage.Position = Position 'Defines position of clicked picture to the next activity
     StartActivity(DetailPage) 'starts the next activity
End Sub

In a similar behavior you can define any value to the next activity.

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object) 
      DetailPage.Position = Position 'Defines position of clicked picture to the next activity
      DetailPage.PictureID = PictureID
      DetailPage.Detail = Detail
     StartActivity(DetailPage) 'starts the next activity
End Sub
 

xor83

Member
Licensed User
Longtime User
Thanks Shahid for your reply.

B4X:
DetailPage.Position = Position

The above line will allow me to get position and thumbnail from grid but not the ID of image which is coming from mysql table.

I want to store my mysql ID so that on details page I make one more http(json) call to get full sized image url and other details
 

Shahid Saeed

Active Member
Licensed User
Longtime User
Thanks Shahid for your reply.

B4X:
DetailPage.Position = Position

The above line will allow me to get position and thumbnail from grid but not the ID of image which is coming from mysql table.

I want to store my mysql ID so that on details page I make one more http(json) call to get full sized image url and other details

I think you skipped this code in my last reply:-

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object) 
 DetailPage.Position = Position 'Defines position of clicked picture to the next activity
 DetailPage.PictureID = PictureID 'PictureID value from your MySQL ID
 DetailPage.Detail = Detail 'Detail from your MySQL Detail
StartActivity(DetailPage) 'starts the next activity
End Sub
 

xor83

Member
Licensed User
Longtime User
I am loading 50 image on startup and loop through json data and load image using "AddImageFromWeb" function. Till this point I don't have mysql ID's (though its coming in json data but I don't know how to store them in relation to thumbnails in gridview)

On item click from where should I get "PictureID" data? which is my mysql ID.
 

Shahid Saeed

Active Member
Licensed User
Longtime User
I am loading 50 image on startup and loop through json data and load image using "AddImageFromWeb" function. Till this point I don't have mysql ID's (though its coming in json data but I don't know how to store them in relation to thumbnails in gridview)

On item click from where should I get "PictureID" data? which is my mysql ID.

Can you share your code to guide you in the right direction?
 

xor83

Member
Licensed User
Longtime User
On start-up this is where I parse json string and fill images in grid view.
check the variable "pdroid_id" that contains the mysql ID but don't know where to store the ID in relation to gridview thumbnails
My last solution will to use keyvaluestore class to save mysql ID's in relation to gridview position

B4X:
Mylist.Initialize       
       
        JSON.Initialize(JsonResponse)       
        Mylist = JSON.NextArray
       
        For i = 0 To Mylist.Size - 1       
            Map1 = Mylist.Get(i)       
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
       
            kvs.PutSimple( i , pdroid_id)
           
            GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next


The problem is here:

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object) 

      'DetailPage.image_id
      'DetailPage.i = Position 'Defines position of clicked picture to the next activity     
      StartActivity(DetailPage) 'starts the next activity
End Sub

From where should I get the mysql ID on click?
 

Shahid Saeed

Active Member
Licensed User
Longtime User
On start-up this is where I parse json string and fill images in grid view.
check the variable "pdroid_id" that contains the mysql ID but don't know where to store the ID in relation to gridview thumbnails
My last solution will to use keyvaluestore class to save mysql ID's in relation to gridview position

B4X:
Mylist.Initialize      
      
        JSON.Initialize(JsonResponse)      
        Mylist = JSON.NextArray
      
        For i = 0 To Mylist.Size - 1      
            Map1 = Mylist.Get(i)      
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
      
            kvs.PutSimple( i , pdroid_id)
          
            GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next


The problem is here:

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object)

      'DetailPage.image_id
      'DetailPage.i = Position 'Defines position of clicked picture to the next activity    
      StartActivity(DetailPage) 'starts the next activity
End Sub

From where should I get the mysql ID on click?

You can pass the position value to the next activity and from there you can parse the same picture using the position value you have through JSON

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object)
      DetailPage.image_id = Position
      'DetailPage.i = Position 'Defines position of clicked picture to the next activity    
      StartActivity(DetailPage) 'starts the next activity
End Sub

And on DetailPage Acitivity you can Parse the JSON as below:-

B4X:
Dim PicturePosition = Image_id
Mylist.Initialize            
        JSON.Initialize(JsonResponse)      
        Mylist = JSON.NextArray
      
        For i = 0 To Mylist.Size - 1      
           If PicturePosition = i Then
            Map1 = Mylist.Get(i)      
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
      
            kvs.PutSimple( i , pdroid_id)
            End If
            'GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next
 

Shahid Saeed

Active Member
Licensed User
Longtime User
On start-up this is where I parse json string and fill images in grid view.
check the variable "pdroid_id" that contains the mysql ID but don't know where to store the ID in relation to gridview thumbnails
My last solution will to use keyvaluestore class to save mysql ID's in relation to gridview position

B4X:
Mylist.Initialize     
     
        JSON.Initialize(JsonResponse)     
        Mylist = JSON.NextArray
     
        For i = 0 To Mylist.Size - 1     
            Map1 = Mylist.Get(i)     
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
     
            kvs.PutSimple( i , pdroid_id)
         
            GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next


The problem is here:

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object)

      'DetailPage.image_id
      'DetailPage.i = Position 'Defines position of clicked picture to the next activity   
      StartActivity(DetailPage) 'starts the next activity
End Sub

From where should I get the mysql ID on click?

You can also try another approach:

B4X:
    JSON.Initialize(JsonResponse)      
        Mylist = JSON.NextArray
         
        For i = 0 To Mylist.Size - 1      
            Map1 = Mylist.Get(i)                  
            If ImageMap.Get("ImageID") = Map1.get("id") Then
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
       
            kvs.PutSimple( i , pdroid_id)
            im ImageMap As Map
            ImageMap.Initialize
            ImageMap.Put("Image_ID", pdroid_id)
            GridView.Tag = ImageID
            End If
            'GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next
       
       
        Sub GridView_ItemClick(Position As Int, Value As Object)
            Dim ImageID As ImageView = Sender
            Dim ImageMap As Map = ImageID.Tag
         'DetailPage.image_id
         'DetailPage.i = Position 'Defines position of clicked picture to the next activity    
            Main.ClickedImage = ImageID.Tag
         StartActivity(DetailPage) 'starts the next activity
        End Sub

B4X:
        Sub Activity_Create(FirstTime As Boolean)
            Dim ImageMap As Map
            ImageMap = Main.ClickedImage
           
            ylist.Initialize      
       
        JSON.Initialize(JsonResponse)      
        Mylist = JSON.NextArray
         
        For i = 0 To Mylist.Size - 1      
            Map1 = Mylist.Get(i)                  
            If ImageMap.Get("ImageID") = Map1.get("id") Then
            Dim pdroid_image As String = Map1.Get("path")
            Dim pdroid_id As String = Map1.Get("id")
       
            kvs.PutSimple( i , pdroid_id)
              End If
            'GridView.AddImageFromWeb(pdroid_image)
            'Log( Map1.Get("name") )
        Next
        End Sub
 

Shahid Saeed

Active Member
Licensed User
Longtime User
In Your Main Activity you will have to define:-

B4X:
Sub Process_Globals         
    Dim ClickedImage As Map           
End Sub

And if you are loading the GridView in Main Acitivty use it as below:-

B4X:
Sub GridView_ItemClick(Position As Int, Value As Object)
            Dim ImageID As ImageView = Sender
            Dim ImageMap As Map = ImageID.Tag
            'DetailPage.image_id
            'DetailPage.i = Position 'Defines position of clicked picture to the next activity    
            ClickedImage = ImageID.Tag
         StartActivity(DetailPage) 'starts the next activity
        End Sub
 

xor83

Member
Licensed User
Longtime User
Thanks Shahid for your time and help.

Dim ImageID As ImageView = Sender

Above line giving me this error
java.lang.ClassCastException: android.widget.GridView
 

Shahid Saeed

Active Member
Licensed User
Longtime User
Thanks Shahid for your time and help.

Dim ImageID As ImageView = Sender

Above line giving me this error
java.lang.ClassCastException: android.widget.GridView
Try this:-

B4X:
Dim ImageID As PhotoGridView = Sender
 

bluedude

Well-Known Member
Licensed User
Longtime User
Hi,

Just like your photogallery solution this thing throws a Stackoverflow when used in an app. with multiple activities. I have added the gallery as a seperate activity but when running it and adding image from either web or mediastore it throws a stackoverflow and kills the gallery. Below the log:

Initialize ImageLoader with configuration
threadid=1: stack overflow on call to Ljava/util/Collections;.emptyList:L
method requires 4+20+0=24 bytes, fp is 0x41a25314 (20 left)
expanding stack end (0x41a25300 to 0x41a25000)
Shrank stack (to 0x41a25300, curFrame is 0x41a25380)
Exception thrown (Ljava/lang/StackOverflowError;) while throwing internal exception (Ljava/io/FileNotFoundException;)
Shutting down VM
threadid=1: thread exiting with uncaught exception (group=0x41b8ed40)
java.lang.StackOverflowError
at java.lang.Throwable.<init>(Throwable.java:67)
at java.lang.Exception.<init>(Exception.java:47)
at java.io.IOException.<init>(IOException.java:44)
at java.io.FileNotFoundException.<init>(FileNotFoundException.java:42)
at android.content.res.AssetManager.openAsset(Native Method)
at android.content.res.AssetManager.open(AssetManager.java:316)
at android.content.res.AssetManager.open(AssetManager.java:290)


at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:246)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(Ph
Message longer than Log limit (4000). Message was truncated.
FATAL EXCEPTION: main
Process: com.thingstank.apps.myapp, PID: 10193
java.lang.StackOverflowError
at java.lang.Throwable.<init>(Throwable.java:67)
at java.lang.Exception.<init>(Exception.java:47)
at java.io.IOException.<init>(IOException.java:44)
at java.io.FileNotFoundException.<init>(FileNotFoundException.java:42)
at android.content.res.AssetManager.openAsset(Native Method)


at android.content.res.AssetManager.open(AssetManager.java:316)
at android.content.res.AssetManager.open(AssetManager.java:290)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:246)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.salvi.library.photo.grid.view.adapter.PhotoGridBaseAdapter.getBitmapFromAssets(PhotoGridBaseAdapter.java:248)
at it.giuseppe.s
Force finishing activity com.thingstank.apps.myapp/.actgrid
Calling a method in the system process without a qualified user: android.app.ContextImpl.sendBroadcast:1244
 

bluedude

Well-Known Member
Licensed User
Longtime User
And the stop and resume engine also gives and exception error. As said, if I use it in a new project with only a main activity it works fine. In any other app. it crashes.
 
Top