Android Question SlideMenue B4XDrawer

[Sinan Tuzcu]

Hello all,

i use the slidemenue from this side:
https://www.b4x.com/android/forum/threads/b4x-b4xdrawer-sliding-drawer.97828/page-2

it works also very well. But somthing is wrong. I am not able to put the MenueBar on the Top.
See picture:

How can I do it?

The Scrollview wich included Togglebuttons, will created by dynamic.

I need help.

thanks in advance
Sinan

 

[DonManfred]

Where is you uploaded project ????
Do you expect we could help with this spare info?

 

[Erel]

I think that I understand. The drawer elevation is set to 4dip:

p.Elevation = 4dip 'B4XDrawer.Initialize

Looks like you are showing a panel with a larger (or higher?) elevation. You can change either one of the elevations. The drawer elevation must be larger.

 

[Sinan Tuzcu]

Hi Erel,

how can I set the Elevation on 4dip?

Sub Activity_Create(FirstTime As Boolean)
    'Activity.LoadLayout("front_01")
    Drawer.Initialize(Me, "Drawer", Activity, 300dip)
    Drawer.CenterPanel.LoadLayout("front_01")
    ToolbarHelper.Initialize
    ToolbarHelper.ShowUpIndicator = True 'set to true to show the up arrow
    Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets, "striche.png"))
    ToolbarHelper.UpIndicatorDrawable =  bd
    ACToolBarLight1.InitMenuListener
    Drawer.LeftPanel.LoadLayout("Left")
    
    
    ListView1.AddSingleLine("Input/Output")
    ListView1.AddSingleLine("All ON/OFF")
    ListView1.AddSingleLine("Settings")
    ListView1.AddSingleLine("Disconnected")
    
    
    
        
    'chkTimeOut.Checked = Variablen.YM_TimeOutChecked
    Variablen.chkTimeOut_Checked = Variablen.YM_TimeOutChecked
End Sub

 

[thetahsk]

..

Change your B4XDrawer.bas.

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

 

[Sinan Tuzcu]

it was already on 4dip. I have change to 20dip, but the behavior is same.

 

[DonManfred]

What is the elevation of the other panels on your activity? They must be less than 20 (if you have the drawers panel set to 20).

 

[Sinan Tuzcu]

The scrollview which containing the toggle buttons is loaded dynamically. Hince İ think that the elevation 0 will have.

 

[Erel]

Upload a small project that demonstrates this issue.

 

[Sinan Tuzcu]

Hi Erel,

I have solved with the SlideMenu.
Thanks.