'******* 1. Page ************
Dim OnboardingPage1 As AS_OnboardingPage = AS_Onboarding1.AddPage
Dim OnboardingImage As B4XImageView = OnboardingPage1.AddImage(xui.LoadBitmap(File.DirAssets,"Image1.png"),300dip)
OnboardingImage.mBackgroundColor = xui.Color_ARGB(255,32, 33, 37)
OnboardingImage.Update
OnboardingPage1.AddPlaceholder(20dip)
OnboardingPage1.AddTitle("Test #1")
OnboardingPage1.AddPlaceholder(20dip)
OnboardingPage1.AddDescription("Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.")
'******* 2. Page ************
Dim OnboardingPage2 As AS_OnboardingPage = AS_Onboarding1.AddPage
Dim OnboardingImage As B4XImageView = OnboardingPage2.AddImage(xui.LoadBitmap(File.DirAssets,"Image2.png"),300dip)
OnboardingImage.mBackgroundColor = xui.Color_ARGB(255,32, 33, 37)
OnboardingImage.Update
OnboardingPage2.AddPlaceholder(20dip)
OnboardingPage2.AddTitle("Test #2")
OnboardingPage2.AddPlaceholder(20dip)
OnboardingPage2.AddDescription("Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua.")
'******* Last Page ************
Dim OnboardingPage3 As AS_OnboardingPage = AS_Onboarding1.AddPage
OnboardingPage3.Name = "LastPage"
Dim OnboardingImage As B4XImageView = OnboardingPage3.AddImage(xui.LoadBitmap(File.DirAssets,"Image3.png"),300dip)
OnboardingImage.mBackgroundColor = xui.Color_ARGB(255,32, 33, 37)
OnboardingImage.Update
OnboardingPage3.AddPlaceholder(20dip)
OnboardingPage3.AddTitle("Last Page")
OnboardingPage3.AddPlaceholder(20dip)
OnboardingPage3.AddDescription("Lorem ipsum dolor sit amet")
#If B4I
AS_Onboarding1.BottomOffset = B4XPages.GetNativeParent(Me).SafeAreaInsets.Bottom 'Set a custom bottom offset for the items in the bottom sheet
#Else
AS_Onboarding1.BottomOffset = 0dip 'Set a custom bottom offset for the items in the bottom sheet
#End If
AS_Onboarding1.Create