Hi all,
I've this piece of code where there is a Select Case.
I pass to the sub a List of arguments as objects, the first argument Args.Get(0) is a B4XRect.
The problem here is that I cannot recreate a B4XRect passed as Object and the error occours
on the line Dim left As Float = rect.Left
On this line in Debug mode I can see the passed rectangle dimensions, but may it is transformed to string when iI put in the list ?
I construct the list this way, CM is a command and arguments separator, I cannot use just a single character like a comma
because need to be a pattern because I use some commands that accept strings and the split command confuse it.
Note that separator is not a problem, I've used it in other commands and in other projects and it works.
Here is how B4XRect looks inside the Args list:
Attached the error log.
Thanks
I've this piece of code where there is a Select Case.
I pass to the sub a List of arguments as objects, the first argument Args.Get(0) is a B4XRect.
The problem here is that I cannot recreate a B4XRect passed as Object and the error occours
on the line Dim left As Float = rect.Left
B4X:
Case "DrawRoundRectRotated" ' DrawRoundRectRotated(Rect As B4XRect, Color As Int, Filled As Boolean, StrokeWidth As Float, CornerRadius As Float, Degrees As Float)
Dim path As B4XPath
Dim rect As B4XRect = Args.Get(0).As(B4XRect)
Dim left As Float = rect.Left
Dim top As Float = rect.Top
Dim right As Float = rect.Right
Dim bottom As Float = rect.Bottom
rect.Initialize(left, top, right, bottom)
path.InitializeRoundedRect(rect, Args.Get(4))
cvs.DrawPathRotated(path, Args.Get(1), Args.Get(2), Args.Get(3), Args.Get(5), rect.CenterX, rect.CenterY) ' 0 degreesOn this line in Debug mode I can see the passed rectangle dimensions, but may it is transformed to string when iI put in the list ?
B4X:
Dim rect As B4XRect = Args.Get(0).As(B4XRect)I construct the list this way, CM is a command and arguments separator, I cannot use just a single character like a comma
because need to be a pattern because I use some commands that accept strings and the split command confuse it.
Note that separator is not a problem, I've used it in other commands and in other projects and it works.
B4X:
Private Sub Class_Globals
Private fx As JFX
Private xui As XUI
Private Const CM As String = "-,-" ' Separator
Private DrawList As List ' List of all drawings
Private ArgList As List ' List of all arguments
Private mAutoInvalidate As Boolean = False
End Sub
'Similar to DrawRoundRect. Draw a rectangle with round corners and rotated by Degrees angle.
Sub DrawRoundRectRotated(Rect As B4XRect, Color As Int, Filled As Boolean, StrokeWidth As Float, CornerRadius As Float, Degrees As Float)
ArgList.Initialize2(Array(Rect, Color, Filled, StrokeWidth, CornerRadius, Degrees))
InvalidateCommand("DrawRoundRectRotated", ArgList)
End Sub
Private Sub InvalidateCommand(cmd As String, Args As List)
' Try
If mAutoInvalidate Then
ParseCommand(cmd, Args)
Else
Dim oCmd As Object = cmd
For Each o As Object In Args
oCmd = oCmd & CM & o
Next
DrawList.Add(oCmd)
End If
' Catch
' Log("ERROR: " & LastException)
' End Try
End SubHere is how B4XRect looks inside the Args list:
Attached the error log.
Thanks
Last edited:
