German CustomListView Breitenangabe bei AddView

[KL7000F]

Hallo,

ich füge in eine CustomListView über folgenden Befehl eine "Trennlinie" ein:

CListView.Add(AddLine, 1dip, "line0")

AddLine sieht folgendermaßen aus:

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:

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

p.AddView(p2, 5dip, 2dip, 100dip, 1dip)

Wo stehe ich am Schlauch?

Gruß
Andy

 

[klaus]

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]

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!