B4A Library [Lib] CoverFlow v2.0

Hi guys, as I have promised, CoverFlow is here.

Download the Coverflow.zip

The zip contains the library and an example that´s all


The CoverFlow Class = Neil Davies




B4ACoverFlow
Author: Giuseppe Salvi
Version: 2

• PhotoFlow
  Events:
  • ItemClick (Position As Int, Value As Object)
  • ItemLongClick (Position As Int, Value As Object)
  • ItemSelected (Position As Int, Value As Object)
  Methods:
  • AddImage (Dir As String, FileName As String)
    Add an image at the end of the PhotoFlow from sdcard or AssetsDir
    Example:
    PhotoFlow.AddImage(File.DirRootExternal,"a.jpg")
  • AddImageAt (index As Int, Dir As String, FileName As String)
    Add an image to the desired position in the PhotoFlow from sdcard or AssetsDir
    Example:
    PhotoFlow.AddImage(1,File.DirRootExternal,"a.jpg")
  • BringToFront
  • ClearCache
    Delete entire disk and memory cache created before
  • GetImageListFromAssets (path As String) As List
    Get entire list of images stored in assets folder
    Examples:
    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 = Coverflow.GetImageListFromAssets("Here the Images path u've in assets")
    For n = 0 To l.Size-1
    lv.AddSingleLine(l.Get(n))
    next
    End Sub
  • GetItem (position As Int) As String
    Returns Item
    Example:
    i.Bitmap=LoadBitmap("",PhotoFlow.GetItem(Position))
  • InitializeCarousel (EventName As String)
    Initialize the Carousel
  • InitializeCoverflow (EventName As String)
    Initialize the PhotoFlow
  • IsInitialized As Boolean
  • PopulatePhotoFlow (dir As String, path As String)
    Populate PhotoFlow from sdcard not from assets
  • PopulatePhotoFlowFromAssets (path As String)
    Populate CoverFlow from assets not from sdcard
  • RemoveView
  • SendToBack
  • SetBackgroundImage (arg0 As Bitmap)
  • SetLayout (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  Permissions:
  • android.permission.WRITE_EXTERNAL_STORAGE
  Properties:
  • AnimationDuration As Int [write only]
    Sets how long the transition animation should run when a child view changes position.
  • Carousel As Boolean [write only]
    Set as Carousel
  • Color As Int [write only]
  • CreateCache As String [write only]
    Sets the name of your own cache
    Examples:
    PhotoFlow.CreateCache = "Your cache Name Here")
    It'll create a cache in "Android/data/Your cache name/cache/.thumbs" in to SdCard
  • Enabled As Boolean
  • FadingEdgeLength As Int [write only]
    Set the size of the faded edge used to indicate that more content in this view is available.
  • Height As Int
  • ItemHeight As Int
    Get or Set ItemHeight
  • ItemWidth As Int
    Get or Sets ItemWidth
  • Left As Int
  • Length As Int [read only]
    Returns lenght
  • Reverse As Boolean [write only]
    Set reverse
  • Selection As Int [write only]
    Jump directly to a specific item in the adapter data.
  • ShowText As Boolean
    Get or Sets the visibility of the text - by default is hide
  • Spacing As Int [write only]
    Sets the spacing between items in a Gallery
  • Tag As Object
  • TextColor As Int
    Get or Sets Text Color - by default is White
  • TextSize As Int
    Get or Sets Text size
  • Top As Int
  • Version As String [read only]
    Return Author and Version of this library
  • Visible As Boolean
  • Width As Int

 

[Mashiane]

Hi,

For some reason, in version 2, if I change this line

From

Coverflow.CreateCache = "Pippo.Pluto.Paperino"

To

Coverflow.CreateCache = "a.b.c.d"

The CoverFlow plugin does not work.
Q1. Is the Cache locked to "Pippo.Pluto.Paperino" or can someone use their own cache names?

Q2. I have placed the CoverFlow inside a panel with....

