Italian Scrollview misto

anallie0 · May 9, 2014

Ciao atutti
sto scrivendo una nuova app dove in un panel ho inserito uno scrollview.
All'interno dello scrollview devo mettere una label poi sotto una image e sotto ancora un'altra label.
Sinora ho usato lo scroll per una sola label e ha sempre funzionato, ma ora mi trovo in difficoltà per inserire gli altri due componenti.
Ho fatto vari tentativi e non ho nessun errore in compilazione ma quando lancio l'app mi esce l'errore:
An error has occurred in sub:
java.lang.NullPointerException

qualche suggerimento ?

klaus · May 9, 2014

Without seeing your code it's impossible to help you.
You should post your project as a zip file (IDE menu Files / Export As Zip).
Did you have a look at this example ?

LucaMs · May 9, 2014

NullPointerException dovrebbe dirti anche a quale oggetto è riferito, probabilmente ad una label non inizializzata.

Comunque, ti consiglio di utilizzare l'ottima classe CheckList, nella quale tutto ciò che devi fare e creare nel codice l'item composto dalle sue parti, ovvero le varie label o altro.

(chiaramente, la CheckList farà le "veci" del tuo panel)

anallie0 · May 9, 2014

B4X:

#Region  Project Attributes
    #ApplicationLabel: Il Tè
    #VersionCode: 1
    #VersionName: 1.0
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: false
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim butstoria, butverde, butnero, butgiallo, butbianco, butoolong, butpuerh, butmiei As Button
    Dim panstoria As Panel
    Dim scrollstoria As ScrollView
    Dim labelstoria, labelstoria1 As Label
    Dim immstoria As ImageView
   
    Dim StrUtil As StringUtils
    Dim Font As Typeface

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
   
    Activity.LoadLayout("ilte")
    Font = Typeface.LoadFromAssets("TEMPSITC.ttf")
   
    butstoria.SetLayout(9%x, 22%y, 30%x, 10%y)
    butverde.SetLayout(3%x, 43%y, 30%x, 10%y)
    butnero.SetLayout(35%x, 43%y, 30%x, 10%y)
    butgiallo.SetLayout(67%x, 43%y, 30%x, 10%y)
    butbianco.SetLayout(3%x, 63%y, 30%x, 10%y)
    butoolong.SetLayout(35%x, 63%y, 30%x, 10%y)
    butpuerh.SetLayout(67%x, 63%y, 30%x, 10%y)
    butmiei.SetLayout(18%x, 84%y, 30%x, 10%y)
   
    panstoria.SetLayout(0%x, 0%y, 100%x, 100%y)
    scrollstoria.Initialize(100)
    labelstoria.Initialize("")
    labelstoria1.Initialize("")
    labelstoria.Text = File.ReadString(File.DirAssets, "labelstoria1.txt")
    labelstoria1.Text = File.ReadString(File.DirAssets, "labelstoria1.txt")
    panstoria.AddView(scrollstoria, 0%x, 16%y, 100%x, 100%y)
    labelstoria.Typeface=Font
    labelstoria.TextColor= Colors.black
    labelstoria.TextSize= 19
    labelstoria1.Typeface=Font
    labelstoria1.TextColor= Colors.black
    labelstoria1.TextSize= 19
    immstoria.Initialize("")
    immstoria.Bitmap = LoadBitmap(File.DirAssets, "icona.png")
    immstoria.Gravity = Gravity.FILL
   

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

    Select Case KeyCode
 
        Case KeyCodes.KEYCODE_MENU, _
              KeyCodes.KEYCODE_VOLUME_DOWN, _
              KeyCodes.KEYCODE_VOLUME_UP, _
              KeyCodes.KEYCODE_DEL
            Return True

        Case KeyCodes.KEYCODE_BACK
            If panstoria.Visible = True  Then 
                panstoria.Visible=False
               
                Return True
            End If

        Case Else
               
            Activity.finish

    End Select

End Sub   






Sub butstoria_Click
Dim ht As Int
Dim ht1 As Int

   
        'scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
    ht = StrUtil.MeasureMultilineTextHeight(labelstoria, labelstoria.Text)    ' misura l'altezza della label
    ht1 = StrUtil.MeasureMultilineTextHeight(labelstoria1, labelstoria1.Text)    ' misura l'altezza della label
    labelstoria.Height = ht                    ' setta l'altezza della label
    labelstoria1.Height = ht1                    ' setta l'altezza della label
   
    scrollstoria.Panel.Height = ht +  immstoria.Height + ht1            ' setta l'altezza dello scroll
   
    scrollstoria.Panel.AddView(labelstoria, 2%x, 0%y ,96%x, 100%y)
    scrollstoria.Panel.AddView(immstoria, 20%x, ht+1%y ,60%x, 60%y)
    scrollstoria.Panel.AddView(labelstoria1, 2%x, ht+immstoria.Height+1%y ,96%x, 100%y)
       
   
        scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
panstoria.Visible=True


   
End Sub

klaus · May 9, 2014

It would be easier if you posted the project as a zip file so we could test it in the same conditions as you do.

anallie0 · May 9, 2014

This is the project embryonic

https://www.mediafire.com/?5qcla9fwq656q1e

Deleted member 103 · May 9, 2014

Prova così, non è proprio come farei io, è solo tanto per far funzionare il tuo codice.

B4X:

