AnnDesigner Class

Imports Leadtools.Windows.Controls 
Imports Leadtools.Windows.Annotations 
 
''' 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