pnlCoverFlow.AddView(Coverflow, 0dip, 0dip, 100%x, 100%y)

and did this also

Coverflow.ItemWidth = 50%x
    Coverflow.ItemHeight = 100%y

because I was under the impression that each image will fit the panel size height. Unfortunately it does not. How can I ensure that each image fits perfectly (see attached images for clarity)

Q3. Each image I am adding is currently sitting in the Assets folder and I am using AddImage method. I will not use all the images in the assets folder but some. The thing is, I have to call this method below for my code to even display in the emulator otherwise nothing happens. When this line is commented out, my app does not even run.

Coverflow.PopulatePhotoFlowFromAssets("a")

Is it possible to make this library to work without having to populate from assets but instead populate from a list of given files? I don't have a folder called "a" in assets and this methods is supposed to read that folder and display the images isn't it? Below is my complete source for this. Can someone please advise?

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    ProgressDialogShow("Loading...") 
    DoEvents
    Activity.LoadLayout("vSplash")
    Activity.Color = Colors.black
    modMashiane.Button_PowderBlueWhite(btnLogin)
    modMashiane.Button_PowderBlueWhite(cmdRegister)
    StateManager.Initialize(Application.LabelName)
    pnlCoverFlow.Color = Colors.transparent
    Coverflow.InitializeCoverflow("Coverflow")
    ' if string below is changed to anything else other than Pippo.Pluto.Paperino
    ' nothing is displayed on coverflow
    Coverflow.CreateCache = "Pippo.Pluto.Paperino"
    pnlCoverFlow.AddView(Coverflow, 0dip, 0dip, 100%x, 100%y)
    Coverflow.Spacing= -15
    Coverflow.ItemWidth = 50%x
    Coverflow.ItemHeight = 100%y
    Coverflow.AnimationDuration=1000
    ' if this line is commented out, the app does start, there is no folder called "a" in assets
    Coverflow.PopulatePhotoFlowFromAssets("a")  
    Coverflow.ShowText = False
    Coverflow.AddImage(File.DirAssets,"slide1.jpg")
    Coverflow.AddImage(File.DirAssets,"slide2.jpg")
    Coverflow.AddImage(File.DirAssets,"slide3.jpg")
    Coverflow.AddImage(File.DirAssets,"slide4.jpg")
    Coverflow.AddImage(File.DirAssets,"slide5.jpg")
    Coverflow.AddImage(File.DirAssets,"slide6.jpg")
    Coverflow.AddImage(File.DirAssets,"slide7.jpg")
    Coverflow.AddImage(File.DirAssets,"slide8.jpg")
    Coverflow.AddImage(File.DirAssets,"slide9.jpg")
    Coverflow.AddImage(File.DirAssets,"slide10.jpg")
    Coverflow.AddImage(File.DirAssets,"slide11.jpg")
    Coverflow.AddImage(File.DirAssets,"slide12.jpg")
    Coverflow.AddImage(File.DirAssets,"slide13.jpg")
    Coverflow.AddImage(File.DirAssets,"slide14.jpg")
    Coverflow.Selection = 1
    ProgressDialogHide
End Sub

 

[lonleystar]

Hi,

For some reason, in version 2, if I change this line

From

Coverflow.CreateCache = "Pippo.Pluto.Paperino"

To

Coverflow.CreateCache = "a.b.c.d"

The CoverFlow plugin does not work.
Q. Is the Cache locked to "Pippo.Pluto.Paperino" or can someone use their own cache names?

Q. I have placed the CoverFlow inside a panel with....

pnlCoverFlow.AddView(Coverflow, 0dip, 0dip, 100%x, 100%y)

and did this also

Coverflow.ItemWidth = 50%x
    Coverflow.ItemHeight = 100%y

because I was under the impression that each image will fit the panel size height. Unfortunately it does not. How can I ensure that each image fits perfectly (see attached images for clarity)

