Item Index Property

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

We are using the Task Panel as a menu, separating the menu groups into taskpanel groups. 
We're letting the user drag items around within the groups but not across groups.  However, we want to be able to save/load the positions of the menu items (taskpanelgroupitems).

We've looked at the ItemDrop event but it doesn't seem to fire at the right time. We're using this code to check out the positions, but the same item appears twice, where it was and where it is now;
Private Sub tpMain_ItemDrop(ByVal Item As XtremeTaskPanel.ITaskPanelGroupItem)

    Dim tpGroup As TaskPanelGroup
    Dim tpItem As TaskPanelGroupItem

    Set tpGroup = Item.Group

    For Each tpItem In tpGroup.Items
        Debug.Print tpItem.ID, tpItem.Index, tpItem.Caption
    Next

End Sub
Why?  How do we go about saving the positions?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
ManSys Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 02 February 2010 Location: United Kingdom Status: Offline Points: 2	Post Options Post Reply Quote ManSys Report Post Thanks(0) Quote Reply Topic: Item Index Property Posted: 21 January 2012 at 7:12pm
	We are using the Task Panel as a menu, separating the menu groups into taskpanel groups. We're letting the user drag items around within the groups but not across groups. However, we want to be able to save/load the positions of the menu items (taskpanelgroupitems). We've looked at the ItemDrop event but it doesn't seem to fire at the right time. We're using this code to check out the positions, but the same item appears twice, where it was and where it is now; Private Sub tpMain_ItemDrop(ByVal Item As XtremeTaskPanel.ITaskPanelGroupItem) Dim tpGroup As TaskPanelGroup Dim tpItem As TaskPanelGroupItem Set tpGroup = Item.Group For Each tpItem In tpGroup.Items Debug.Print tpItem.ID, tpItem.Index, tpItem.Caption Next End Sub Why? How do we go about saving the positions?
	- ManSys Limited

Carlos Rocha Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 11 February 2008 Location: Portugal Status: Offline Points: 92	Post Options Post Reply Quote Carlos Rocha Report Post Thanks(0) Quote Reply Posted: 10 February 2017 at 9:44am
	Still not possible with 16.3.1 The solution is: - Store a reference to the item being dragged within BeginDrag: Set m_ItemDragged = Item - Use xtpTaskItemAllowDragCopyWithinGroup instead of xtpTaskItemAllowDragMoveWithinGroup - Inside ItemDrop: Item.Group.Items.Move m_ItemDragged, Item:Index Item.Remove Set m_ItemDragged = Nothing
	SuitePro 20.3.0 OS: Windows 10 Language: Visual Objects 2.8