LEADTOOLS Annotations (Leadtools.Annotations assembly)
LEAD Technologies, Inc

ShowObjectContextMenu Method

Example 





Specifies the location at which the menu should be displayed.
Displays the object context menu.
Syntax
public virtual void ShowObjectContextMenu( 
   Point pos
)
'Declaration
 
Public Overridable Sub ShowObjectContextMenu( _
   ByVal pos As Point _
) 
'Usage
 
Dim instance As AnnAutomation
Dim pos As Point
 
instance.ShowObjectContextMenu(pos)
public virtual void ShowObjectContextMenu( 
   Point pos
)
 function Leadtools.Annotations.AnnAutomation.ShowObjectContextMenu( 
   pos 
)
public:
virtual void ShowObjectContextMenu( 
   Point pos
) 

Parameters

pos
Specifies the location at which the menu should be displayed.
Remarks

Call the CanShowObjectContextMenu property to determine whether the object context menu can be displayed at this time. The context menu used is the AnnAutomationObject.ContextMenu for the object type currently bring edited. If the value of AnnAutomationObject.ContextMenu is null (Nothing in Visual Basic), this method will not do anything.

This AnnAutomation will call this method when the user right-clicks the mouse cursor over the currently selected (edited) object. If the user clicks outside any selected objects, the ShowContextMenu method will be called instead. You can call this method to display this context menu manually (for example, as a result from clicking on a certain menu item in your application).

If the AnnAutomationManager.ContextMenu value is null (Nothing in Visual Basic), this method will not do anything.

Example
 
Public Sub AnnAutomation_ShowObjectContextMenu(ByVal automation As AnnAutomation)
   ' first add a new object to the automation
   Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
   rectObj.Bounds = New AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel)
   rectObj.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
   rectObj.Brush = New AnnSolidBrush(Color.Yellow)
   automation.Container.Objects.Add(rectObj)
   automation.Viewer.Invalidate(rectObj.InvalidRectangle)
   ' make sure no objects are selected in the automation
   automation.SelectNone()

   ' show the object context menu (this should show a message informing you that no objects are currently selected (bring edited)
   ShowContextMenu(automation)

   ' select (edit) the object we have just added
   automation.StartEditing(rectObj, False)

   ' show the object context menu (should show the object context menu)
   ShowContextMenu(automation)
End Sub

Private Sub ShowContextMenu(ByVal automation As AnnAutomation)
   ' check if we can show the context menu
   If automation.CanShowObjectContextMenu Then
      ' use the right-bottom position of the object invalid rectangle as the position of the menu
      Dim rc As Rectangle = automation.CurrentEditObject.InvalidRectangle
      Dim pos As Point = New Point(rc.Right, rc.Bottom)
      automation.ShowObjectContextMenu(pos)
   Else
      MessageBox.Show("Cannot show the object context menu because no object is currently being edited (selected)")
   End If
End Sub
public void AnnAutomation_ShowObjectContextMenu(AnnAutomation automation)
{
   // first add a new object to the automation
   AnnRectangleObject rectObj = new AnnRectangleObject();
   rectObj.Bounds = new AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel);
   rectObj.Pen = new AnnPen(Color.Blue, new AnnLength(1, AnnUnit.Pixel));
   rectObj.Brush = new AnnSolidBrush(Color.Yellow);
   automation.Container.Objects.Add(rectObj);
   automation.Viewer.Invalidate(rectObj.InvalidRectangle);
   // make sure no objects are selected in the automation
   automation.SelectNone();

   // show the object context menu (this should show a message informing you that no objects are currently selected (bring edited)
   ShowContextMenu(automation);

   // select (edit) the object we have just added
   automation.StartEditing(rectObj, false);

   // show the object context menu (should show the object context menu)
   ShowContextMenu(automation);
}

private void ShowContextMenu(AnnAutomation automation)
{
   // check if we can show the context menu
   if(automation.CanShowObjectContextMenu)
   {
      // use the right-bottom position of the object invalid rectangle as the position of the menu
      Rectangle rc = automation.CurrentEditObject.InvalidRectangle;
      Point pos = new Point(rc.Right, rc.Bottom);
      automation.ShowObjectContextMenu(pos);
   }
   else
      MessageBox.Show("Cannot show the object context menu because no object is currently being edited (selected)");
}
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

AnnAutomation Class
AnnAutomation Members

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 All Rights Reserved. LEAD Technologies, Inc.