Q. Each image I am adding is currently sitting in the Assets folder and I am using AddImage method. I will not use all the images in the assets folder but some. The thing is, I have to call this method below for my code to even display in the emulator otherwise nothing happens. When this line is commented out, my app does not even run.

Coverflow.PopulatePhotoFlowFromAssets("a")

Is it possible to make this library to work without having to populate from assets but instead populate from a list of given files? I don't have a folder called "a" in assets and this methods is supposed to read that folder and display the images isn't it? Below is my complete source for this. Can someone please advise?

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    ProgressDialogShow("Loading...")
    DoEvents
    Activity.LoadLayout("vSplash")
    Activity.Color = Colors.black
    modMashiane.Button_PowderBlueWhite(btnLogin)
    modMashiane.Button_PowderBlueWhite(cmdRegister)
    StateManager.Initialize(Application.LabelName)
    pnlCoverFlow.Color = Colors.transparent
    Coverflow.InitializeCoverflow("Coverflow")
    ' if string below is changed to anything else other than Pippo.Pluto.Paperino
    ' nothing is displayed on coverflow
    Coverflow.CreateCache = "Pippo.Pluto.Paperino"
    pnlCoverFlow.AddView(Coverflow, 0dip, 0dip, 100%x, 100%y)
    Coverflow.Spacing= -15
    Coverflow.ItemWidth = 50%x
    Coverflow.ItemHeight = 100%y
    Coverflow.AnimationDuration=1000
    ' if this line is commented out, the app does start, there is no folder called "a" in assets
    Coverflow.PopulatePhotoFlowFromAssets("a")
    Coverflow.ShowText = False
    Coverflow.AddImage(File.DirAssets,"slide1.jpg")
    Coverflow.AddImage(File.DirAssets,"slide2.jpg")
    Coverflow.AddImage(File.DirAssets,"slide3.jpg")
    Coverflow.AddImage(File.DirAssets,"slide4.jpg")
    Coverflow.AddImage(File.DirAssets,"slide5.jpg")
    Coverflow.AddImage(File.DirAssets,"slide6.jpg")
    Coverflow.AddImage(File.DirAssets,"slide7.jpg")
    Coverflow.AddImage(File.DirAssets,"slide8.jpg")
    Coverflow.AddImage(File.DirAssets,"slide9.jpg")
    Coverflow.AddImage(File.DirAssets,"slide10.jpg")
    Coverflow.AddImage(File.DirAssets,"slide11.jpg")
    Coverflow.AddImage(File.DirAssets,"slide12.jpg")
    Coverflow.AddImage(File.DirAssets,"slide13.jpg")
    Coverflow.AddImage(File.DirAssets,"slide14.jpg")
    Coverflow.Selection = 1
    ProgressDialogHide
End Sub

Hi, if U dont set the cache does matter, it will create a cache named your package name.

right now i tested the library:

Coverflow.CreateCache = "Pippo.Pluto.Paperino"
To
Coverflow.CreateCache = "a.b.c.d"

and work fine.

 

[lonleystar]

Hi guys, I'm going to update the coverflow with the new engine like the gallery and gridview be patience.

 

[Mashiane]

Hi, if U dont set the cache does matter, it will create a cache named your package name.

right now i tested the library:

Coverflow.CreateCache = "Pippo.Pluto.Paperino"
To
Coverflow.CreateCache = "a.b.c.d"

and work fine.

Hi, thanks, can you please answer me in relation to Q2 and Q3 above please?

 

[lonleystar]

Hi, thanks, can you please answer me in relation to Q2 and Q3 above please?

Hi Mashiane, can U help me to understand what is Q2 and Q3 above?

 

[Mashiane]

Hi Mashiane, can U help me to understand what is Q2 and Q3 above?

Q2 and Q3 as question 2 and question 3 respectively. Can you please look into those in the first post? Thanks.

 

[lonleystar]

Q2 and Q3 as question 2 and question 3 respectively. Can you please look into those in the first post? Thanks.

