B4A Class [B4X] [XUI] SD BottoMenu (with source code)

SD_BottoMenu (update)

Author: Star-Dust
Version: 1.6

• BottoMenu
  • Events:
    • Selected (Value As Int)
  • Fields:
    • BackGroundColor As Int
    • Position As Int
      ' get or set Position
  • Functions:
    • AddMenu (CharText As String, FontName As B4XFont) As String
    • Class_Globals As String
    • Clear As String
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
      Base type must be Object
    • Initialize (Callback As Object, EventName As String) As String
    • Invalidate As String
    • IsInitialized As Boolean
      Verifica se l'oggetto sia stato inizializzato.
    • SetValueAt(Position As Int, CharText As String, FontName As B4XFont)
    • TransitionAnimated (Duration As Int, FromBmp As B4XBitmap, ToBmp As B4XBitmap, ImageView As B4XView) As ResumableSub

 

[Star-Dust]

Attached are the examples for B4A, B4J, B4i

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    BottoMenu1.AddMenu(Chr(0xF009),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF0CA),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF0EC),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF096),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF2C0),xui.CreateFontAwesome(18))
End Sub

Sub BottoMenu1_Selected(Value As Int)
    Log(Value)
End Sub

 

[itgirl]

WOW Looks very nice shows the power of B4X thanks

 

[Brandsum]

The circle animation is flickering.

 

[Star-Dust]

The circle animation is flickering.
View attachment 77627

It's made on purpose. Find a second animation in the example.
But you can use others that you find in the forum as BITMAPCREATOR EFFECT

    TransitionAnimated(200,GenerateBitmapSelected("",xui.Color_Black,xui.CreateDefaultBoldFont(16)),GenerateBitmapSelected(M.Get("CharText"),xui.Color_Black,M.Get("Font")),Slct)

 

[Brandsum]

It's made on purpose. Find a second animation in the example.
But you can use others that you find in the forum as BITMAPCREATOR EFFECT

    TransitionAnimated(200,GenerateBitmapSelected("",xui.Color_Black,xui.CreateDefaultBoldFont(16)),GenerateBitmapSelected(M.Get("CharText"),xui.Color_Black,M.Get("Font")),Slct)

Not that icon animation, but the white circle and the curve beside the circle.

 

[Star-Dust]

Not that icon animation, but the white circle and the curve beside the circle.

It makes no flicker for me.
Show me exactly the defect.

However I have provided the source, you can see the code yourself and modify it for your device.
But I saw that you accepted the challenge of creating a menu similar to this ... I suggest you to start from scratch without seeing mine

 

[Star-Dust]

However if you see the grainy circle in your device then you simply need to increase the resolution of the images it creates (sub GenerateBitmap)

 

[Brandsum]

But I saw that you accepted the challenge of creating a menu similar to this

Sorry! but I haven't accepted any challenge. I have already started to work on that menu before you posted your work. That's why I don't want to move my incompleted work to trash.

I suggest you to start from scratch without seeing mine

Oh sure!! I will not copy your code.

 

[Star-Dust]

Sorry! but I haven't accepted any challenge. I have already started to work on that menu before you posted your work. That's why I don't want to move my incompleted work to trash.

Oh sure!! I will not copy your code.

It is not a problem that others take my code, I have made available the source because I also wish others can take advantage of it, modifying it, improving it or learning some notion.

In case you had accepted the challenge then the question would have been different, but you explained to me that this is not the case

 

[Star-Dust]

I improved the code and enlarged the selection sphere. I attach the code
(Now also for B4J)

 

[Kope]

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    BottoMenu1.AddMenu(Chr(0xF009),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF0CA),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF0EC),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF096),xui.CreateFontAwesome(18))
    BottoMenu1.AddMenu(Chr(0xF2C0),xui.CreateFontAwesome(18))
End Sub

Sub BottoMenu1_Selected(Value As Int)
    Log(Value)
End Sub

Great Job!!
Can you please help with how to navigate to another activity or layout?
thank you

 

[Star-Dust]

Great Job!!
Can you please help with how to navigate to another activity or layout?
thank you

 

[Kope]

Wow!! that was quick and amazing
but wanted to know if it would be possible to navigate between Activities and or Layouts other than Panels on the Same Layout
Thank You

 

[Star-Dust]

Wow!! that was quick and amazing
but wanted to know if it would be possible to navigate between Activities and or Layouts other than Panels on the Same Layout
Thank You

Maybe I did not understand what you want to get. Spice better or show a picture that illustrates it

 

[Marlou Fin]

Hi Star-Dust, what his trying to say is that, how we can navigate or call other layout or form everytime you click the button? and also how can we add another icon in the button?

 

[Star-Dust]

Hi Star-Dust, what his trying to say is that, how we can navigate or call other layout or form everytime you click the button? and also how can we add another icon in the button?

In the example at post#13, each button calls a different Layout.

The buttons can be changed simply by changing the character FontAwesone, then you can also modify the code and insert images instead of text.

But you have to develop all of this, otherwise you can not learn and improve your skills

 

[Marlou Fin]

Thanks Star-Dust for the tips, just last question, where you can get a table for this one Chr(0xF009)?

 

[Star-Dust]

Click sx Mouse Button

 

[Marlou Fin]

Hayz, sorry for my ignorance Star-Dust, I thought need to get the value from the unicode something! hehehe! anyway I got it. Thanks very much