AnnDesigner Class

'Declaration
 
Public MustInherit Class AnnDesigner 

''' Shows how to use designers to create and select annotation objects
   Private Class MyWindow1 : Inherits Window
      Private container As AnnContainer
      'AnnAutomationManager manager;
      Private viewer As ImageViewer
      Private currentDesigner As AnnDesigner
      Public Sub New(ByVal title As String)
         Me.Title = title
         Me.Width = 500
         Me.Height = 200

         viewer = New ImageViewer()

         ' load an image into the viewer
         ' fix this path to an existing image file on your system
         viewer.Source = New BitmapImage(New Uri(Path.Combine(LEAD_VARS.ImagesDir, "cannon.jpg")))
         viewer.Width = Double.NaN
         viewer.Height = Double.NaN

         ' create and set up the container
         container = New AnnContainer()
         container.Width = viewer.Source.Width
         container.Height = viewer.Source.Height

         AddHandler container.MouseLeftButtonDown, AddressOf container_MouseLeftButtonDown
         AddHandler container.MouseMove, AddressOf container_MouseMove
         AddHandler container.MouseLeftButtonUp, AddressOf container_MouseLeftButtonUp

         ' Set the container as a content of viewer
         viewer.Content = container

         ' Create a panel with three buttons
         Dim stackPanel As StackPanel = New StackPanel()
         DockPanel.SetDock(stackPanel, Dock.Top)

         ' Create three buttons
         Dim buttonLine As Button = New Button()
         AddHandler buttonLine.Click, AddressOf buttonLine_Click
         buttonLine.Content = "Line"
         stackPanel.Children.Add(buttonLine)

         Dim buttonRectangle As Button = New Button()
         AddHandler buttonRectangle.Click, AddressOf buttonRectangle_Click
         buttonRectangle.Content = "Rectangle"
         stackPanel.Children.Add(buttonRectangle)

         Dim buttonSelect As Button = New Button()
         AddHandler buttonSelect.Click, AddressOf buttonSelect_Click
         buttonSelect.Content = "Select"
         stackPanel.Children.Add(buttonSelect)

         ' Add the viewer
         Dim panel As DockPanel = New DockPanel()
         panel.Children.Add(viewer)

         ' set panel as content
         Me.Content = panel
      End Sub

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

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

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

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

         ' set up the object template (a 2 pixels-wide pen)
         Dim lineObject As AnnLineObject = New AnnLineObject()
         lineObject.Stroke = Colors.Red
         lineObject.StrokeThickness = 2.0
         lineDrawDesigner.ObjectTemplate = lineObject

         StartDrawDesigner(lineDrawDesigner)
      End Sub


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

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

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

         ' set up the object template (a 2 pixels-wide pen)
         Dim rectangleObject As AnnRectangleObject = New AnnRectangleObject()
         rectangleObject.Stroke = Colors.Red
         rectangleObject.StrokeThickness = 2.0
         rectangleObject.Fill = Colors.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 = DirectCast(currentDesigner, AnnEditDesigner)
               editDesigner.End()
            ElseIf TypeOf currentDesigner Is AnnDrawDesigner Then
               Dim drawDesigner As AnnDrawDesigner = DirectCast(currentDesigner, 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
         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 = DirectCast(e.Object, AnnLineObject)
            Console.WriteLine("Start Point: {{0},{1}}, EndPoint: {{2},{3}}", _
             lineObject.Start.X, lineObject.Start.Y, lineObject.End.X, lineObject.End.Y)
         ElseIf TypeOf e.Object Is AnnRectangleObject Then
            Dim rectangleObject As AnnRectangleObject = DirectCast(e.Object, AnnRectangleObject)
            Console.WriteLine("Left: {0}", rectangleObject.Rect.Left)
            Console.WriteLine("Top: {0}", rectangleObject.Rect.Top)
            Console.WriteLine("Width: {0}", rectangleObject.Rect.Width)
            Console.WriteLine("Height: {0}", rectangleObject.Rect.Height)
         End If
      End Sub

      Private Sub container_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            e = New MouseButtonEventArgs(InputManager.Current.PrimaryMouseDevice, e.Timestamp, MouseButton.Left)
            currentDesigner.OnMouseLeftButtonDown(DirectCast(sender, AnnContainer), e)
         End If

         If (Not e.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 System.Windows.Point = e.GetPosition(container)
            Dim obj As AnnObject = container.HitTest(pt)
            If Not obj Is Nothing Then
               ' yes, start the edit designer for this object
               If TypeOf obj Is AnnLineObject Then
                  Dim lineEditDesigner As New AnnLineEditDesigner(DirectCast(obj, AnnLineObject), DirectCast(viewer.Content, AnnContainer))
                  StartEditing(lineEditDesigner, obj, pt)
                  lineEditDesigner.OnMouseLeftButtonDown(DirectCast(sender, AnnContainer), e)
               ElseIf TypeOf obj Is AnnRectangleObject Then
                  Dim rectangleEditDesigner As New AnnRectangleEditDesigner(DirectCast(obj, AnnRectangleObject), _
                     DirectCast(viewer.Content, AnnContainer))
                  StartEditing(rectangleEditDesigner, obj, pt)
                  rectangleEditDesigner.OnMouseLeftButtonDown(DirectCast(sender, AnnContainer), e)
               End If
            End If
         End If
      End Sub

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

         ' set up the current designer
         AddHandler editDesigner.Edit, AddressOf OnDesignerEdit
         editDesigner.RotateModifierKey = ModifierKeys.Shift

         Dim i As Integer = 0
         Do While i < editDesigner.ControlPointCount
            ' set up the edit designer control points
            Dim cp As System.Windows.Controls.Primitives.Thumb = New System.Windows.Controls.Primitives.Thumb()
            cp.Width = 10
            cp.Height = 10

            cp.BorderBrush = Brushes.Blue
            cp.BorderThickness = New Thickness(1.0)
            cp.Background = Brushes.White
            editDesigner.ControlPoints(i) = cp
            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)
         End If
      End Sub

      Private Sub container_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            e = New MouseEventArgs(InputManager.Current.PrimaryMouseDevice, e.Timestamp)

            currentDesigner.OnMouseMove(DirectCast(sender, AnnContainer), e)
         End If
      End Sub

      Private Sub container_MouseLeftButtonUp(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
         ' see if a designer is currently running, if so, let it handle this event
         If Not currentDesigner Is Nothing Then
            e = New MouseButtonEventArgs(InputManager.Current.PrimaryMouseDevice, e.Timestamp, MouseButton.Left)
            currentDesigner.OnMouseLeftButtonUp(DirectCast(sender, AnnContainer), e)
         End If
      End Sub
   End Class

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


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