GefContextMenuItem.Translated (property)

Gets and sets if the menu text should be translated before it is displayed

Syntax:

Boolean = object.Translated
object.Translated = Boolean

Description:

The Translated property gets and sets if the Text of the menu item be translated after the "Before Context Menu" event action has finished. This property defaults to True.

Example:

Sub OnMyMenu4
  MsgBox "OnMyMenu4"
End Sub

Sub OnMyMenu3
  MsgBox "OnMyMenu3"
End Sub

Sub OnMyMenu2
  MsgBox "OnMyMenu2"
End Sub

Sub OnMyMenu1
  MsgBox "OnMyMenu1"
End Sub

Sub OnPreContextMenu(oContextMenu As
GefContextMenu)

  Dim oContextMenuItem As
GefContextMenuItem

Dim oMenuItems As GefContextMenuItems

  Set oMenuItems =
oContextMenu.MenuItems

  Set oContextMenuItem = oMenuItems.Add

  oContextMenuItem.MakeSubMenu

  oContextMenuItem.Text = "Custom script menu
items"

  Dim oSubMenu As GefContextMenu

  Set oSubMenu =
oContextMenuItem.SubMenu

Dim oSubMenuItem As GefContextMenuItem

  Set oSubMenuItem =
oSubMenu.MenuItems.Add

  oSubMenuItem.SetActionToScript
"OnMyMenu1"

  oSubMenuItem.Text = "OnMyMenu1"
  oSubMenuItem.Checked = True
  oSubMenuItem.Translated = False
End Sub