Dim pnl As B4XView = xui.CreatePanel("titel")
pnl.SetLayoutAnimated(0,0,0,scvMain.AsView.Width,itemheight)
pnl.LoadLayout("PosItem") ' PosItem-Layout only contains the b4ximageview btw
pnl.Tag = aktart.Get("bildname7")
scvMain.Add(pnl,pnl.Tag)
i now use the tag from the Panel created by xui.CreatePanel
B4X:
Private Sub titel_Click 'to create a pseudo raise click event of B4XImageView1 by clicking the panel that holds the img
Log($"titel_Click()"$)
Dim index As Int =...
Dim pnl As B4XView = xui.CreatePanel("titel")
pnl.SetLayoutAnimated(0,0,0,scvMain.AsView.Width,itemheight)
pnl.LoadLayout("PosItem") ' PosItem-Layout only contains the b4ximageview btw
pnl.Tag = aktart.Get("bildname7")
scvMain.Add(pnl,pnl.Tag)
i now use the tag from the Panel created by xui.CreatePanel
B4X:
Private Sub titel_Click 'to create a pseudo raise click event of B4XImageView1 by clicking the panel that holds the img
Log($"titel_Click()"$)
Dim index As Int = scvMain.GetItemFromView(Sender)
Dim pnl As B4XView = scvMain.GetPanel(index)
' I now use the tag set on the Panel to work further
end sub