Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
Page1.Title = "Page 1 et Scrollview"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
CreateScrollView
End Sub
Public Sub CreateScrollView
LblTitre.Initialize("LblTitre")
LblTitre.Color = Colors.Green
LblTitre.Text = "Mon Titre"
LblTitre.Font = Font.CreateNew(12)'taille du caractere
LblTitre.TextAlignment = LblTitre.ALIGNMENT_CENTER
LblTitre.BringToFront
sv.Panel.AddView(LblTitre, 0, 0, 100%x, 50dip)
End Sub
Sub SizeScrollView
sv.ContentWidth = Page1.RootPanel.Width
sv.ContentHeight = 1000dip
LblTitre.Width = sv.ContentWidth
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
SizeScrollView
End Sub