Android Question I do not see a picture

anallie0 · Nov 20, 2013

hi
in my app I view many pictures inside an imageview (fill).
the pictures are all png 800 x various lengths.
On galaxy s3, galaxy s2, htc one and nexus 4 I see perfectly all the images.
on nexus 7 and galaxy tab 10 I see all the images, except one.
I don't understand why

NJDude · Nov 20, 2013

Without seeing your code, hard to tell.

anallie0 · Nov 21, 2013

this is the code, but I don't think that depends on it.

play on the app store

https://play.google.com/store/apps/details?id=tabelle.officina&hl=it

B4X:

#Region  Project Attributes
    #ApplicationLabel: Tabelle per Officina
    #VersionCode: 1
    #VersionName: 1.0
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: landscape
    #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 panellista, panelimage As Panel
    Dim elenco As ListView
    Dim imagetitolo, imagenumeri As ImageView
    Dim immagine As Bitmap
    Dim scrollimage As ScrollView





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("TabelOfficin")
    panellista.SetLayout(0%x, 0%y, 100%x, 100%y)'pannello e lista delle tabelle
    elenco.SetLayout(0%x, 0%y, 100%x, 100%y)
  
    panelimage.SetLayout(0%x, 0%y, 100%x, 100%y)'pannello immagini
    imagetitolo.SetLayout(0%x, 0%y, 100%x, 100%y)
        scrollimage.Initialize(100)
        imagenumeri.Initialize("imagenumeri")  
        panelimage.AddView(scrollimage, 0%x, 0%y, 100%x, 100%y)
        scrollimage.Panel.AddView(imagenumeri, 0%x, 0%y ,100%x, 100%y)
        imagenumeri.Gravity = Gravity.Fill
  
    crealista

End Sub


Sub crealista
Dim ico1, ico2, ico3, ico4, ico6, ico7, ico8 As Bitmap
  
    ico1.Initialize(File.DirAssets, "ico1.png")
    ico2.Initialize(File.DirAssets, "ico2.png")
    ico3.Initialize(File.DirAssets, "ico3.png")
    ico4.Initialize(File.DirAssets, "ico4.png")
    ico6.Initialize(File.DirAssets, "ico6.png")
    ico7.Initialize(File.DirAssets, "ico7.png")
    ico8.Initialize(File.DirAssets, "ico8.png")


elenco.AddTwoLinesAndBitmap("            FILETTATURA", "            Metrica passo fine", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA ", "            Metrica", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA  ", "            Gas cilindrica", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA  ", "            Gas conica", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA    ", "            Whitworth BSW", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA    ", "            NPT", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA      ", "            UNC_UNF_UNEF", ico1)
elenco.AddTwoLinesAndBitmap("            FILETTATURA      ", "            Trapezoidale", ico1)
elenco.AddTwoLinesAndBitmap("            CONO MANDRINO", "            DIN - Jacobs", ico2)
elenco.AddTwoLinesAndBitmap("            CONO MANDRINO ", "            Morse", ico2)
elenco.AddTwoLinesAndBitmap("            ABRASIVI", "            Flessibili", ico3)
elenco.AddTwoLinesAndBitmap("            ABRASIVI ", "            Rigidi", ico3)
elenco.AddTwoLinesAndBitmap("            VITI", "            Coppia di serraggio", ico4)
elenco.AddTwoLinesAndBitmap("            VITI ", "            Tipo di intagli", ico4)
elenco.AddTwoLinesAndBitmap("            DUREZZA", "            Conversione", ico6)
elenco.AddTwoLinesAndBitmap("            LINGUETTE", "            ", ico7)
elenco.AddTwoLinesAndBitmap("            RIVESTIMENTO", "            Utensili", ico8)
elenco.AddTwoLinesAndBitmap("            RUGOSITA'", "            ", ico1)
elenco.AddTwoLinesAndBitmap("            TOLLERANZE", "            Geometriche", ico2)
elenco.AddTwoLinesAndBitmap("            TOLLERANZE ", "            Albero base", ico2)
elenco.AddTwoLinesAndBitmap("            TOLLERANZE  ", "            Foro base", ico2)
elenco.AddTwoLinesAndBitmap("            MULTIPLI SOTTOMULTIPLI", "            Fattori e simboli", ico3)
elenco.AddTwoLinesAndBitmap("            DILATAZIONE TERMICA", "            ", ico3)
elenco.AddTwoLinesAndBitmap("            PROPRIETA FISICHE", "            metalli", ico3)
elenco.AddTwoLinesAndBitmap("            PROPRIETA FISICHE ", "            plastiche", ico3)
elenco.AddTwoLinesAndBitmap("            PROPRIETA FISICHE  ", "            varie", ico3)
elenco.AddTwoLinesAndBitmap("            CONDUTTORI ELETTRICI", "            Conversione AWG", ico6)
elenco.AddTwoLinesAndBitmap("            CONDUTTORI ELETTRICI ", "            Colori", ico6)
elenco.AddTwoLinesAndBitmap("            BATTERIE", "            Alcaline-Ossido Argento", ico7)
elenco.AddTwoLinesAndBitmap("            BATTERIE ", "            Litio", ico7)
elenco.AddTwoLinesAndBitmap("            BATTERIE  ", "            Aria", ico7)
elenco.AddTwoLinesAndBitmap("            CARTELLA COLORI", "            RAL", ico8)


