German CustomListview Hilfe

Dim bpbg As Bitmap
bpbg.Initialize(File.DirAssets, fname)

Private Sub sv_ScrollChanged(Position As Int)
    If SubExists(CallBack, EventName & "_ScrollChanged") Then
        CallSub2(CallBack, EventName & "_ScrollChanged", Position)
    End If
End Sub

Sub clv3_ScrollChanged(Position As Int)
    Log(Position)
End Sub

Private Sub sv_ScrollChanged(Position As Int)
    If SubExists(CallBack, EventName & "_ScrollChanged") Then
        CallSub2(CallBack, EventName & "_ScrollChanged", Position)
       
        Dim top As Int
        Dim p As Panel
        Dim ia As Int
       
        Dim abheight As Int
       
        'abheight = sv.Height
        abheight = Position
        'Log(abheight)
       
        For i = 0 To items.Size
            p = panels.Get(i)
            If ia < abheight OR ia+p.Height+dividerHeight < abheight Then
                ia = ia + p.Height + dividerHeight
               
            Else
                Exit
            End If
        Next
        Log(i)
    End If
End Sub

Public Sub Initialize (vCallback As Object, vEventName As String)
    sv.Initialize2(0, "sv")
    items.Initialize
    panels.Initialize
    toppanel.Initialize("toppanel")
    dividerHeight = 2dip
    EventName = vEventName
    CallBack = vCallback
    sv.Color = 0xFFD9D7DE 'this sets the dividers color
    Dim r As Reflector
    Dim idPressed As Int
       idPressed = r.GetStaticField("android.R$drawable", "list_selector_background")
    r.Target = r.GetContext
    r.Target = r.RunMethod("getResources")
    pressedDrawable = r.RunMethod2("getDrawable", idPressed, "java.lang.int")
    DefaultTextColor = Colors.White
    DefaultTextSize = 16
    DefaultTextBackgroundColor = Colors.Black
    DefaultTextBackground = Null
    toppanel.Left = sv.Left
    toppanel.Width = sv.Width
    toppanel.Top = sv.Top
    toppanel.Height = 25dip
   
    toppanel.Color = Colors.White
    toppanel.BringToFront
End Sub