Android Question Loop through buttons

[Zeev Goldstein]

Hi

My app has multiple panels, each is a view wirh it's own buttons (simple buttons)

I want to loop on app load through all buttons, but only buttons
Currently when I loop I also get checkboxes...

Is there a way to loop and get only buttons?

Thanks

 

[Mahares]

Check out Erel's answer here:

Referencing multiple objects

Hi everyone. Assuming I put a button on a screen, and I want all of it to be disabled. I have to by the command button.enable = False. Now suppose on that same screen I want to put 40 buttons. I'll have to put btn1.enable = False for all of them? Or is there any way to steady them all at once...

www.b4x.com

 

[Zeev Goldstein]

Check out Erel's answer here:

Referencing multiple objects

Hi everyone. Assuming I put a button on a screen, and I want all of it to be disabled. I have to by the command button.enable = False. Now suppose on that same screen I want to put 40 buttons. I'll have to put btn1.enable = False for all of them? Or is there any way to steady them all at once...

www.b4x.com

thanks,

i did try it but got error

Compiling code. Error
Error compiling program.
Error description: Regular variable followed by '=' expected.
Error occurred on line: 9615
For b As B4XView in Activity.GetAllViewsRecursive
Word: as

i'm feeling lost...

 

[Sagenut]

For b As B4XView in Activity.GetAllViewsRecursive

For Each b As B4XView in Activity.GetAllViewsRecursive

 

[Zeev Goldstein]

For Each b As B4XView in Activity.GetAllViewsRecursive

thanks

that did solve the error
but doesn't let me do what i want - i want to change colors...

something like this


Dim cd As ColorDrawable
cd.initialize2(bColor,50,3,fColor)

Try

For Each b As B4XView In Activity.GetAllViewsRecursive
If b Is Button Then
b.color = bColor
b.TextColor = tColor
b.Background = cd
End If
Next

Catch
Log (LastException.Message)
End Try

 

[Sagenut]

In your layout Buttons are declared as Button or B4XView?

 

[Zeev Goldstein]

In your layout Buttons are declared as Button or B4XView?

button

 

[Sagenut]

Try this

For Each b As Button In Activity.GetAllViewsRecursive
    If b Is Button Then
        b.As(B4XView).SetColorAndBorder(Colors.Red, 5, Colors.Blue, 25)
        b.As(B4XView).TextColor = Colors.Black
    End If
Next

Remove or comment this

Dim cd As ColorDrawable
cd.initialize2(bColor,50,3,fColor)

 

[Sagenut]

I made some change in the previous code because probably I got inverted value for BorderWidth and CornerRadius.

 

[Mahares]

You can alternatively use this:
You can declare them as button or B4XView in Globals

For Each b As B4XView In Activity.GetAllViewsRecursive
        If b Is Button Then
            b.SetColorAndBorder(xui.Color_Black, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
'            'the rest that applies to B4XView. You cannot use colorDrawable
        End If
    Next

Make sure you use dips like 50dip not 50
My goodness Zeev, you should use code tags when you post code

 

[Zeev Goldstein]

You can alternatively use this:
You can declare them as button or B4XView in Globals

For Each b As B4XView In Activity.GetAllViewsRecursive
        If b Is Button Then
            b.SetColorAndBorder(xui.Color_Black, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
'            'the rest that applies to B4XView. You cannot use colorDrawable
        End If
    Next

Make sure you use dips like 50dip not 50
My goodness Zeev, you should use code tags when you post code

thanks,
i'm sure i missed something

when using your code with root - i get error: Undeclared variable 'root' is used before it was assigned any value.

when using the second sample with xui i get: Undeclared variable 'xui' is used before it was assigned any value.

library xui is added of course

 

[Sagenut]

Your project is based on old Activities, so just change Root in Activity.
Root it's for B4XPages based projects.
Probably you are even missing

Private Xui as Xui

in Process_Globals.

 

[Zeev Goldstein]

Your project is based on old Activities, so just change Root in Activity.
Root it's for B4XPages based projects.
Probably you are even missing

Private Xui as Xui

in Process_Globals.

something is wrong here, i get errors on stack now
seems i will have to go the primitive way - do it one by one as this way it works
thanks for the good will to help

 

[Sagenut]

I am quite confident that the code posted by @Mahares should work for you.
If not it would be helpful to post your code.
We are trying our best.

 

[Zeev Goldstein]

I am quite confident that the code posted by @Mahares should work for you.
If not it would be helpful to post your code.
We are trying our best.

i know you are, and i truly appreciate it
i did post the code that in question
but the entire app is huge and i don't think is relevant
i use buttons (simple buttons -> dim b as button
i just want to loop the button and manipulate the colors
i can do it one by one and it works
all the loops did not work as i wanted

 

[Mahares]

know you are, and i truly appreciate it

Here is a full conventional project that will illustrate the objective. To give you an idea

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Button1, Button2, Button3, Button4 As B4XView
    Private xui As XUI
    Private Panel1 As B4XView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layoutb")
    Panel1.SetColorAnimated(200, xui.Color_DarkGray, xui.Color_LightGray)
    For Each b As B4XView In Panel1.GetAllViewsRecursive
'    For Each b As B4XView In Activity.GetAllViewsRecursive  'this works too
        If b Is Button Then
            b.SetColorAndBorder(xui.Color_Black, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
            b.TextColor =xui.Color_White
'            b.col'the rest . You cannot use colorDrawable
        End If
    Next
End Sub

 

[Zeev Goldstein]

Here is a full conventional project that will illustrate the objective. To give you an idea

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Button1, Button2, Button3, Button4 As B4XView
    Private xui As XUI
    Private Panel1 As B4XView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layoutb")
    Panel1.SetColorAnimated(200, xui.Color_DarkGray, xui.Color_LightGray)
    For Each b As B4XView In Panel1.GetAllViewsRecursive
'    For Each b As B4XView In Activity.GetAllViewsRecursive  'this works too
        If b Is Button Then
            b.SetColorAndBorder(xui.Color_Black, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
            b.TextColor =xui.Color_White
'            b.col'the rest . You cannot use colorDrawable
        End If
    Next
End Sub

it is identical to what i've tried
it does the job but also take checkboxes as buttons...

 

[Mahares]

it does the job but also take checkboxes as buttons...

Check this out:

For Each b As B4XView In Panel1.GetAllViewsRecursive
        If b Is CheckBox Then
            b.SetColorAndBorder(xui.Color_white, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
            b.Checked = True
            b.Text = "Zeev"
        else if b Is Button Then
            b.SetColorAndBorder(xui.Color_Green, 4dip, xui.Color_Yellow, 10dip)
            b.TextColor =xui.Color_Red           
        End If
    Next

 

[Zeev Goldstein]

Check this out:

For Each b As B4XView In Panel1.GetAllViewsRecursive
        If b Is CheckBox Then
            b.SetColorAndBorder(xui.Color_white, 4dip, xui.Color_Cyan, 10dip)  'need to use the B4XViews properties
            b.Checked = True
            b.Text = "Zeev"
        else if b Is Button Then
            b.SetColorAndBorder(xui.Color_Green, 4dip, xui.Color_Yellow, 10dip)
            b.TextColor =xui.Color_Red          
        End If
    Next

View attachment 138300

YES!!! YES!!!
that's it
THANK YOU!