Public Sub Initialize
hd.ProgressDialogShow("Attendere...")
reqManager.Initialize(Me, Main.UrlDati)
PageDett.Initialize("PageDett")
PageDett.Title = ML.listaconv_title
PageDett.RootPanel.LoadLayout("strutturascorre")
Main.NavControl.ShowPage(PageDett)
ScrView.Initialize("ScrView", 100%x, 500%y)
ScrView.Color=Colors.Transparent
PageDett.RootPanel.AddView(ScrView, 0, 0, 100%x, 100%y)
Addaview
ScrView.ContentHeight=500
ScrView.ContentWidth=ScrView.width
End Sub
Sub Addaview
strLBDenominazione.Initialize("strLBDenominazione")
strIVrh.Initialize("strIVrh")
strLBIndirizzo.Initialize("strLBIndirizzo")
strLBDenominazione.height=30dip
strLBDenominazione.width=100%x-strLBDenominazione.height-5dip
strIVrh.height=strLBDenominazione.height
strIVrh.width=strIVrh.height
strLBDenominazione.Top=0%y
strLBDenominazione.left=strIVrh.Left+strIVrh.Width+5dip
strLBDenominazione.TextColor=Colors.RGB(0,0,255)
strLBDenominazione.Font=Font.CreateNewBold(25)
strLBIndirizzo.Top=strLBDenominazione.Top+strLBDenominazione.height
strLBIndirizzo.left=5dip
strLBIndirizzo.width=100%x-5dip
strLBIndirizzo.height=strLBDenominazione.height
strLBIndirizzo.TextColor=Colors.RGB(0,0,255)
ScrView.panel.AddView(strIVrh,0,0,strIVrh.width,strIVrh.height)
ScrView.panel.AddView(strLBDenominazione,strLBDenominazione.Left,strLBDenominazione.Top,strLBDenominazione.width,strLBDenominazione.height)
ScrView.panel.AddView(strLBIndirizzo,strLBIndirizzo.Left,strLBIndirizzo.Top,strLBIndirizzo.width,strLBIndirizzo.height)
strLBDenominazione.Text=denominazione
strLBIndirizzo.Text=indirizzo
strIVrh.Bitmap=Prh
End Sub