GefContextMenuItem.GetPointTargetAction (method)

Returns True if the menu item is a point target command and retrieves the index
Syntax: Boolean = object.GetPointTargetAction ( PointTargetIndex )
PointTargetIndex As long* -
Description: The GetPointTargetAction method returns True if the menu item is a point target and retrieves the point target index.


Sub OnPreContextMenu(oContextMenu As GefContextMenu)
  Dim oContextMenuItem As GefContextMenuItem
  Dim oContextMenuItems As GefContextMenuItems
  Set oContextMenuItems = oContextMenu.MenuItems
  Dim pointTargetIndex As Long
  For Each oContextMenuItem in oContextMenuItems
    If oContextMenuItem.GetPointTargetAction(pointTargetIndex) Then
        If pointTargetIndex = 0 Then
          oContextMenuItem.Enabled = False
        End If
      Dim command As Long
      If oContextMenuItem.GetNativeCommandAction(command) Then
        If command = gefMenuCommand_ID_EDIT_POINTVIEW Then
          oContextMenuItem.Enabled = False
        End If
      End If
    End If
  Next oContextMenuItem
End Sub