B4A Library [Class] ActionBar

Informatix · Aug 23, 2012

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

jmon · May 23, 2013

Thanks,

Actually both of my requests are answered by adding more transparent space around the icon.
Don't know how I didn't think about that!

Sent from my GT-P7500 using Tapatalk HD

Inman · May 25, 2013

I am trying to make the Actionbar title text scroll automatically so that it show longer text. On a label, this is done this way:

B4X:

Dim r As Reflector
 r.Target = TextView
 r.RunMethod2("setLines", 1, "java.lang.int")
 r.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean") 
 r.RunMethod2("setEllipsize", "MARQUEE", "android.text.TextUtils$TruncateAt")
 r.RunMethod2("setSelected", True, "java.lang.boolean")

Even though the title of the Actionbar class is a label, setting the above doesn't always work. It never works the first time but if you open the same activity the second time, it works. Similarly if you switch off the screen while in the activity and then turn the phone on again, the text starts scrolling.

Is it possible to set it to scroll all the time? I remember AHActionBar library had this feature working.

Informatix · May 26, 2013

I have not the slightest idea about this issue.

racerrouthe · May 28, 2013

Inman said:
I am trying to make the Actionbar title text scroll automatically so that it show longer text. On a label, this is done this way:

B4X:

Dim r As Reflector r.Target = TextView r.RunMethod2("setLines", 1, "java.lang.int") r.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean") r.RunMethod2("setEllipsize", "MARQUEE", "android.text.TextUtils$TruncateAt") r.RunMethod2("setSelected", True, "java.lang.boolean")

Even though the title of the Actionbar class is a label, setting the above doesn't always work. It never works the first time but if you open the same activity the second time, it works. Similarly if you switch off the screen while in the activity and then turn the phone on again, the text starts scrolling.

Is it possible to set it to scroll all the time? I remember AHActionBar library had this feature working.

Have you tried adding a DoEvent ?

racerrouthe · May 28, 2013

Font Issue

Hey Informatix, I have an issue concerning the fontsize, didn't have the issue on my HTC Sensation XL(ICS), but on my Xperia Z (Jellybean) they all of a sudden enlarge very much

Informatix · May 28, 2013

racerrouthe said:
Hey Informatix, I have an issue concerning the fontsize, didn't have the issue on my HTC Sensation XL(ICS), but on my Xperia Z (Jellybean) they all of a sudden enlarge very muchView attachment 17564

As you can see with the buttons (the blue rectangle is not in the middle), you have customized settings on your device. If I knew what settings you modified (or were modified by the manufacturer), I could do something.

racerrouthe · May 28, 2013

Informatix said:
As you can see with the buttons (the blue rectangle is not in the middle), you have customized settings on your device. If I knew what settings you modified (or were modified by the manufacturer), I could do something.

I think it's from the manufactur I haven't changed any defaults . But I know the problem also exists on Samsung Galaxy S4 so I suspected it to be a prob with Android 4.1 and reflector maybe.

racerrouthe · May 28, 2013

display

Hey Again, did some diging, could it be because of the high resolution 5", 1920x1080 pixels (441 pixels per square inch) ? How to conver 441 ppi ?

Informatix · May 28, 2013

racerrouthe said:
Hey Again, did some diging, could it be because of the high resolution 5", 1920x1080 pixels (441 pixels per square inch) ? How to conver 441 ppi ?

I found a setting in JellyBean that increases the font size (Settings > Display > Font size). Its default value is Normal.

Another one in Accessibility > Large Text. Should be unchecked.

Maybe there are other settings added by your manufacturer.

That being said, the two settings above should not alter the label size of the class, only the text displayed in the buttons. So I'm still clueless in your case.

racerrouthe · May 28, 2013

Solved

Back Again Can't seem to get the toggle button to act right on with the Led but if any is having same issue actionbar then the simple solution is to make a change in the ClsActionBar code. Maybe Informatix could do an update

Line to be changed is

lbl.TextSize = Round(ActionBar.Height / 5)

Change it to

lbl.TextSize = Round(ActionBar.Height / (3 * Density))

Then it all looks nice

racerrouthe · May 29, 2013

