Defines
PrivatesPI_MainPanelAsPanel
PrivatesPI_PanelAsPanel
PrivatesPI_PlayerNameAsLabel
PrivatesPI_AvgHcpBPAsLabel
PrivatesPI_EntriesAsLabel
PrivatesPI_CostAsLabel
PrivatesPI_ProfitLossAsLabel
PrivatesPI_TotalPlacesAsLabel
PrivatesPI_1stPlacesAsLabel
PrivatesPI_2ndPlacesAsLabel
PrivatesPI_3rdPlacesAsLabel
PrivatesPI_4thPlacesAsLabel
PrivatesPI_5thPlacesAsLabel
PrivatesPI_TotalWinningsAsLabel
PrivatesPI_1stWinningsAsLabel
PrivatesPI_2ndWinningsAsLabel
PrivatesPI_3rdWinningsAsLabel
PrivatesPI_4thWinningsAsLabel
PrivatesPI_5thWinningsAsLabel
PrivatesPI_PlayingAsLabel
PrivatesPI_GoBackAsButton
Dim BD As BetterDialogs
Stripped down Code to display
Sub wInfo_Click
Dim PlayerInfoPanel AsPanel
PlayerInfoPanel.Initialize("PlayerInfoPanel")
PlayerInfoPanel.LoadLayout("splayerinfo")
Dim DialogPrefs AsBD_CustomDlgParams
DialogPrefs.Initialize
DialogPrefs.BodyHeight = sPI_MainPanel.Height
DialogPrefs.BodyWidth = sPI_MainPanel.Width
DialogPrefs.DialogBody = PlayerInfoPanel
DialogPrefs.Background = Colors.Transparent
DialogPrefs.DialogGravity = Gravity.CENTER
BD.CustomDialog(DialogPrefs, "sPI_GoBack")
End Sub
NOT sure why the code above is not formatting right, I am copying it right out of B4A v4.0
Somehow the tabs are not translating.
I omitted all the code that fills in the dialog before display - surely you do not need to see that
Hope this helps.