Sub butstoria_Click
    Dim ht As Int
    Dim ht1 As Int

    Try
        'La prima volta va bene, la seconda ti va in errore perchè la Label è gia inclusa nello "ScrollView"
        scrollstoria.Panel.AddView(labelstoria, 2%x, 0%y ,96%x, 100%y)
        scrollstoria.Panel.AddView(immstoria, 20%x, ht+1%y ,60%x, 60%y)
        scrollstoria.Panel.AddView(labelstoria1, 2%x, ht+immstoria.Height+1%y ,96%x, 100%y)
    Catch
    End Try
       
    'scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
    ht = StrUtil.MeasureMultilineTextHeight(labelstoria, labelstoria.Text)    ' misura l'altezza della label
    ht1 = StrUtil.MeasureMultilineTextHeight(labelstoria1, labelstoria1.Text)    ' misura l'altezza della label
   
    'Le View le puoi posizionare solo dopo essere incluse nello "ScrollView"
    labelstoria.Top = 0
    labelstoria.Height = ht                    ' setta l'altezza della label
    immstoria.Top = ht
    immstoria.Height = 60%y
    labelstoria1.Top = 60%y + ht
    labelstoria1.Height = ht1                    ' setta l'altezza della label
       
    scrollstoria.Panel.Height = ht +  immstoria.Height + ht1+2            ' setta l'altezza dello scroll
   
    scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
    panstoria.Visible=True

End Sub

klaus · May 9, 2014

Here you are.

B4X:

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
  
    Activity.LoadLayout("ilte")
    Font = Typeface.LoadFromAssets("TEMPSITC.ttf")
  
    butstoria.SetLayout(9%x, 22%y, 30%x, 10%y)
    butverde.SetLayout(3%x, 43%y, 30%x, 10%y)
    butnero.SetLayout(35%x, 43%y, 30%x, 10%y)
    butgiallo.SetLayout(67%x, 43%y, 30%x, 10%y)
    butbianco.SetLayout(3%x, 63%y, 30%x, 10%y)
    butoolong.SetLayout(35%x, 63%y, 30%x, 10%y)
    butpuerh.SetLayout(67%x, 63%y, 30%x, 10%y)
    butmiei.SetLayout(18%x, 84%y, 30%x, 10%y)
  
    panstoria.SetLayout(0%x, 0%y, 100%x, 100%y)
    scrollstoria.Initialize(100)
    labelstoria.Initialize("")
    labelstoria1.Initialize("")
    labelstoria.Text = File.ReadString(File.DirAssets, "labelstoria1.txt")
    labelstoria1.Text = File.ReadString(File.DirAssets, "labelstoria1.txt")
    panstoria.AddView(scrollstoria, 0%x, 16%y, 100%x, 100%y)
    labelstoria.Typeface=Font
    labelstoria.TextColor= Colors.black
    labelstoria.TextSize= 19
    labelstoria1.Typeface=Font
    labelstoria1.TextColor= Colors.black
    labelstoria1.TextSize= 19
    immstoria.Initialize("")
    immstoria.Bitmap = LoadBitmap(File.DirAssets, "icona.png")
    immstoria.Gravity = Gravity.FILL
  
    scrollstoria.Panel.AddView(labelstoria, 2%x, 0%y ,96%x, 100%y)
    scrollstoria.Panel.AddView(immstoria, 20%x, 10%y ,60%x, 60%y)
    scrollstoria.Panel.AddView(labelstoria1, 2%x, 10%y ,96%x, 100%y)

End Sub


Sub butstoria_Click
    Dim ht As Int
    Dim ht1 As Int
      
        'scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
    ht = StrUtil.MeasureMultilineTextHeight(labelstoria, labelstoria.Text)    ' misura l'altezza della label
    ht1 = StrUtil.MeasureMultilineTextHeight(labelstoria1, labelstoria1.Text)    ' misura l'altezza della label
    labelstoria.Height = ht                    ' setta l'altezza della label
    labelstoria1.Height = ht1                    ' setta l'altezza della label
    immstoria.Top = ht + 1%y
    labelstoria1.Top = ht + 1%y + immstoria.Height
    scrollstoria.Panel.Height = ht +  immstoria.Height + ht1 + 1%y  + 2dip            ' setta l'altezza dello scroll
  
    scrollstoria.ScrollPosition = 0    'sposta alla prima riga lo scroll
    panstoria.Visible=True
End Sub

I post the code because the whole zip file is too large.

The problem in your code is that you try to calculate the heigt before the view has been added to the Panel.
I moved the scrollstoria.Panel.AddView lines to Activity_Create because when you click a second time on button Storia you get an error.

anallie0 · May 9, 2014

thanks for your help,
Now it works, however, the height of the ScrollView is not correct because it does not display the entire second label.

klaus · May 10, 2014

The problem is here:
panstoria.AddView(scrollstoria, 0%x, 16%y, 100%x, 100%y)
it should be
panstoria.AddView(scrollstoria, 0%x, 16%y, 100%x, 84%y)
In the original code the bottom of the ScrollView is below the bottom of the screen !

Italian Scrollview misto

anallie0

Active Member

klaus

Expert

LucaMs

Expert

anallie0

Active Member

klaus

Expert

anallie0

Active Member

Deleted member 103

Guest

klaus

Expert

anallie0

Active Member

klaus

Expert