German Custom ScrollView

Kanne

Member
Licensed User
Longtime User
Hi Leute,
bin heute irgendwie daneben - habe mir diverse Beispiele angesehen,
bekomme auf meine Scrollview aber nichts angezeigt - kann mir mal jemand kurz die Augen waschen ?!


Scrollview:
Sub Globals
    Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    Dim svPanel As Panel
    svPanel = ScrollView1.Panel
    For i = 0 To 3
        Dim tmpP As Panel
        tmpP.Initialize("")
        tmpP.SetLayout(0,0,svPanel.Width,svPanel.height/10)
        svPanel.AddView(tmpP, 5dip, 5dip + i * tmpP.height, tmpP.Width, tmpP.Height)
        Dim tmpL As Label
        tmpL.Initialize("")
        tmpL.SetLayout(0,0,tmpP.Width,tmpP.height)
        tmpL.Text = "TEST" & NumberFormat(Rnd(1,1000),3,0)
        tmpP.AddView(tmpL, 0, 0, tmpL.Width, tmpL.height)
    Next
End Sub
 

Kanne

Member
Licensed User
Longtime User
wie blöde: macht alles was es soll, man sieht nur nichts, weil weiße Schrift auf weißen Hintergrund :rolleyes:
B4X:
tmpL.TextColor = Colors.red
und alles super ...
 

klaus

Expert
Licensed User
Longtime User
Habe gerade Deinen letzten Post gesehen während ich beim antworten war.

Aber trotz dem, was genau willst Du machen?
Ich hab da zwie Fragen:
1. Warum benutzt Du ein Panel und dann gibst Du ein Label mit den gleichen Massen darauf, warum ?
Du könntest direkt ein Label nehmen, ohne dem Panel.
2. Du setzt die Höhe der Panels auf svPanel.Height / 10. Warum?
In meiner Meinung solltest Du eine bestimmte Höhe im Code eingeben und nicht die interne Panel Höhe die im Designer angegeben wurde..
Und dann, am Ende, ScrollView1.Panel.Height aud den richtigen Wert setzen.

Als Anhang mein Test Programm, wie ich es machen würde.
 

Attachments

  • ScrollView.zip
    9 KB · Views: 155
Top