Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
addItem
End Sub
Sub addItem
For i = 1 To 6
Private pArticleOverview As B4XView = xui.CreatePanel("") ' declared public hence obsoliete declaration here
pArticleOverview.SetLayoutAnimated(0,0,0,100%x,80)
pArticleOverview.LoadLayout("clvLayout")
clv1.Add(pArticleOverview, i)
Next
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
Label1.SizeToFit
lblLayout.SizeToFit
End Sub