B4A Library [Class] ActionBar

Hi,

This class allows to create Action Bars.

There was already a good library to do that (AHActionBar) but I needed more features and more flexibility. So here is my version.

Tutorials: How they do #2, How they do #3




v1.1:
Fixed a bug in RemoveButton
Added ReplacePressedDrawable
Fixed a bug in the demo

v1.2:
New functions:
- ReplaceDividerDrawable(Drawable As Object)
- SetIconAsWideAsText(Enabled As Boolean)
Updated the demos

v1.3:
Fixed a bug in ResizeButton (the text height was not correctly computed)
New function: FillParent
Removed the limitation of SetFixedWidth (there's no longer minimum width)

v1.4:
Optimized the loading of drawables
Added the Drag&Drop feature
New functions:
- getLeftPosition(Btn As View) As Int
- getRightPosition(Btn As View) As Int
- StartDragAndDrop(Btn As View, ViewToBlock As Object, OnAfterDropSub As String)
- AbortDragAndDrop
- MoveButtonTo(Btn As View, NewPosition As Int)
Renamed ID to Btn in function parameters

v1.41:
Fixed an issue with JellyBean.
Fixed a visual bug with successive Drag&Drops.

v1.42:
Fixed the computation of the text size of buttons;
No more warnings with B4A v2.7.

v1.43:
Fixed a bug (division by zero).

Enjoy,
Fred

 

[Informatix]

I upgraded to Android 4.4.3 and now I am getting an error in the demo in the "UpdateBackground" sub:
java.lang.IllegalArgumentException: unknown bitmap configuration

It worked fine with Android ver 4.4.2 Any Ideas?

I don't have a device with Android v4.4.3 so I cannot test. Do you have this error message with the two demos?

 

[Douglas Farias]

i m upgraded my android to 4.3.3 too and i m using this class no problem
moto g

 

[Informatix]

i m upgraded my android to 4.3.3 too and i m using this class no problem
moto g

I just read french articles on this new version and it seems there are a few issues introduced with it, so they recommend to not upgrade for now (e.g. this link in english). That explains maybe why I didn't receive any proposal of update from Google for my Nexus 7 (usually Nexus devices are the first to be upgraded).

 

[Bonzai543]

I don't have a device with Android v4.4.3 so I cannot test. Do you have this error message with the two demos?

Yes, I received the error in the 2 demos after I upgraded my Nexus 10 to 4.4.3

 

[Informatix]

Yes, I received the error in the 2 demos after I upgraded my Nexus 10 to 4.4.3

This problem was due to a division by zero. It is fixed in v1.43.

 

[Bonzai543]

This problem was due to a division by zero. It is fixed in v1.43.

Thanks! Works Great! Hope you didn't have to upgrade to 4.4.3 to fix it.

 

[Informatix]

Hope you didn't have to upgrade to 4.4.3 to fix it.

Yes I had. My Nexus 7 is a development device, so I upgrade it as soon as possible to see potential problems.

 

[inakigarm]

Hi:

I'd try to use your great class but I've a problem when I've begin to test it; Taking your demo on ActionBar (v1.43), with B4A 3.82 and Reflection lib (2.4), when I change the code of an actionbar button from Long_Click to Click, the behavior seems the same as with LongClick (need a long time click to show the toastMessage)

Is this normal actionbar behavior ??

PD: only change this

actbar1.AddButton(LoadBitmap(File.DirAssets, "refresh.png"), "", 5, -1, "", "Refresh_Click")

Sub Refresh_Click(ActionBar As ClsActionBar, Btn As View)
    ToastMessageShow("Refresh", False)
End Sub

 

[Informatix]

Hi:

I'd try to use your great class but I've a problem when I've begin to test it; Taking your demo on ActionBar (v1.43), with B4A 3.82 and Reflection lib (2.4), when I change the code of an actionbar button from Long_Click to Click, the behavior seems the same as with LongClick (need a long time click to show the toastMessage)

Is this normal actionbar behavior ??

PD: only change this

actbar1.AddButton(LoadBitmap(File.DirAssets, "refresh.png"), "", 5, -1, "", "Refresh_Click")

Sub Refresh_Click(ActionBar As ClsActionBar, Btn As View)
    ToastMessageShow("Refresh", False)
End Sub

You just changed the name of the event. Nothing more. If you want to receive a different event, move the last parameter in AddButton or add a parameter for Click events.

 

[inakigarm]

You just changed the name of the event. Nothing more. If you want to receive a different event, move the last parameter in AddButton or add a parameter for Click events.

Ooopps... Thanks

 

[shasunder]

Hi

Let us assume that i have 3 buttons in Actionbar. How to click the button programatically. I know it can be achieved by using Reflection. Could some one shed light to me please...

lasttab = AB.AddButton(LoadBitmap(File.DirAssets, "tab_selected.png"), "Home", 5, 1, "Home_Click", "Home_LongClick")
AB.SetIconAsWideAsText(True)
AB.AddButton(LoadBitmap(File.DirAssets, "tab_normal.png"), "Favorite", 5, 2, "Star_Click", "Star_LongClick")
AB.AddButton(LoadBitmap(File.DirAssets, "tab_normal.png"), "Share", 5, 3, "Share_Click", "Share_LongClick")


Sub Home_Click(ActionBar As ClsActionBar, btn As View)
If lasttab.IsInitialized Then
AB.ReplaceIcon(lasttab, LoadBitmap(File.DirAssets, "tab_normal.png"))
End If
AB.ReplaceIcon(btn, LoadBitmap(File.DirAssets, "tab_selected.png"))
lasttab = btn

Sub Share_Click(ActionBar As ClsActionBar, btn As View)
If lasttab.IsInitialized Then
AB.ReplaceIcon(lasttab, LoadBitmap(File.DirAssets, "tab_normal.png"))
End If
AB.ReplaceIcon(btn, LoadBitmap(File.DirAssets, "tab_selected.png"))
lasttab = btn

Sub Refresh_Click(ActionBar As ClsActionBar, btn As View)
If lasttab.IsInitialized Then
AB.ReplaceIcon(lasttab, LoadBitmap(File.DirAssets, "tab_normal.png"))
End If
AB.ReplaceIcon(btn, LoadBitmap(File.DirAssets, "tab_selected.png"))
lasttab = btn

 

[Informatix]

Hi

Let us assume that i have 3 buttons in Actionbar. How to click the button programatically. I know it can be achieved by using Reflection. Could some one shed light to me please...

To click a button programatically, just call its Click sub (...or I don't understand the question).

 

[shasunder]

To click a button programatically, just call its Click sub (...or I don't understand the question).

Thanks Informatix.

If it is
Sub btn_new()

then calling btn_new will work. But for this case

Share_Click(ActionBar As ClsActionBar, btn As View)

if I call share_click I get the below error

B4A version 4.30
Parsing code. 0.06
Compiling code. Error
Error compiling program.
Error description: Syntax error (missing parameter).
Occurred on line: 143
Share_Click
Word: share_click

 

[Informatix]

Thanks Informatix.

If it is
Sub btn_new()

then calling btn_new will work. But for this case

Share_Click(ActionBar As ClsActionBar, btn As View)

if I call share_click I get the below error

B4A version 4.30
Parsing code. 0.06
Compiling code. Error
Error compiling program.
Error description: Syntax error (missing parameter).
Occurred on line: 143
Share_Click
Word: share_click

Your error is explicitely given: Syntax error (missing parameter).
You forgot to pass parameters to the function.

 

[shasunder]

Your error is explicitely given: Syntax error (missing parameter).
You forgot to pass parameters to the function.

That is where I am having problem with. Dont know how to pass the parameters for action bar and button.My action bar is defined as "AB".
Some how I solved it by other work around. But Still interested to know how to programatically click.

 

[Informatix]

That is where I am having problem with. Dont know how to pass the parameters for action bar and button.My action bar is defined as "AB".
Some how I solved it by other work around. But Still interested to know how to programatically click.

??? The function has two parameters: ActionBar As ClsActionBar, btn As View. Then pass the action bar (AB) and the button. Where's the difficulty ?

 

[shasunder]

??? The function has two parameters: ActionBar As ClsActionBar, btn As View. Then pass the action bar (AB) and the button. Where's the difficulty ?

Thanks informatix. Your thought helped me. This is how it worked.

homebtn = AB.AddButton(LoadBitmap(File.DirAssets, "tab_selected.png"), "Home", 5, 1, "Home_Click", "Home_LongClick")
AB.SetIconAsWideAsText(True)
If FirstTime=True Then lasttab =homebtn
favbtn= AB.AddButton(LoadBitmap(File.DirAssets, "tab_normal.png"), "Favorite", 5, 2, "Star_Click", "Star_LongClick")
sharebtn =AB.AddButton(LoadBitmap(File.DirAssets, "tab_normal.png"), "Share", 5, 3, "Share_Click", "Share_LongClick")
refbtn =AB.AddButton(LoadBitmap(File.DirAssets, "tab_normal.png"), "About", 5, 4, "Refresh_Click", "Refresh_LongClick")

and calling

Star_Click(AB,favbtn)

worked. Thanks. Thanks again.

 

[BarryW]

I love this...

Is there any animated transition when button is remove or icon is replaced? Just an idea. Tnx...

 

[Informatix]

Is there any animated transition when button is remove or icon is replaced?

No. But you have the source code so you can add that easily.

 

[BarryW]

Can you post a sample?