Hi the first question the Cache is not locked, the second question I test with panel and not work fine, third question ShowFromAssets(Your path neme here) instead of PopulatePhotoFlowFromAssets("a")

Best Regard.

G.Salvi

 

[tmf]

OK this is driving me nuts!

First had issues I think finding paths to the files, but now it should be OK as its returning TRUE to the msgbox() seen below... so what is the issue?

Sub Globals
Dim cf As PhotoFlow
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
cf.InitializeCoverflow("cover")
cf.CreateCache = "Pippo.Pluto.Paperino"
cf.Spacing = -20
cf.ItemWidth = 200
cf.ItemHeight = 200
cf.AnimationDuration = 800
cf.ClearCache
Activity.AddView(cf, 0dip, 0dip, 100%x, 100%y)

' returns a TRUE so the file exists
Msgbox(File.Exists("/storage/emulated/0", "k2.jpg"), "")
' returns a TRUE so cf is initialized
Msgbox(cf.IsInitialized, "")

' this next line throws up the error below which I thought was due to file missing
cf.AddImage("/storage/emulated/0", "k2.jpg")
cf.Enabled = True
End Sub

LogCat connected to: B4A-Bridge: motorola XT1064
--------- beginning of main
Installing file.
PackageAdded: package:b4a.example
** Activity (main) Create, isFirst = true **
main_activity_create (B4A line: 43)
cf.AddImage("/storage/emulated/0", "k2.jpg")
java.lang.NullPointerException: Attempt to invoke interface method 'boolean java.util.List.add(java.lang.Object)' on a null object reference
at it.giuseppe.salvi.PhotoFlowActivity.AddImage(PhotoFlowActivity.java:229)
at b4a.example.main._activity_create(main.java:376)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:187)
at b4a.example.main.afterFirstLayout(main.java:100)
at b4a.example.main.access$100(main.java:17)
at b4a.example.main$WaitForLayout.run(main.java:78)
at android.os.Handler.handleCallback(Handler.java:739)
at android.os.Handler.dispatchMessage(Handler.java:95)
at android.os.Looper.loop(Looper.java:135)
at android.app.ActivityThread.main(ActivityThread.java:5310)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:901)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:696)
Installing file.
PackageAdded: package:b4a.example

 

[tmf]

OK I added cf.PopulatePhotoFlowFromAssets("") before cf.addimage and even though it loaded no images from assets it allowed the cf.addimage to work Can someone answer why so I have a full understanding of this.

 

[tmf]

I can not also find any docs for the cf.setlayout() and how to attach text....

Thanks!

 

[lonleystar]

I can not also find any docs for the cf.setlayout() and how to attach text....

Thanks!

Hi, till tonight I'll update the new coverflow with my engine.

 

[tmf]

Thanks! I will test it for you once I receive it, I am actively writing an APP that will require it, hope it works for me!

 

[tmf]

Am I missing the new code? I am newish here and do not know the procedure... where to find it?

 

[victormedranop]

Something strange happened I add the library, I can see the library loaded but I cant create the code.

Dim Coverflow As B4ACoverFlow

 

[victormedranop]

Was my mistake.

 Dim Coverflow As PhotoFlow [\code]

 

[victormedranop]

I need son help with this lib, can't make carousel to start. stay in the first picture.
check my code

#region: image
 If image_list.Size > 0 Then
 ImageView1.Visible = False
 Coverflow.Visible = True
 Coverflow.Carousel = True
 Coverflow.Reverse = True
 Try
 Coverflow.PopulatePhotoFlow(File.DirRootExternal,"") 
 Log("starting coverflow")
 Catch
 Log(LastException)
 End Try
 Else
 Log ("No image files to display ") 
 End If
#end region
[\CODE]

 

[MAGAREY]

It's possible to load the images from an url??

 

[DonManfred]

lonleystar was last seen:
Mar 5, 2017
The author is not active anymore.