Android Question How to move a panel to a new location at RunTime?

Mattiaf

Active Member
Licensed User
Hi, I have the need to move a panel on top of a item into a CustomListView.
I'm using a panel as a Context Menu, but I'm not able to show it right on top of the clicked item..
I'm looking into the forum but I can only find float windows classes, but that's not right what I am looking for..

Thanks
 
Solution
B4X: 
Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
    Dim Top As Int = CustomListView1.GetPanel(Index).Parent.Top - CustomListView1.sv.ScrollViewOffsetY + CustomListView1.GetBase.Top
    pnlContextualMenu.Visible = True
    pnlContextualMenu.As(B4XView).SetLayoutAnimated(300, CustomListView1.AsView.Left - pnlContextualMenu.As(B4XView).Width, Top, pnlContextualMenu.As(B4XView).Width, pnlContextualMenu.As(B4XView).Height)
End Sub

Sort by date Sort by votes

LucaMs

Expert
Licensed User
Longtime User
B4X: 
Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
    Dim Top As Int = CustomListView1.GetPanel(Index).Parent.Top - CustomListView1.sv.ScrollViewOffsetY + CustomListView1.GetBase.Top
    pnlContextualMenu.Visible = True
    pnlContextualMenu.As(B4XView).SetLayoutAnimated(300, CustomListView1.AsView.Left - pnlContextualMenu.As(B4XView).Width, Top, pnlContextualMenu.As(B4XView).Width, pnlContextualMenu.As(B4XView).Height)
End Sub

 
Upvote 1
Solution

Mattiaf

Active Member
Licensed User
Hi Luca thank you so much for your help. Since I m using a blurred panel, would it be possible to center it right above the clicked item?
 
Upvote 0

LucaMs

Expert
Licensed User
Longtime User
Mattiaf said:
Hi Luca thank you so much for your help. Since I m using a blurred panel, would it be possible to center it right above the clicked item?
Click to expand...
B4X: 
Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
    Dim Top As Int = CustomListView1.GetPanel(Index).Parent.Top - CustomListView1.sv.ScrollViewOffsetY + CustomListView1.GetBase.Top + CustomListView1.GetPanel(Index).Height
    lblMenu.Text = "Menu " & Value
    pnlContextualMenu.Visible = True
    pnlContextualMenu.As(B4XView).SetLayoutAnimated(300, CustomListView1.AsView.Left + (CustomListView1.AsView.Width - pnlContextualMenu.As(B4XView).Width) / 2, Top, pnlContextualMenu.As(B4XView).Width, pnlContextualMenu.As(B4XView).Height)
End Sub



Obviously you don't need to do that animation, it's just an example.
It would be nicer if the menu appeared gradually, increasing its visibility from 0 to 255 or directly in its position.

B4X: 
Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
    Dim Top As Int = CustomListView1.GetPanel(Index).Parent.Top - CustomListView1.sv.ScrollViewOffsetY + CustomListView1.GetBase.Top + CustomListView1.GetPanel(Index).Height
    lblMenu.Text = "Menu " & Value
    pnlContextualMenu.As(B4XView).SetLayoutAnimated(0, CustomListView1.AsView.Left + (CustomListView1.AsView.Width - pnlContextualMenu.As(B4XView).Width) / 2, Top, pnlContextualMenu.As(B4XView).Width, pnlContextualMenu.As(B4XView).Height)
    pnlContextualMenu.SetVisibleAnimated(150, True)
End Sub
 
Last edited:
Upvote 0

Mattiaf

Active Member
Licensed User
Thanks Luca, that's perfect!
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Solved
Android Question SD_XUIScrollView2D adding items to panel
Replies
4
Views
657
james_sgp
  • Question
Android Question Panels in the back are clickable?
Replies
2
Views
729
Erel
T
  • Question
Android Question CustomListview In Panel.
Replies
2
Views
1K
taylorw
T
  • Question
Android Question Moving Panels .... Again.
Replies
5
Views
1K
rfhall50
P
  • Question
Android Question resize panel height on runtime
Replies
6
Views
2K
phukol
P
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…