Public Sub Initialize (Callback As Object, EventName As String, Parent As B4XView, SideWidth As Int)
mEventName = EventName
mCallBack = Callback
mSideWidth = SideWidth
#if B4A
Dim creator As TouchPanelCreator
mBasePanel = creator.CreateTouchPanel("base")
#else if B4i
mBasePanel = xui.CreatePanel("")
Dim nme As NativeObject = Me
Dim no As NativeObject = mBasePanel
no.RunMethod("addGestureRecognizer:", Array(nme.RunMethod("CreateRecognizer", Null)))
#End If
Parent.AddView(mBasePanel, 0, 0, Parent.Width, Parent.Height)
mCenterPanel = xui.CreatePanel("")
mBasePanel.AddView(mCenterPanel, 0, 0, mBasePanel.Width, mBasePanel.Height)
mDarkPanel = xui.CreatePanel("dark")
mBasePanel.AddView(mDarkPanel, 0, 0, mBasePanel.Width, mBasePanel.Height)
mLeftPanel = xui.CreatePanel("LeftPanel")
mBasePanel.AddView(mLeftPanel, -SideWidth, 0, SideWidth, mBasePanel.Height)
mLeftPanel.Color = xui.Color_Red
#if B4A
Dim p As Panel = mLeftPanel
p.Elevation = 4dip <-------------------------------------------------
#Else If B4i
Dim p As Panel = mDarkPanel
p.UserInteractionEnabled = False
p.SetBorder(0, 0, 0)
p = mLeftPanel
p = mCenterPanel
p.SetBorder(0, 0, 0)
p = mBasePanel
p.SetBorder(0, 0, 0)
#End If
End Sub