#REGION ToggleMenu
Private Sub btnToggleRightPane_Click
'width 190 / 50
If PanMenu.Prefwidth <> 50 Then
PanMenuClose
Else
PanMenuOpen
End If
End Sub
Sub PanMenuOpen()
PanMenuSize(190,4,2)
btnToggleRightPane.Text = Chr(0xF061)
End Sub
Sub PanMenuClose()
PanMenuSize(50,4,2)
btnToggleRightPane.text = Chr(0xF060)
End Sub
Sub PanMenuSize(intSize As Int,intGap As Int, intMarge)
PanMenu.prefWidth = intSize
PanLayouts.Left = intMarge
PanLayouts.PrefWidth = B4XPages.GetNativeParent(Me).Width - (intMarge + intGap + intSize + intMarge)
PanMenu.left = PanLayouts.Left + PanLayouts.PrefWidth + intGap
End Sub
#End Region