Android Question DesignerArgs with CustomView

Cadenzo · Saturday at 10:05 AM

How can I get a CustomView from the DesignerArgs? Here I read, that it is in the .Tag of B4XView. But the code below does not work (java.lang.RuntimeException: Field: ba not found in: android.widget.TextView)

B4X:

'Parameters: PrimaryColorID, SecondaryColorID, View(s)
Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs)
    If DesignerArgs.FirstRun Then
        Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
        Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
        For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            Dim sbtn As SwiftButton = v.Tag 'tag empty?
            sbtn.SetColors(iPrimary, iSecondary)
        Next
    End If
End Sub

'in DesignedScript:
MyDDD.SetSwiftbuttonColor(4, 5, SwiftButton1)

teddybear · Sunday at 8:53 AM

Add sleep in sub SetSwiftbuttonColor, it will work，B4j is not required.

B4X:

Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs)
    Sleep(10)
    Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
    Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
    For i = 2 To DesignerArgs.Arguments.Size - 1
        Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
        If v.tag Is SwiftButton Then
            Dim sbtn As SwiftButton = v.Tag
            sbtn.SetColors(iPrimary, iSecondary)
        End If
    Next
End Sub

teddybear · Saturday at 5:28 PM

Try this code

B4X:

Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs) 
        Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
        Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
        For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            If v.tag Is SwiftButton Then
                Dim sbtn As SwiftButton = v.Tag
                sbtn.SetColors(iPrimary, iSecondary)
            End If
        Next
End Sub

Cadenzo · Saturday at 11:19 PM

This is not working. The argument is a SwiftButton, but the v.Tag is not.

Erel · Sunday at 7:02 AM

What is the output of:

B4X:

  For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            Log(GetType(v))
            Log(GetType(v.Tag))
        Next

And also post the designer script.

teddybear · Sunday at 7:35 AM

Erel said:
What is the output of:

B4X:

For i = 2 To DesignerArgs.Arguments.Size - 1 Dim v As B4XView = DesignerArgs.GetViewFromArgs(i) Log(GetType(v)) Log(GetType(v.Tag)) Next

And also post the designer script.

The designer script is same as post #1
Output

B4X:

anywheresoftware.b4a.BALayout
android.widget.TextView

teddybear · Sunday at 8:53 AM

Add sleep in sub SetSwiftbuttonColor, it will work，B4j is not required.

B4X:

Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs)
    Sleep(10)
    Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
    Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
    For i = 2 To DesignerArgs.Arguments.Size - 1
        Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
        If v.tag Is SwiftButton Then
            Dim sbtn As SwiftButton = v.Tag
            sbtn.SetColors(iPrimary, iSecondary)
        End If
    Next
End Sub

Cadenzo · Sunday at 9:45 AM

Very good! With sleep it is working. Thanks!

Android Question DesignerArgs with CustomView

Cadenzo

Active Member

teddybear

teddybear

Well-Known Member

Cadenzo

Active Member

Erel

B4X founder

teddybear

Well-Known Member

teddybear

Well-Known Member

Attachments

Cadenzo

Active Member

Similar Threads

Android Question DesignerArgs with CustomView

Active Member

Well-Known Member

Active Member

B4X founder

Well-Known Member

Well-Known Member

Attachments

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency