German Rand um Panel funktioniert/funktioniert nicht

strupp01

Active Member
Licensed User
Longtime User
Ich habe nun, mit Hilfe von Klaus, mein Programm vorerst zum laufen gebracht. Ich habe noch zusätzlich einen Rand um die Panels gelegt, was auch erstmal funktioniert.
Merkwürdig ist, wenn ich zwischen den Ansichten "Statistik" und z. B. "Uebersicht" mehrmals hin und her wechsel, erscheint am Panel1 im ScrollView der Rand einmal komplett und ein anderes mal fehlt die untere Linie mit den Rundungen.
Es kann doch nicht sein, dass ein Programm mal so und dann wieder anders reagiert. Hilfe !!!!!
 

Attachments

  • SchlafGut.zip
    29.7 KB · Views: 246

klaus

Expert
Licensed User
Longtime User
Du musst fur jedes Panel cP neu definieren.

B4X:
    Dim Panel2 As Panel
    Panel2.Initialize("")
'    Panel2.Color = Colors.Blue
    Panel2.Tag = 1
    Dim cP As ColorDrawable
    cP.Initialize2(Colors.White, 10dip,3dip,Colors.Black)
    Panel2.Background = cP
    Panel0.AddView(Panel2,10dip, 20dip, ScrollView1.Width - 20dip, 200dip)

    Dim Panel3 As Panel
    Panel3.Initialize("")
    '    Panel3.Color = Colors.Cyan
    Panel3.Tag = 2
    Dim cP As ColorDrawable
    cP.Initialize2(Colors.White, 10dip,3dip,Colors.Black)
    Panel3.Background = cP
    Panel0.AddView(Panel3,10dip, 250dip, ScrollView1.Width - 20dip, 600dip)

    Dim Panel4 As Panel
    Panel4.Initialize("")
    '    Panel4.Color = Colors.Cyan
    Panel4.Tag = 3
    Dim cP As ColorDrawable
    cP.Initialize2(Colors.White, 10dip,3dip,Colors.Black)
    Panel4.Background = cP
    Panel0.AddView(Panel4,10dip,880dip, ScrollView1.Width - 20dip, 600dip)
Das Problem tritt nich nach mehrem Umschalton sondern gleich beim ersten Lauf.
 
Last edited:
Top