End Sub




Sub Activity_Click
panellista.Visible=True
  
End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean

  
    If KeyCode = KeyCodes.KEYCODE_MENU Then  'intercettazione del tasto menu per non uscire dall'app.
        Return True
    End If
  
    If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then  'intercettazione del tasto volume- per non uscire dall'app.
        Return True
    End If
  
    If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then  'intercettazione del tasto volume+ per non uscire dall'app.
        Return True
    End If
  
    If KeyCode = KeyCodes.KEYCODE_BACK Then 'intercettazione del tasto back
                              
                If panelimage.Visible=True AND panellista.Visible=True Then
                panelimage.Visible=False
                scrollimage.ScrollPosition = 0
              
              
              
              
            Return True          
                End If
              
                If panellista.Visible=True Then
                panellista.Visible=False
              
            Return True          
                End If
  
          
  Else
            Activity.finish
    End If
  
    End Sub


Sub elenco_ItemClick (Position As Int, Value As Object)




Select Case Value

    Case "            FILETTATURA"
            immagine = LoadBitmap(File.DirAssets, "titolo metrica fine.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "metrica fine.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
              
    Case "            FILETTATURA "
            immagine = LoadBitmap(File.DirAssets, "titolo metrica grossa.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "metrica grossa.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
              

    Case "            FILETTATURA  "
            immagine = LoadBitmap(File.DirAssets, "titolo gas cilindrica.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "gas cilindrica.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
  
            Case "            FILETTATURA  "
            immagine = LoadBitmap(File.DirAssets, "titolo gas conica.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "gas conica.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            FILETTATURA    "
            immagine = LoadBitmap(File.DirAssets, "titolo whitworth BSW.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "whitworth BSW.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            FILETTATURA    "
            immagine = LoadBitmap(File.DirAssets, "titolo NPT.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "NPT.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
  
            Case "            FILETTATURA      "
            immagine = LoadBitmap(File.DirAssets, "titolo UNC_UNF_UNEF.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "UNC_UNF_UNEF.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            FILETTATURA      "
            immagine = LoadBitmap(File.DirAssets, "titolo trapezoidale.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "trapezoidale.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            CONO MANDRINO"
            immagine = LoadBitmap(File.DirAssets, "titolo jacobs.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "jacobs.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            CONO MANDRINO "
            immagine = LoadBitmap(File.DirAssets, "titolo morse.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "morse.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            ABRASIVI"
            immagine = LoadBitmap(File.DirAssets, "titolo abrasivi flessibili.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "abrasivi flessibili.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            ABRASIVI "
            immagine = LoadBitmap(File.DirAssets, "titolo mole.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "mole.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            VITI"
            immagine = LoadBitmap(File.DirAssets, "titolo coppia.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "coppia.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height


            Case "            VITI "
            immagine = LoadBitmap(File.DirAssets, "titolo intaglio viti.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "intaglio viti.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            DUREZZA"
            immagine = LoadBitmap(File.DirAssets, "titolo durezze.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "Durezze.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            LINGUETTE"
            immagine = LoadBitmap(File.DirAssets, "titolo linguette.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "linguette.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            RIVESTIMENTO"
            immagine = LoadBitmap(File.DirAssets, "titolo rivestimento.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "rivestimento.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            RUGOSITA'"
            immagine = LoadBitmap(File.DirAssets, "titolo rugosita.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "rugosita.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            TOLLERANZE"
            immagine = LoadBitmap(File.DirAssets, "titolo toller geometriche.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "Toller geometriche.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            TOLLERANZE "
            immagine = LoadBitmap(File.DirAssets, "titolo albero.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "albero.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            TOLLERANZE  "
            immagine = LoadBitmap(File.DirAssets, "titolo foro.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "foro.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            MULTIPLI SOTTOMULTIPLI"
            immagine = LoadBitmap(File.DirAssets, "titolo multi.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "multi.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

            Case "            DILATAZIONE TERMICA"
            immagine = LoadBitmap(File.DirAssets, "titolo dilatazione.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "dilatazione.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
          
            Case "            PROPRIETA FISICHE"
            immagine = LoadBitmap(File.DirAssets, "titolo proprieta metalli.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "proprieta metalli.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
  
            Case "            PROPRIETA FISICHE "
            immagine = LoadBitmap(File.DirAssets, "titolo proprieta plastic.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "proprieta plastic.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
  
            Case "            PROPRIETA FISICHE  "
            immagine = LoadBitmap(File.DirAssets, "titolo proprieta varie.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "proprieta varie.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height
  
  
                Case "            CONDUTTORI ELETTRICI"
            immagine = LoadBitmap(File.DirAssets, "titolo AWG.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "AWG.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

                Case "            CONDUTTORI ELETTRICI "
            immagine = LoadBitmap(File.DirAssets, "titolo colore fili.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "colore fili.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

                Case "            BATTERIE"
            immagine = LoadBitmap(File.DirAssets, "titolo batt alca.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "batt alca.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

                Case "            BATTERIE "
            immagine = LoadBitmap(File.DirAssets, "titolo batt litio.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "batt litio.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

                Case "            BATTERIE  "
            immagine = LoadBitmap(File.DirAssets, "titolo batt aria.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "batt aria.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height

                Case "            CARTELLA COLORI"
            immagine = LoadBitmap(File.DirAssets, "titolo RAL.png")
            imagetitolo.Height=immagine.Height*1.5
            imagetitolo.Bitmap = immagine
                immagine=LoadBitmap(File.DirAssets, "RAL.png")
                imagenumeri.Height = immagine.Height*1.5
                imagenumeri.Bitmap = immagine
                scrollimage.SetLayout(0%x, imagetitolo.Height, 100%x, 100%y)
                scrollimage.Panel.Height=imagenumeri.Height+imagetitolo.Height



End Select

panelimage.Visible=True
  
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub





Sub lista_Click
  
End Sub
Sub lista_LongClick
  
End Sub
Sub panelimage_Click
  
End Sub
Sub panelimage_LongClick
  
End Sub

NJDude · Nov 21, 2013

When the code is large, you should attach the project (you are also using a layout and pictures) on the IDE click on FILE -> Export As ZIP

anallie0 · Nov 21, 2013

sorry, I uploaded the zip file here, it's of 15 Mb

http://www.mediafire.com/download/6avvixof1v6x5gj/tabel.zip

NJDude · Nov 22, 2013

It seems the "intaglio viti.png" is too large, I just resized it for testing purposes and shows up on my Nexus 7, I've attached the picture for you to see.

LucaMs · Nov 22, 2013

L'ho installato anch'io, su un 4.3"" 480x800 e, anche se piccole, vedo tutte le immagini (d'altra parte, non potrebbe essere diversamente, credo).

Però mi permetto due consigli:

1) per lo sviluppo di altre app in futuro, per renderti la vita più facile, usa AddTwoLinesAndBitmap2, al posto di AddTwoLinesAndBitmap.
Con la 2, puoi aggiungere un altro parametro, che sarà l'oggetto che ti verrà restituito al click.

B4X:

elenco.AddTwoLinesAndBitmap2("            FILETTATURA", "            Metrica passo fine", ico1)

B4X:

elenco.AddTwoLinesAndBitmap("            FILETTATURA", "            Metrica passo fine", ico1, "FILETTATURA")

Così poi non dovrai mettere nella Select un numero x di spazi + "FILETTATURA".
Inoltre, scriverei una routine per allineare i testi e userei una map, ma sto già scrivendo troppo fuori tema.

2) (ma questa è più complessa e non è detto che ti serva) userei tabelle dati vere, non foto, così da poter aggiungere ricerche.

Foto non visualizzabili, ripeto, non credo che ci siano o possano esserci.

Ho scritto in italiano (MOOOLTO più facile per me) perché il progetto è in italiano. Se dovesse servire, tradurrei.

Ciao

anallie0 · Nov 22, 2013

Thanks NJDude
Do you know if there is a limit to the size of images to remind me in the future?

Grazie LucaMs per i consigli, hai perfettamente ragione, in effetti dovrei incominciare a utilizzare le tabelle, è solo questione di pigrizia.

NJDude · Nov 22, 2013

anallie0 said:
Thanks NJDude
Do you know if there is a limit to the size of images to remind me in the future?

Hard to tell, as you can see some devices can handle them others can't.

Android Question I do not see a picture

anallie0

Active Member

NJDude

Expert

anallie0

Active Member

NJDude

Expert

anallie0

Active Member

NJDude

Expert

Attachments

LucaMs

Expert

anallie0

Active Member

NJDude

Expert