AnnDesigner Class

'Declaration
 
Public MustInherit Class AnnDesigner 

''' Shows how to use designers to create and select annotation objects
   Private Class MyForm1 : Inherits Form
      Private myAnnContainer As AnnContainer
      'AnnAutomationManager manager;
      Private viewer As RasterImageViewer
      Private codecs As RasterCodecs
      Private currentDesigner As AnnDesigner
      Public Sub New(ByVal title As String)
         Text = title
         Size = New Size(500, 200)

         viewer = New RasterImageViewer()
         AddHandler viewer.TransformChanged, AddressOf viewer_TransformChanged
         AddHandler viewer.PostImagePaint, AddressOf viewer_PostImagePaint
         AddHandler viewer.MouseDown, AddressOf viewer_MouseDown
         AddHandler viewer.MouseMove, AddressOf viewer_MouseMove
         AddHandler viewer.MouseUp, AddressOf viewer_MouseUp
         AddHandler viewer.LostFocus, AddressOf viewer_LostFocus

         ' load an image into the viewer
         codecs = New RasterCodecs()
         viewer.Image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp")) ' fix this path to an existing image file on your system

         ' create and set up the container
         myAnnContainer = New AnnContainer()
         myAnnContainer.Bounds = New AnnRectangle(0, 0, viewer.ImageSize.Width, viewer.ImageSize.Height)
         myAnnContainer.UnitConverter = New AnnUnitConverter(viewer.ImageDpiX, viewer.ImageDpiY)

         ' Create a panel with three buttons
         Dim panel As Panel = New Panel()
         panel.Dock = DockStyle.Left
         Controls.Add(panel)
         panel.BringToFront()

         ' Create three buttons
         Dim buttonLine As Button = New Button()
         AddHandler buttonLine.Click, AddressOf buttonLine_Click
         buttonLine.Text = "Line"
         buttonLine.Dock = DockStyle.Top
         panel.Controls.Add(buttonLine)
         buttonLine.BringToFront()

         Dim buttonRectangle As Button = New Button()
         AddHandler buttonRectangle.Click, AddressOf buttonRectangle_Click
         buttonRectangle.Text = "Rectangle"
         buttonRectangle.Dock = DockStyle.Bottom
         panel.Controls.Add(buttonRectangle)
         buttonRectangle.BringToFront()

         Dim buttonSelect As Button = New Button()
         AddHandler buttonSelect.Click, AddressOf buttonSelect_Click
         buttonSelect.Text = "Select"
         buttonSelect.Dock = DockStyle.Left
         panel.Controls.Add(buttonSelect)
         buttonSelect.BringToFront()

         ' Add the viewer
         viewer.Dock = DockStyle.Fill
         Controls.Add(viewer)
         viewer.BringToFront()

      End Sub

      Private Sub viewer_TransformChanged(ByVal sender As Object, ByVal e As EventArgs)
         ' set up the container transformation
         If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then
            myAnnContainer.Transform = viewer.Transform.Clone()
         End If
      End Sub

      Private Sub viewer_PostImagePaint(ByVal sender As Object, ByVal e As PaintEventArgs)
         ' draw the container and its objects on this viewer
         If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then
            myAnnContainer.Draw(e.Graphics)
         End If
      End Sub

      Private Sub buttonSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs)
         ' Select button is clicked
         ' cancel any draw designer running
         If Not currentDesigner Is Nothing AndAlso TypeOf currentDesigner Is AnnDrawDesigner Then
            Dim drawDesigner As AnnDrawDesigner = CType(IIf(TypeOf currentDesigner Is AnnDrawDesigner, currentDesigner, Nothing), AnnDrawDesigner)
            drawDesigner.Cancel()
            currentDesigner = Nothing
         End If
      End Sub

      Private Sub buttonLine_Click(ByVal sender As Object, ByVal e As System.EventArgs)
         ' Line button is clicked

         ' first end any current designer (if any)
         EndDesigner()

         ' start a new Line draw designer
         Dim lineDrawDesigner As AnnLineDrawDesigner = New AnnLineDrawDesigner()

         ' set up the object template (a 2 pixels-wide pen)
         Dim lineObject As AnnLineObject = New AnnLineObject()
         lineObject.Pen = New AnnPen(Color.Red, New AnnLength(2, AnnUnit.Pixel))
         lineDrawDesigner.ObjectTemplate = lineObject

         StartDrawDesigner(lineDrawDesigner)
      End Sub


      Private Sub buttonRectangle_Click(ByVal sender As Object, ByVal e As System.EventArgs)
         ' Rectangle button is clicked

         ' first end any current designer (if any)
         EndDesigner()

         ' start a new Rectangle draw designer
         Dim rectangleDrawDesigner As AnnRectangleDrawDesigner = New AnnRectangleDrawDesigner()

         ' set up the object template (a 2 pixels-wide pen)
         Dim rectangleObject As AnnRectangleObject = New AnnRectangleObject()
         rectangleObject.Pen = New AnnPen(Color.Red, New AnnLength(2, AnnUnit.Pixel))
         rectangleObject.Brush = New AnnSolidBrush(Color.Yellow)
         rectangleDrawDesigner.ObjectTemplate = rectangleObject

         StartDrawDesigner(rectangleDrawDesigner)
      End Sub

      Private Sub EndDesigner()
         ' ends any running designer
         If Not currentDesigner Is Nothing Then
            If TypeOf currentDesigner Is AnnEditDesigner Then
               Dim editDesigner As AnnEditDesigner = CType(IIf(TypeOf currentDesigner Is AnnEditDesigner, currentDesigner, Nothing), AnnEditDesigner)
               editDesigner.End()
            ElseIf TypeOf currentDesigner Is AnnDrawDesigner Then
               Dim drawDesigner As AnnDrawDesigner = CType(IIf(TypeOf currentDesigner Is AnnDrawDesigner, currentDesigner, Nothing), AnnDrawDesigner)
               drawDesigner.Cancel()
            End If
         End If
      End Sub

      Private Sub StartDrawDesigner(ByVal drawDesigner As AnnDrawDesigner)
         ' set up the current designer
         AddHandler drawDesigner.Draw, AddressOf OnDesignerDraw
         drawDesigner.Owner = viewer
         drawDesigner.ClipCursor = True
         drawDesigner.Container = myAnnContainer
         currentDesigner = drawDesigner
      End Sub

      Private Sub OnDesignerDraw(ByVal sender As Object, ByVal e As AnnDrawDesignerEventArgs)
         ' show information on the current draw operation
         Console.Write("Status: {0}, Object: {1}, Coordinates:", e.OperationStatus, e.Object.GetType().Name)
         If TypeOf e.Object Is AnnLineObject Then
            Dim lineObject As AnnLineObject = CType(IIf(TypeOf e.Object Is AnnLineObject, e.Object, Nothing), AnnLineObject)
            Console.WriteLine("Start Point: {0}, EndPoint: {1}", lineObject.StartPoint, lineObject.EndPoint)
         ElseIf TypeOf e.Object Is AnnRectangleObject Then
            Dim rectangleObject As AnnRectangleObject = CType(IIf(TypeOf e.Object Is AnnRectangleObject, e.Object, Nothing), AnnRectangleObject)
            Console.WriteLine("Bounds: {0}", rectangleObject.Bounds)
         End If
      End Sub

      Private Sub viewer_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
         Dim handled As Boolean = False

         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            handled = currentDesigner.MouseDown(e)
         End If

         If (Not handled) Then
            ' the mouse click was ! handled by a designer
            ' check if the click was on top of an existing object that we can start editing
            Dim pt As AnnPoint = New AnnPoint(e.X, e.Y)
            Dim obj As AnnObject = myAnnContainer.HitTest(pt, 2)
            If Not obj Is Nothing Then
               ' yes, start the edit designer for this object
               If TypeOf obj Is AnnLineObject Then
                  Dim lineEditDesigner As AnnLineEditDesigner = New AnnLineEditDesigner()
                  StartEditing(lineEditDesigner, obj, pt)
                  lineEditDesigner.MouseDown(e)
               ElseIf TypeOf obj Is AnnRectangleObject Then
                  Dim rectangleEditDesigner As AnnRectangleEditDesigner = New AnnRectangleEditDesigner()
                  StartEditing(rectangleEditDesigner, obj, pt)
                  rectangleEditDesigner.MouseDown(e)
               End If
            End If
         End If
      End Sub

      Private Sub StartEditing(ByVal editDesigner As AnnEditDesigner, ByVal obj As AnnObject, ByVal pt As AnnPoint)
         ' first end any running designers
         EndDesigner()

         ' set up the current designer
         AddHandler editDesigner.Edit, AddressOf OnDesignerEdit
         editDesigner.Owner = viewer
         editDesigner.Container = myAnnContainer
         editDesigner.ClipCursor = True
         editDesigner.EditObject = obj
         editDesigner.HitTestBuffer = 2
         editDesigner.ControlPointsHitTestBuffer = 2
         editDesigner.RotateModifierKey = Keys.Shift
         editDesigner.HitTestObject = obj.HitTest(pt, 2)

         ' set up the edit designer control points
         Dim rectangleControlPoint As AnnRectangleControlPoint = New AnnRectangleControlPoint()
         rectangleControlPoint.Size = New AnnSize(10, 10, AnnUnit.Pixel)
         rectangleControlPoint.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
         rectangleControlPoint.Brush = New AnnSolidBrush(Color.White)

         Dim i As Integer = 0
         Do While i < editDesigner.ControlPointCount
            editDesigner.ControlPoints(i) = rectangleControlPoint
            i += 1
         Loop

         editDesigner.Start()
         currentDesigner = editDesigner
      End Sub

      Private Sub OnDesignerEdit(ByVal sender As Object, ByVal e As AnnEditDesignerEventArgs)
         ' show information on the current draw operation
         Console.Write("Object: {0}, Operation: {1}, Status: {2}, ", e.Object.GetType().Name, e.Operation, e.OperationStatus)
         If e.Operation = AnnEditDesignerOperation.MoveControlPoint Then
            Console.WriteLine("Control Point index: {0}", e.MoveControlPointIndex)
         Else
            Console.WriteLine("HitTestObject: {0}", e.HitTestObject)
         End If
      End Sub

      Private Sub viewer_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
         Dim handled As Boolean = False

         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            handled = currentDesigner.MouseMove(e)
         End If
      End Sub

      Private Sub viewer_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
         Dim handled As Boolean = False

         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            handled = currentDesigner.MouseUp(e)
         End If
      End Sub

      Private Sub viewer_LostFocus(ByVal sender As Object, ByVal e As EventArgs)
         ' see if a designer is currently running, if so, cancel it
         If Not currentDesigner Is Nothing Then
            currentDesigner.Cancel()
         End If
      End Sub

   End Class

   Public Sub AnnDesigner_AnnDesigner(ByVal title As String)
      Dim form As MyForm1 = New MyForm1(title)
      form.ShowDialog()
   End Sub


Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class