B4X:
If Root.Width > Root.Height Then
'Log("landscape")
Root.LoadLayout("Lu_ScrollView")
'ScrollView1.Top=0
ScrollView1.Panel.LoadLayout("lu_ASViewPager")
ScrollView1.Panel.Height =Root.Width + Root.Height+50dip
'ScrollView1.Panel.c
ASViewPager1.Base.Height=Root.Width + Root.Height '900dip '100%y 'ScrollView1.Panel.Height
'ASViewPager1
Else
Log("tool")
Root.LoadLayout("Lu_ScrollView")
'ScrollView1.Top=0
ScrollView1.Panel.LoadLayout("lu_ASViewPager")
ScrollView1.Panel.Height = Root.Height
' ScrollView1.ContentHeight = Root.Height
ASViewPager1.Base.Height=ScrollView1.Height
End If
thanks