Public Overridable ReadOnly Property CanGroup As Boolean

Dim instance As AnnAutomation
Dim value As Boolean
 
value = instance.CanGroup

public virtual bool CanGroup {get;}

public:
virtual property bool CanGroup {
   bool get();
}

Public Sub AnnAutomation_CanGroup(ByVal automation As AnnAutomation)
   ShowStatus(automation)
   ' first, add two objects 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 = Nothing
   automation.Container.Objects.Add(rectObj)
   automation.Viewer.Invalidate(rectObj.InvalidRectangle)
   ShowStatus(automation)

   Dim lineObj As AnnLineObject = New AnnLineObject()
   lineObj.StartPoint = New AnnPoint(100, 100, AnnUnit.Pixel)
   lineObj.EndPoint = New AnnPoint(200, 200, AnnUnit.Pixel)
   lineObj.Pen = New AnnPen(Color.Red, New AnnLength(1, AnnUnit.Pixel))
   automation.Container.Objects.Add(lineObj)
   automation.Viewer.Invalidate(lineObj.InvalidRectangle)
   ShowStatus(automation)

   ' "select" both objects
   automation.StartEditing(rectObj, False)
   ShowStatus(automation)

   automation.StartEditing(lineObj, True)
   ShowStatus(automation)

   ' make this group object a true group
   If automation.CanGroup Then
      automation.Group()
      ShowStatus(automation)
   End If

   ' ungroup to again to the origina 2 objects
   If automation.CanUngroup Then
      automation.Ungroup()
      ShowStatus(automation)
   End If
End Sub

Private Sub ShowStatus(ByVal automation As AnnAutomation)
   Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()
   sb.Append("Number of objects: ")
   sb.Append(automation.Container.Objects.Count)
   sb.Append(Environment.NewLine)

   sb.Append("Object currently being edited: ")
   If Not automation.CurrentEditObject Is Nothing Then
      sb.Append(automation.CurrentEditObject.GetType().Name)
      If TypeOf automation.CurrentEditObject Is AnnGroupObject Then
         sb.Append(", Temporary: ")
         Dim group As AnnGroupObject = CType(IIf(TypeOf automation.CurrentEditObject Is AnnGroupObject, automation.CurrentEditObject, Nothing), AnnGroupObject)
         sb.Append(group.Temporary)
      End If
   Else
      sb.Append("None")
   End If

   sb.Append(Environment.NewLine)

   sb.Append("CanGroup: ")
   sb.Append(automation.CanGroup)
   sb.Append(", CanUngroup: ")
   sb.Append(automation.CanUngroup)

   MessageBox.Show(sb.ToString())
End Sub

public void AnnAutomation_CanGroup(AnnAutomation automation)
{
   ShowStatus(automation);
   // first, add two objects 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 = null;
   automation.Container.Objects.Add(rectObj);
   automation.Viewer.Invalidate(rectObj.InvalidRectangle);
   ShowStatus(automation);

   AnnLineObject lineObj = new AnnLineObject();
   lineObj.StartPoint = new AnnPoint(100, 100, AnnUnit.Pixel);
   lineObj.EndPoint = new AnnPoint(200, 200, AnnUnit.Pixel);
   lineObj.Pen = new AnnPen(Color.Red, new AnnLength(1, AnnUnit.Pixel));
   automation.Container.Objects.Add(lineObj);
   automation.Viewer.Invalidate(lineObj.InvalidRectangle);
   ShowStatus(automation);

   // "select" both objects
   automation.StartEditing(rectObj, false);
   ShowStatus(automation);

   automation.StartEditing(lineObj, true);
   ShowStatus(automation);

   // make this group object a true group
   if(automation.CanGroup)
   {
      automation.Group();
      ShowStatus(automation);
   }

   // ungroup to again to the origina 2 objects
   if(automation.CanUngroup)
   {
      automation.Ungroup();
      ShowStatus(automation);
   }
}

private void ShowStatus(AnnAutomation automation)
{
   System.Text.StringBuilder sb = new System.Text.StringBuilder();
   sb.Append("Number of objects: ");
   sb.Append(automation.Container.Objects.Count);
   sb.Append(Environment.NewLine);

   sb.Append("Object currently being edited: ");
   if(automation.CurrentEditObject != null)
   {
      sb.Append(automation.CurrentEditObject.GetType().Name);
      if(automation.CurrentEditObject is AnnGroupObject)
      {
         sb.Append(", Temporary: ");
         AnnGroupObject group = automation.CurrentEditObject as AnnGroupObject;
         sb.Append(group.Temporary);
      }
   }
   else
      sb.Append("None");

   sb.Append(Environment.NewLine);

   sb.Append("CanGroup: ");
   sb.Append(automation.CanGroup);
   sb.Append(", CanUngroup: ");
   sb.Append(automation.CanUngroup);

   MessageBox.Show(sb.ToString());
}