Italian Menu grafico

'All variants script
AutoScaleAll
ImageView2.Width =44%x
ImageView1.Width =44%x

#FullScreen: False
    #IncludeTitle: True
    #ApplicationLabel: ScrollViewBigPanel
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

'Activity module
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 scvTest As ScrollView
    Dim pnlTest As Panel
    Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    scvTest.Panel.LoadLayout("menufoto")
    'scvTest.Panel.Height = pnlTest.Height
    scvTest.Panel.Height = Panel1.Height
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub edtItem_FocusChanged (HasFocus As Boolean)
    Dim Send As EditText
  
    If HasFocus Then
        Send = Sender
      
        scvTest.ScrollPosition = Send.Top - 10dip
    End If
End Sub

Sub ivIncr_Click
    Dim iv As ImageView = Sender
    Dim row As Int =clvGrid.GetItemFromView(iv)
    Dim rowpnl As Panel = clvGrid.GetPanel(row)
    Dim bckpnl As Panel  = rowpnl.GetView(0)        'layout has a backpanel as its foundation
    For i = 0 To bckpnl.NumberOfViews - 1
        Dim cellpnl As Panel = bckpnl.GetView(i)
        Dim bckp As Panel = cellpnl.GetView(0)
        Dim iv1 As ImageView = bckp.GetView(5)        'increment icon
        If iv1 = Sender Then
            Dim lblqty As Label = bckp.GetView(4)    'label for quantity
            Dim qty As Int = lblqty.Text
            qty = qty + 1
            lblqty.Text = qty
            Exit
        End If
    Next
End Sub

Sub ivDecr_Click
    Dim iv As ImageView = Sender
    Dim row As Int =clvGrid.GetItemFromView(iv)
    Dim rowpnl As Panel = clvGrid.GetPanel(row)
    Dim bckpnl As Panel  = rowpnl.GetView(0)        'layout has a backpanel as its foundation
    For i = 0 To bckpnl.NumberOfViews - 1
        Dim cellpnl As Panel = bckpnl.GetView(i)
        Dim bckp As Panel = cellpnl.GetView(0)
        Dim iv1 As ImageView = bckp.GetView(3)        'decrement icon
        If iv1 = Sender Then
            Dim lblqty As Label = bckp.GetView(4)    'label for quantity
            Dim qty As Int = lblqty.Text
            qty = qty - 1
            If qty < 0 Then qty = 0
            lblqty.Text = qty
            Exit
        End If
    Next
End Sub

Dim bckp As Panel = cellpnl.GetView(0)
        Dim image As ImageView = bckp.GetView(0)    'image view
        image.Bitmap = LoadBitmapSample(File.DirAssets,"pizza.png",bckp.Width, bckp.Height/2)
        Dim title As Label = bckp.GetView(1)        'title
        title.Text = "Pizza Margherita  "
        Dim Stitle As Label = bckp.GetView(2)        'subtitle
        Stitle.Text = "Sugo,Mozarella"

  Dim Stitle As Label = bckp.GetView(3)        'nuova label
title.Text = "Prezzo 10  "

Dim Prezzo As Label = bckp.GetView(3) 'nuova label posta dopo immagine, title e subtitle
Prezzo.Text = "Prezzo 10 "