B4A Library [Lib+Class] CustomGallery

Informatix · Aug 1, 2012

CustomGallery is a very small library (BitmapPlus) and a class (ClsCustomGallery) for B4A v2.0.
Its goal is to display thumbnails in a row, column or grid. It's highly customizable as you can see in the screenshots.

It needs two other libraries: ScrollView2D and Reflection

Tutorial: How they do #2

List of functions:
Initialize(Parent As Object, Left As Int, Top As Int, Width As Int, Height As Int, GalleryStyle As Int, Callback As Object, subTouch As String, subClick As String, subLongClick As String, subScroll As String)
ClearGallery
RemoveColoredBorders(bmpToCrop As Bitmap, Color As Int) As Bitmap
NumberOfThumbnails As Int
ProcessBitmap(SrcBmp As Bitmap) As Bitmap
AddThumbnail(SrcBmp As Bitmap, Tag As Object)
AddFolder(Dir As String, MaxNbFiles As Int)
InsertThumbnailAt(SrcBmp As Bitmap, Position As Int, Tag As Object)
InsertOnTop(SrcBmp As Bitmap, Position As Int, Tag As Object)
InsertFileAt(Dir As String, FileName As String, InsertPosition As Int, Tag As Object)
MoveThumbnail(FromPos As Int, ToPos As Int)
RemoveThumbnailAt(Position As Int)
RemoveThumbnailWithTag(Tag As Object)
GetThumbnailAt(Position As Int) As Panel
GetThumbnailWithTag(Tag As Object) As Panel
JumpTo(Position As Int)
SetLabelInGrid(Thumbnail As Panel, LabelText As String, LabelColor As Int, LabelSize As Int)
LoadDrawable(Name As String) As Object
AddDrawableTo(Thumbnail As Panel, Drawable As Object)

List of options:
BorderColor As Int
BorderSize As Int
ForceColorReduction As Boolean: if true, reduces the bitmap colors and removes the alpha channel to save memory
MinTiltAngle As Int
MaxTiltAngle As Int
AlternateAngle As Boolean: if true, tilt angles are alternately < 0 and > 0
HorizontalOffset As Int: shifts the thumbnails to the right (+) or to the left (-)
VerticalOffset As Int: shifts the thumbnails to the bottom (+) or to the top (-)
PressedDrawable As Object: drawable displayed when a thumbnail is clicked
RescaleOnlyIfBigger As Boolean: if true, the rescaling function is called only if the source image is bigger than the thumbnail
LabelHeightInGrid As Int: height of labels below thumbnails
SizeInGrid As Int: size of thumbnails inside a grid
SizeInPile As Int: size of thumbnails with the pile style
SpaceBetweenThumbnails As Int
StillVisible As Int: if there's an offset, defines the minimum visible size of thumbnails

v1.1: see details here
v1.11: Fixed three minor bugs
v1.2: see details here
v1.3: Fixed a bug and added the ForceColorReduction option
v1.31: Compatible with obfuscation and JellyBean
v1.32: No more warnings with B4A v2.7.
v1.321: Minor change. I added two entries to the Manifest of examples to enable the hardware acceleration and a large heap.

If you want to download the library and the class, you need only the file CustomGallery#1.zip. If you want to run the full demo, download the five files. After unzipping, you should have nineteen images (18 jpg + 1 png) in the Files folder of the demo.

Another demo (with the MediaBrowser library) is available here.

Fred

gadgetmonster · Oct 9, 2013

Thank you Frederic, this is exactly what I need - donation sent.

gadgetmonster · Oct 11, 2013

Hi Frederic,

On one of my activities I have a standard scroll view which displays a photo and then various lines of data underneath it. What I wanted to do was add a customgallery underneath the photo so basically im adding your customgallery onto a panel which inturn is added to the main scrollview.

From this screen I can press a button that loads another activity which also has a custom gallery on it. I get the following error if I launch the second activity and then press the back key to return to the first activity, I get the following exception:

B4X:

