Android Question Bottom up Popup Drawer darken status and title

[scsjc]

Using the Bottom Drawer from this example https://www.b4x.com/android/forum/threads/bottom-drawer-not-working-at-b4xpages.126668/#post-792213
I see that the status and title do not darken (first and second figure)

Is there a way to make it look like in the example of the third figure?

 

[TILogistic]

yes my friend, (si amigo)

Ps. oparra

 

[scsjc]

yes my friend, (si amigo)

Ps. oparra

great...any clue?

 

[Erel]

Try to change the actionbar color with this code: https://www.b4x.com/android/forum/threads/solved-stdactionbar-color.64095/#content

 

[scsjc]

Try to change the actionbar color with this code: https://www.b4x.com/android/forum/threads/solved-stdactionbar-color.64095/#content

Does it refer to something like this? or can it be improved?

Sub ToggleDrawerState
    Dim Duration As Int = 100
    
    OverlayVisible = Not(OverlayVisible)
    Overlay.SetVisibleAnimated(Duration, OverlayVisible)
    
    Dim pnlBottomVisibleHeight As Int = pnlBottom.Height - 8dip 'hide bottom round corners
    
    If OverlayVisible Then
        SetActionBarColor(Colors.ARGB(150, 0, 0, 0))
        SetStatusBarColor( mixColors(Colors.ARGB(150, 0, 0, 0), Colors.black) )
        pnlBottom.SetLayoutAnimated(0, 0, pnlBottom.Parent.Height, pnlBottom.Width, pnlBottom.Height)
        pnlBottom.SetLayoutAnimated(Duration, 0, pnlBottom.Parent.Height - pnlBottomVisibleHeight, pnlBottom.Width, pnlBottom.Height)
    Else
        SetActionBarColor(Colors.Transparent)
        SetStatusBarColor(Colors.ARGB(150, 0, 0, 0))
        pnlBottom.SetLayoutAnimated(0, 0, pnlBottom.Parent.Height - pnlBottomVisibleHeight, pnlBottom.Width, pnlBottom.Height)
        pnlBottom.SetLayoutAnimated(Duration, 0, pnlBottom.Parent.Height, pnlBottom.Width, pnlBottom.Height)
    End If
End Sub

Sub SetStatusBarColor(Color As Int)
    'status
    Dim jo As JavaObject
    jo.InitializeContext
    Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
    window.RunMethod("addFlags", Array (0x80000000))
    window.RunMethod("clearFlags", Array (0x04000000))
    window.RunMethod("setStatusBarColor", Array(Color))
End Sub

Sub SetActionBarColor(Color As Int)
    'menu bar
    Dim jo As JavaObject
    jo.InitializeContext
    Dim cd As ColorDrawable
    cd.Initialize(Color, 0)
    jo.RunMethodJO("getActionBar", Null).RunMethod("setBackgroundDrawable", Array(cd))
End Sub

 

[Erel]

The code looks good. You can probably improve it by modifying the class code and making the change more gradual.

 

[scsjc]

The code looks good. You can probably improve it by modifying the class code and making the change more gradual.

Thank you very much as always your good advice is greatly appreciated