iOS Question Current declaration does not match previous one, how to figure out the cause

[mcqueccu]

What is the Alternative way to figure out the Declaration causing this error.
I started having this error after modifying a project. I did a lot of changes so I could not figure out where the issue is coming from. The project is big with several modules and resources so I could not upload it.

Current declaration does not match previous one.
Previous: {Type=Int,Rank=0, RemoteObject=True}
Current: {Type=Float,Rank=0, RemoteObject=True}

B4i Version: 8.51
Parsing code.    (0.55s)
Building folders structure.    (0.03s)
Compiling code.    Error
Error compiling program.
Error description: Current declaration does not match previous one.
Previous: {Type=Int,Rank=0, RemoteObject=True}
Current: {Type=Float,Rank=0, RemoteObject=True}
Error occurred on line: 255
Dim BorderWidth As Float = NaObj.GetField("layer").GetField("borderWidth").AsNumber

From the Compilation Window above.
1. I checked all line 255 in all modules, and there is no such Declaration.
2. I did Search and Find for Dim BorderWidth As Float But there is nothing like that in the project
3. I search for Float, I only found dialog.BorderWidth = 0 which is related to B4XDialog. I removed all of them but no result

Any Help is appreciated

 

[Daestrum]

That error sounds like you are re-dimming a variable and the new Dim .. AS doesn't match the original one
example

Dim A As Int
....
Dim A As Long

Can throw that error.

It looks like an Int is being re-dimmed as a Long.

 

[AnandGupta]

Search for BorderWidth in all your source in the project.
If you find two declaration then you found the error to fix.
If you do not find two declaration then one is most probably in some library.

Change BorderWidth to BorderWidth2 or any other name and then compile.

 

[mcqueccu]

This will be easy if module name is added to the error message.

I searched the BorderWidth, no single result from any module. I wonder where it's coming from.

 

[Alexander Stolte]

Dim BorderWidth As Float = NaObj.GetField("layer").GetField("borderWidth").AsNumber

are you using one of these AS_Views?

 

[mcqueccu]

Yes.

 

[Alexander Stolte]

So it can't be the AS_SegmentedTab, the code is on line 556 and I can also compile without problems. And the full list of libs in the project?

 

[mcqueccu]

Its not Your Views...
With your Help, I was able to narrow it down to this Library AmProgressbutton.

[B4X] [XUI Views] - AMProgressButton

Hello, My New Cross Platform Library is ready now :) A new styled button with built-in progressbar Features Cross-platform compatible A good text animation Changeable values Custom Colors Custom Border And CornerRadius Tested in B4A B4J * I don't have tested it with B4I, but it should...

www.b4x.com

I used the B4XLib in B4A, I forgot its untested in B4i

Looking at the Class (.bas) file. Class Globals Contains this

Sub Class_Globals
    Public BorderWidth As Int    '<-----int 
End Sub

Whiles

Private Sub SetCircleClip (pnl As B4XView,radius As Int)
#if B4J
    Dim jo As JavaObject = pnl
    Dim shape As JavaObject
    Dim cx As Double = pnl.Width
    Dim cy As Double = pnl.Height
    shape.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
    If radius > 0 Then
        Dim d As Double = radius
        shape.RunMethod("setArcHeight", Array(d))
        shape.RunMethod("setArcWidth", Array(d))
    End If
    jo.RunMethod("setClip", Array(shape))
#else if B4A
    Dim jo As JavaObject = pnl
    jo.RunMethod("setClipToOutline", Array(True))
    pnl.SetColorAndBorder(pnl.Color,0,0,radius)
    #Else If B4I
    Dim NaObj As NativeObject = pnl
    Dim BorderWidth As Float = NaObj.GetField("layer").GetField("borderWidth").AsNumber '<------------------fLOAT'
    ' *** Get border color ***
    Dim noMe As NativeObject = Me
    Dim BorderUIColor As Int = noMe.UIColorToColor (noMe.RunMethod ("borderColor:", Array (pnl)))
    pnl.SetColorAndBorder(pnl.Color,BorderWidth,BorderUIColor,radius)
#end if
End Sub