java.lang.ClassCastException: android.widget.ImageView cannot be cast to android.view.ViewGroup
    at android.app.FragmentManagerImpl.moveToState(FragmentManager.java:893)
    at android.app.FragmentManagerImpl.moveToState(FragmentManager.java:1075)
    at android.app.BackStackRecord.run(BackStackRecord.java:682)
    at android.app.FragmentManagerImpl.execPendingActions(FragmentManager.java:1455)
    at android.app.FragmentManagerImpl$1.run(FragmentManager.java:441)
    at android.os.Handler.handleCallback(Handler.java:730)
    at android.os.Handler.dispatchMessage(Handler.java:92)
    at android.os.Looper.loop(Looper.java:137)
    at android.app.ActivityThread.main(ActivityThread.java:5414)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:525)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1187)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1003)
    at dalvik.system.NativeStart.main(Native Method)

If the custom gallery has one or two images in it, everything works fine. As soon as you have a third it errors.

If I remove the code that simply populates the gallery on the first activity (shown below) then again everything works fine.

B4X:

gallery.ClearGallery
For i = 0Toentry.Photos.Size - 1
Dim phEx AstypPhoto
phEx = entry.Photos.Get(i)
gallery.AddThumbnail(LoadBitmap(phEx.Dir, phEx.FileName), i)
Next

Do you have any idea why this would be? I have tried using very small images but the problem persists.

Hajzenberg · Oct 14, 2013

Hello,
I have application which downloads a set of thumbnails which I want to display in CustomGallery.
Array of bitmaps are stored in public global:

B4X:

 Public images() As Bitmap

And when I call

B4X:

MyGallery.AddThumbnail(images(i), i)

it crashes in Private Sub SquareBmp with passed object bmp which is not initialized.
What I am doing wrong, how to add thumbnail with existing loaded bitmap object, and not using LoadBitmap?

Informatix · Oct 14, 2013

gadgetmonster said:
Hi Frederic,

On one of my activities I have a standard scroll view which displays a photo and then various lines of data underneath it. What I wanted to do was add a customgallery underneath the photo so basically im adding your customgallery onto a panel which inturn is added to the main scrollview.

From this screen I can press a button that loads another activity which also has a custom gallery on it. I get the following error if I launch the second activity and then press the back key to return to the first activity, I get the following exception:

If I understand you well, you placed the gallery in a ScrollView. I don't recommend it because the gallery is already based on a ScrollView and that may lead to unexpected results.
Concerning your issue, I don't know why it happens. It's the first time I see it. In this example, I use a first gallery to access a second gallery. No error occurs when I return to the first gallery. I presume there's an error somewhere in your code when you resume the activity.

Informatix · Oct 14, 2013

Hajzenberg said:
Hello,
I have application which downloads a set of thumbnails which I want to display in CustomGallery.
Array of bitmaps are stored in public global:

B4X:

Public images() As Bitmap

And when I call

B4X:

MyGallery.AddThumbnail(images(i), i)

it crashes in Private Sub SquareBmp with passed object bmp which is not initialized.
What I am doing wrong, how to add thumbnail with existing loaded bitmap object, and not using LoadBitmap?

I'm not sure to understand your question because AddThumbnail expects an existing bitmap. You can set its first parameter to a bitmap that you have created or that you have loaded with your own function; it doesn't matter.
The error that you get means that the bitmap reference is null and has no contents. A bitmap must be initialized to be used, either with the Initialize function or by loading it.

Hajzenberg · Oct 16, 2013

Yap, you were right, my bitmap collection was not initialized properly (JobDone was not really done
Solved it and everything works fine now.
Question - how to handle clicks, to get image details of clicked item?

Informatix · Oct 17, 2013

Hajzenberg said:
Question - how to handle clicks, to get image details of clicked item?

You should look at the demos.
The event handler is declared like this:
Sub Gallery_OnClick(Thumbnail As Panel)
End Sub

sasetcolombia · Mar 1, 2014

Hi!
once they are removing thumbnails with MyGallery1.RemoveThumbnailWithTag method (Thumbnail.Tag) .... what would be the procedure to refresh all images?

sasetcolombia · Mar 1, 2014

sasetcolombia said:
Hi!
once they are removing thumbnails with MyGallery1.RemoveThumbnailWithTag method (Thumbnail.Tag) .... what would be the procedure to refresh all images?

I answer me.

this code works ok:
Sub imgActualizarGaleria_Click
DoEvents: DoEvents
For i = 1 To 5
MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets, "imagenes1/image" & i & ".png"), i)
Next

End Sub

Thanks!

grafsoft · Apr 21, 2014

Do you have a simpe exaample which displays only one folder? I do not really understadn how this works. Thank you!

grafsoft · Apr 21, 2014

Sorry, I found it out myself. It is about the MediaBrowser.

merlin2049er · Apr 21, 2014

Very nice, I'll download it asap.

MarcoRome · Oct 23, 2014

Hi Alex, Thank you for this fantastic Library. I have a few dubious about this:

B4X:

Sub crea

    MyGallery1.Initialize(Activity, 0, 0, 100%x, 100%y, 2, Me, "", "Gallery_OnClick", "", "")
    MyGallery1.SizeInGrid = Floor(MyGallery1.SV2D.Height / 3)
   
    Dim pnl As Panel, lbl As Label
    MyGallery1.BorderColor = Colors.White
    MyGallery1.BorderSize = 3dip
    For i = 1 To 18
        MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)

        pnl = MyGallery1.GetThumbnailAt(i - 1)
       
            lbl.Initialize("")
            lbl.Text = "Queen Selezione " & i
            lbl.TextSize = 14
            lbl.Color = Colors.Magenta
            lbl.Typeface = Typeface.DEFAULT_BOLD
            lbl.Gravity = Gravity.LEFT + Gravity.CENTER_HORIZONTAL
            lbl.TextColor = Colors.White
            pnl.AddView(lbl, 8dip, 4dip, pnl.Width - 28dip, 20dip)
    Next
End Sub

in this sub create MyGallery1 whit 3 pictures:

B4X:

MyGallery1.SizeInGrid = Floor(MyGallery1.SV2D.Height / 3)

when i click top one picture ( Gallery_OnClick ) i have this code:

B4X:

Sub Gallery_OnClick(Thumbnail As Panel)

     'Pulisco la prima Gallery
    MyGallery1.ClearGallery ' <-----------------IS RIGHT THIS ???
    MyGallery2.Initialize(Activity, 0, 0, 100%x, 100%y, 2, Me, "", "", "Gallery_OnLongClick", "")
    MyGallery2.SizeInGrid = Floor(MyGallery2.SV2D.Height)
   
   
    Dim pnl As Panel, lbl As Label
    MyGallery2.BorderColor = Colors.White
    MyGallery2.BorderSize = 3dip
    For i = 1 To 18
        MyGallery2.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)

        pnl = MyGallery2.GetThumbnailAt(i - 1)

            lbl.Initialize("")
            lbl.Text = "Queen Selezione " & i
            lbl.TextSize = 14
            lbl.Color = Colors.Magenta
            lbl.Typeface = Typeface.DEFAULT_BOLD
            lbl.Gravity = Gravity.LEFT + Gravity.CENTER_HORIZONTAL
            lbl.TextColor = Colors.White
            pnl.AddView(lbl, 8dip, 4dip, pnl.Width - 28dip, 20dip)

    Next
   
    'Jump position
'    Msgbox("Prima di passare " & Thumbnail.Tag , "messaggio")
    MyGallery2.JumpTo( Thumbnail.Tag - 1 ) ' <------------ IS RIGHT THIS ??
      
End Sub

1) Is right that i utilize MyGaller1.ClearGallery ??
2) Why JumpTo dont work ?? i see that i put MsgBox so i stop code... this work , where i must put this code ( Jumpto ) ???

Thank you
Very much

Informatix · Oct 23, 2014

CustomGallery is a class I wrote some time ago and my current knowledge of the class is probably not better than yours. I have to read the code again.
To avoid OutOfMemory errors with this class, it is strongly advised to add "SetApplicationAttribute(android:largeHeap,"true")" to the manifest (I'm going to add this line to the example).

Informatix · Nov 24, 2014

MarcoRome said:

Hi Alex, Thank you for this fantastic Library. I have a few dubious about this:

B4X:

Sub crea

    MyGallery1.Initialize(Activity, 0, 0, 100%x, 100%y, 2, Me, "", "Gallery_OnClick", "", "")
    MyGallery1.SizeInGrid = Floor(MyGallery1.SV2D.Height / 3)
  
    Dim pnl As Panel, lbl As Label
    MyGallery1.BorderColor = Colors.White
    MyGallery1.BorderSize = 3dip
    For i = 1 To 18
        MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)

        pnl = MyGallery1.GetThumbnailAt(i - 1)
      
            lbl.Initialize("")
            lbl.Text = "Queen Selezione " & i
            lbl.TextSize = 14
            lbl.Color = Colors.Magenta
            lbl.Typeface = Typeface.DEFAULT_BOLD
            lbl.Gravity = Gravity.LEFT + Gravity.CENTER_HORIZONTAL
            lbl.TextColor = Colors.White
            pnl.AddView(lbl, 8dip, 4dip, pnl.Width - 28dip, 20dip)
    Next
End Sub

in this sub create MyGallery1 whit 3 pictures:

B4X:

MyGallery1.SizeInGrid = Floor(MyGallery1.SV2D.Height / 3)

when i click top one picture ( Gallery_OnClick ) i have this code:

B4X:

Sub Gallery_OnClick(Thumbnail As Panel)

     'Pulisco la prima Gallery
    MyGallery1.ClearGallery ' <-----------------IS RIGHT THIS ???
    MyGallery2.Initialize(Activity, 0, 0, 100%x, 100%y, 2, Me, "", "", "Gallery_OnLongClick", "")
    MyGallery2.SizeInGrid = Floor(MyGallery2.SV2D.Height)
  
  
    Dim pnl As Panel, lbl As Label
    MyGallery2.BorderColor = Colors.White
    MyGallery2.BorderSize = 3dip
    For i = 1 To 18
        MyGallery2.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)

        pnl = MyGallery2.GetThumbnailAt(i - 1)

            lbl.Initialize("")
            lbl.Text = "Queen Selezione " & i
            lbl.TextSize = 14
            lbl.Color = Colors.Magenta
            lbl.Typeface = Typeface.DEFAULT_BOLD
            lbl.Gravity = Gravity.LEFT + Gravity.CENTER_HORIZONTAL
            lbl.TextColor = Colors.White
            pnl.AddView(lbl, 8dip, 4dip, pnl.Width - 28dip, 20dip)

    Next
  
    'Jump position
'    Msgbox("Prima di passare " & Thumbnail.Tag , "messaggio")
    MyGallery2.JumpTo( Thumbnail.Tag - 1 ) ' <------------ IS RIGHT THIS ??
     
End Sub

1) Is right that i utilize MyGaller1.ClearGallery ??
2) Why JumpTo dont work ?? i see that i put MsgBox so i stop code... this work , where i must put this code ( Jumpto ) ???

Thank you
Very much

Did you solve your problems?

MarcoRome · Nov 24, 2014

Hi Informatix. Unfortunately no. After that i click about image... or i have 150 image or more... i receive error.

Informatix · Nov 26, 2014

MarcoRome said:
Hi Informatix. Unfortunately no. After that i click about image... or i have 150 image or more... i receive error.

Could you send me your project?

MarcoRome · Nov 26, 2014

Hi Informatix, sorry but "old" project was deleted
Anyway if you work with 100 image or more...and click, one, two, ten time.... dont work. You need to restart the app.

Informatix · Nov 26, 2014

MarcoRome said:
Hi Informatix, sorry but "old" project was deleted
Anyway if you work with 100 image or more...and click, one, two, ten time.... dont work. You need to restart the app.

Did you add "SetApplicationAttribute(android:largeHeap,"true")" in your manifest as suggested?

MarcoRome · Nov 26, 2014

Yes of course

B4A Library [Lib+Class] CustomGallery

Attachments

Active Member

Active Member

Member

Expert

Expert

Member

Expert

Member

Member

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Privacy & Transparency

Privacy & Transparency