German xCustomListView Für B4A und B4J - Problem mit "Pane" + "Panel"

Sub CreateListItemB4A(Text As String, Width As Int, Height As Int) As Panel

Sub CreateListItemB4J(Text As String, Width As Int, Height As Int) As Pane

#if B4A
#else if B4J
#end if

#If b4j
    Sub CreateListItem(Text As String, Width As Int, Height As Int) As Pane
#Else If b4a
    Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
#End If

' Do something

End Sub

Sub test()
    ' Deklaration
#if b4j
    Dim pnl As Pane
#Else if b4a
 Dim pnl As Panel
#End If

    pnl = CreateListItem("Test", 300, 300)
End Sub

#If b4j
    Sub CreateListItemB4j(Text As String, Width As Int, Height As Int) As Pane
    ' Do something B4j
    End Sub
#Else If b4a
    Sub CreateListItemB4a(Text As String, Width As Int, Height As Int) As Panel
    ' Do something B4a
    End Sub
#End If

Sub CreateListItem(Text As String, Width As Int, Height As Int) As B4XView
    #if b4j
        Return CreateListItemB4j(Text, Width, Height)
    #else if b4a
        Return CreateListItemB4a(Text, Width, Height)
    #End If
    
End Sub

Sub test()
    ' Deklaration
#if b4j
    Dim pnl As Pane
#Else if b4a
 Dim pnl As Panel
#End If

    pnl = CreateListItem("Test", 300, 300)
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
    FillCustomListView
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub FillCustomListView
    Private i As Int
  
    For i = 0 To 20
        CustomListView1.Add(CreateItem(i, CustomListView1.AsView.Width, 60dip), i)
    Next
End Sub

Private Sub CreateItem(i As Int, Width As Int, Height As Int) As B4XView
    Private pnl As B4XView
  
    pnl = xui.CreatePanel("")
    pnl.SetLayoutAnimated(0, 0, 0, Width, Height - 2dip)
    pnl.Color = xui.Color_Blue
    pnl.LoadLayout("Item")
    Label1.Text = "Test " & i
    Button1.Text = "Click " & i
  
    Return pnl
End Sub