How to delete matrix row using rightclick ?

Question

Hi all ,
I have UDO form .when i right click on a matrix  then contextual menu appears only(Copy,Remove,Cancel) not appears  (DELETE ROW ) .plz help how to contextual menu appears with (Delete Row) and which event fire when i click delete row.
thanks in advance
Surajit

Answer 1

Hi,
Menu Event..
If (pVal.MenuUID = "OnlyOnRCDE") And (pVal.BeforeAction = False) Then
            Try
                Dim oMenuItem As SAPbouiCOM.MenuItem
                Dim oMenus As SAPbouiCOM.Menus
                Dim omat As SAPbouiCOM.Matrix
                Dim GCols As SAPbouiCOM.Columns
                Dim i As Integer
                pmat = pcFrm.Items.Item("5").Specific
                GCols = pmat.Columns
                pcFrm.DataSources.DBDataSources.Item(1).Clear()
                pmat = pcFrm.Items.Item(selItem).Specific
                For i = 1 To pmat.RowCount
                    If pmat.IsRowSelected(i) = True Then
                        pmat.DeleteRow(i)
                        Exit For
                    End If
                Next
            Catch ex As Exception
                SBO_Application.MessageBox(ex.Message)
            End Try
        End If
Right Click Event
If eventInfo.FormUID = "AAAAAAAAAAAAAAA" Then
            If (eventInfo.BeforeAction = True) Then
                Dim omat As SAPbouiCOM.Matrix
                Dim GCols As SAPbouiCOM.Columns
                pmat = pcFrm.Items.Item("5").Specific
                GCols = pmat.Columns
                pcFrm.DataSources.DBDataSources.Item(1).Clear()
                Try
                    selItem = eventInfo.ItemUID
                    Dim oCreationPackage As SAPbouiCOM.MenuCreationParams
                    oCreationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)
                    oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING
                    oCreationPackage.UniqueID = "OnlyOnRCDE"
                    oCreationPackage.String = "Delete Row"
                    oCreationPackage.Enabled = True
                    oMenuItem = SBO_Application.Menus.Item("1280") 'Data'
                    oMenus = oMenuItem.SubMenus
                    oMenus.AddEx(oCreationPackage)
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                Try
                    SBO_Application.Menus.RemoveEx("OnlyOnRCDE")
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If
        End If
Regards,
Siva