German CustomListView Breitenangabe bei AddView

KL7000F

Member
Licensed User
Longtime User
Hallo,

ich füge in eine CustomListView über folgenden Befehl eine "Trennlinie" ein:
B4X:
CListView.Add(AddLine, 1dip, "line0")

AddLine sieht folgendermaßen aus:
B4X:
Sub AddLine As Panel
    Dim p As Panel
    p.Initialize("")
    p.Color = Colors.LightGray
    Dim p2 As Panel
    p2.Initialize("")
    p2.Color = Colors.LightGray
    p.AddView(p2, 5dip, 2dip, CListView.AsView.Width, 1dip)
    Return p
End Sub

Ich habe nun das Problem, dass die Breite der Linie nicht veränderbar ist. Diese wird, wenn in der Liste gescrollt wird, vom "Scrollbalken" überdeckt (siehe Screenshot). Ich möchte diesen somit auf der rechten Seite ein Stück kürzen. Ich hatte folgendes ohne Erfolg getestet:

B4X:
p.AddView(p2, 5dip, 2dip, CListView.AsView.Width - 100dip, 1dip)
B4X:
p.AddView(p2, 5dip, 2dip, 100dip, 1dip)

Wo stehe ich am Schlauch?

Gruß
Andy
 

Attachments

  • Screenshot_2014-09-09-21-01-59.png
    Screenshot_2014-09-09-21-01-59.png
    251.5 KB · Views: 180

klaus

Expert
Licensed User
Longtime User
Ich habe noch nie tief in die CustoListView reingeschaut.
Aber könntest Du dein Projekt als zip Datei posten oder besser ein kleines Projekt welches das Problem zeigt.
Dann können wir reinschauen.
Bist Du sicher dass die Linie die Du siehst wirklich das Panel p2 ist und nicht das Panel p ?
 

KL7000F

Member
Licensed User
Longtime User
Bingo! Ich hatte beide Panel in der gleichen Farbe und das Zweite war mit einem Top-Wert von 2dip im nicht sichtbaren Bereich des ersten Panel (Höhe 1dip). Panel 1 ist jetzt Transparent und das Zweite arbeitet schön nach meinen gewünschten Werten.

Danke für den kleinen, aber hilfreichen, Tipp! :)
 
Top