Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root1.LoadLayout("B4XMain")
'Initialize Help Dialog
DLGHelp.Initialize(Root)
' setup helpindex key= page no, value= title
IndexValues.Put(1,"Index")
IndexValues.Put(2,"Chapter 1 ...")
' setup HelpFileName
HelpFileName="acr1255u.pdf"
' set dialog properties
DLGHelp.Title = "Help AppName"
DLGHelp.TitleBarColor=Colors.Blue
DLGHelp.TitleBarTextColor=Colors.White
DLGHelp.BorderColor=Colors.Blue
DLGHelp.BorderWidth=2dip
DLGHelp.BorderCornersRadius=5dip
DLGHelp.ButtonsColor=Colors.Blue
DLGHelp.ButtonsTextColor=Colors.white
DLGHelp.BackgroundColor=Colors.white
End Sub