Informatix said:
I found a setting in JellyBean that increases the font size (Settings > Display > Font size). Its default value is Normal.

Another one in Accessibility > Large Text. Should be unchecked.

Maybe there are other settings added by your manufacturer.

That being said, the two settings above should not alter the label size of the class, only the text displayed in the buttons. So I'm still clueless in your case.

Font size is Normal, and Accessibility is unchecked in large text

Informatix · May 29, 2013

racerrouthe said:
Back Again Can't seem to get the toggle button to act right on with the Led but if any is having same issue actionbar then the simple solution is to make a change in the ClsActionBar code. Maybe Informatix could do an update

Line to be changed is

lbl.TextSize = Round(ActionBar.Height / 5)

Change it to

lbl.TextSize = Round(ActionBar.Height / (3 * Density))

Then it all looks nice

It's a bug! Thank you for finding it. I will update the class.

racerrouthe · May 30, 2013

Informatix said:
It's a bug! Thank you for finding it. I will update the class.

You're welcome, glad to give some back, thank you for a great class

ciprian · Aug 9, 2013

Hi there.

I'm trying to add an ProgressBar to replace the "refresh" button.

B4X:

Sub Activity_Create(FirstTime As Boolean)
    'Create 20 items made of a label, button and checkbox.
    Activity.LoadLayout("Main.bal")
   
    AB.Initialize(pnlAB, True, True, pnlAB.Height, Me)
    Dim gd As GradientDrawable, col(2) As Int
    col(0) = Colors.RGB(255, 30, 30)
    col(1) = Colors.RGB(160, 30, 30)
    gd.Initialize("TOP_BOTTOM", col)
    gd.CornerRadius = 8dip
    AB.SetBackground(gd)
    BtnHome = AB.AddButton(LoadBitmap(File.DirAssets, "home.png"), "", 5, 1, "", "Home_LongClick")
    AB.Title.Left = AB.AsPanel.Height + 10dip
    AB.Title.Text = "IPX800 V2"
    AB.Title.TextSize = 20
    AB.AddButton(LoadBitmap(File.DirAssets, "share.png"), "", 5, -1, "", "Share_LongClick")
    'AB.AddButton(LoadBitmap(File.DirAssets, "refresh.png"), "", 5, -1, "", "Refresh_LongClick")
    Dim Pro As ProgressBar
    Pro.Initialize("Pro")
    Pro.Indeterminate = True
    Pro.Visible = False
    AB.AsPanel.AddView(Pro,400,0,100,100)
    AB.AddButton(LoadBitmap(File.DirAssets, "menu.png"), "", 5, -1, "", "Menu_LongClick")
    AB.SetDividerWidth(2dip)
End Sub

I have a button to refresh:

B4X:

Sub ButtonRefresh_click
    Dim Pro As ProgressBar
    Pro.Initialize("Pro")
    Pro.Indeterminate = True
    Pro.Visible = True
End Sub

How can i show the ProgressBar ONLY when clicked on ButtonRefresh ?

Informatix · Aug 9, 2013

The Action Bar is in fact a panel, so you can put anything you want in it as you do with a panel (via the AsPanel function). For example, to add something, you call AB.AsPanel.AddView(....).

ciprian · Aug 10, 2013

Another question: If i create your actionbar in my Main module, it will be showed in other modules?
Or i have to create a second one in the other module?

I'm a newbie...so...dont't be angry if my questions are stupid

Informatix · Aug 10, 2013

There's nothing that persists from an activity to another, so my action bar as everything else cannot stay on top of your activities without being recreated.

ciprian · Aug 10, 2013

I understand. Thank you.

b4auser1 · Nov 25, 2013

Is there an example combining AHNavigationDrawer with this ActionBar ?

Informatix · Nov 25, 2013

b4auser1 said:
Is there an example combining AHNavigationDrawer with this ActionBar ?

I didn't try.

B4A Library [Class] ActionBar

Attachments

Well-Known Member

Well-Known Member

Expert

Member

Member

Expert

Member

Member

Expert

Member

Member

Expert

Member

Active Member

Expert

Active Member

Expert

Active Member

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency