Android Question Create sub _Click programmatically

[cheveguerra]

Hi everybody,

I am creating a panel programmatically, and would like to make it so that, if you click on any part of the panel and there is a button behind the panel, it does not trigger the click of that button.

Normally I would just create an empty sub with the panel name and "_Click" (e.g., myPanel_Click), and that would do the trick.

But I would like to know if it is possible to generate the Sub programmatically, or create the same result any other way.

Best regards

 

[William Lancee]

Any panel brought to the front will mask the views underneath it, even when it is tranparent
You don't need a click event handler.

Edit: this works in B4J but not in B4A (I missed that the question was for B4A)
For B4A you need the empty click handler!

    Dim maskPanel As B4XView = xui.CreatePanel("")
    Root.AddView(maskPanel, 0, 0, Root.Width, Root.Height)
    '...
    'As last step:
    maskPanel.BringToFront

 

[cheveguerra]

Thanks for answering,

Mmmm . . . In my experience, the only way I can stop a click from happening is by using an empty _Click Sub. This applies to buttons, editTexts, or any other elements that can be clicked.

Sub createPanel
    Private panelX As Panel
    Log("add panel")
    panelX.Initialize("pQuest")
    Private lbl As Label
    lbl.Initialize("")
    lbl.Text = "xxx yyy zzz"
    lbl.TextSize = 20
    lbl.TextColor = Colors.Black
'    lbl.Color = Colors.Green
    Private cd As ColorDrawable
    cd.Initialize2(Colors.ARGB(125, 255, 255, 255), 20, 1, Colors.Gray)
    panelX.Background = cd
    p_Main.AddView(panelX, 10, 0, 80%x, 200dip) 'add the panel to the layout
    panelX.AddView(lbl, 20, 10, (panelX.Width * 0.9), 80dip)
    panelX.left = (Root.Width / 2) - (panelX.Width / 2)
    panelX.top = (Root.Height / 2) - (panelX.Height / 2)
    panelX.BringToFront
    panelX.Elevation = 100dip
    panelX.Visible = True
End Sub

Even when I tried using elevation, the click always went through.

 

[LucaMs]

You cannot create code at runtime and execute it. Why would you want to do this?

Regarding the panel, you are right, to ensure that the underlying views do not receive the focus, you have to create the Click or Touch event.

 

[LucaMs]

I think the only solution is for each panel you create to assign the same event name and write a single empty Sub Click using that name.

 

[cheveguerra]

I think the only solution is for each panel you create to assign the same event name and write a single empty Sub Click using that name.

I appreciate your help, that's what I'm doing at the moment, but I thought it'd be more efficient if everything was in the same Sub.

Best regards

 

[klaus]

To make sure that a view behind a Panel does not get any events you need:
1. An empty Click or Touch event.
2. A higher Panel elevation than the views underneath it.
One common event routine for different Panels works.

In the code in post #3, you have this line: panelX.Initialize("pQuest")
Do you have the Sub pQuest_Click routine ?

 

[cheveguerra]

To make sure that a view behind a Panel does not get any events you need:
1. An empty Click or Touch event.
2. A higher Panel elevation than the views underneath it.
One common event routine for different Panels works.

In the code in post #3, you have this line: panelX.Initialize("pQuest")
Do you have the Sub pQuest_Click routine ?

The higher Elevation does not work, the empty pQuest_Click Sub does work, and yes, I have it defined!!

 

[klaus]

Can you post your project ?

Before posting my previous post i did some tests.
Attached my test program.

 

[peacemaker]

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
  
    Dim b As Button
    b.Initialize("button")
    b.Text = "New but1"
    b.Tag = "but1"
    MainForm.RootPane.AddNode(b, 0, 0, 200, 50)
End Sub

Sub button_Click
    Dim b As Button = Sender
    Log(b.Tag)
End Sub

 

[klaus]

The question is for B4A not for B4J.

 

[LucaMs]

The higher elevation does not work, only the empty pQuest_Click Sub, and yes, I have it defined!!

Perhaps he means that just setting the Elevation is not the solution, it doesn't work. That's right and that's not what Klaus intended, you need both (although BringToFront + the Click event might be enough).

If it still doesn't work, make sure you created pQuest_Click and not panelX_Click.

 

[cheveguerra]

Thank a lot everybody,

The problem was not that I couldn't do it, I had it functioning from the beginning with the empty "Sub pQuest_Click".

The initial question was centered on whether it could be accomplished programmatically, and it appears that it cannot be done that way.

BringToFront + Elevation does not work, so I will just have to add the empty pQuest_Click Sub and that's that

Best regards.

 

[cheveguerra]

Can you post your project ?

Before posting my previous post i did some tests.
Attached my test program.

Here is my code (I added it to your project).

The sub is just a function to create a popup questionnaire ... and have A LOT of logs for debugging .

If you comment the Sub on line 105 (pSombra_Click) the clicks go through, even with the Elevation and BringToFront set in lines 94 and 95.

Best regards

 

[William Lancee]

For clarity I have edited #2. My response was mistakenly for B4J.

 

[klaus]

If you comment the Sub on line 105 (pSombra_Click) the clicks go through, even with the Elevation and BringToFront set in lines 94 and 95.

Yes, I knew that the empty Click event routine is necessary, I wrote it in post#7.

 

[ilan]

Hi everybody,

I am creating a panel programmatically, and would like to make it so that, if you click on any part of the panel and there is a button behind the panel, it does not trigger the click of that button.

Normally I would just create an empty sub with the panel name and "_Click" (e.g., myPanel_Click), and that would do the trick.

But I would like to know if it is possible to generate the Sub programmatically, or create the same result any other way.

Best regards

you can create the panel programmatically and initialize always with the same eventName that is present in your app and does nothing.
like this all new panels will trigger the clicks and not view behind it.

add this sub in your app

Sub doesNothingPanel_Click
 ' do nothing
End Sub

add panels programmatically

DIm pnl as B4xView = XUI.Createpanel("doesNothingPanel")
...