AnnAutomationManager Class

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations

Private Class MyWindow1 : Inherits Window
   Private manager As AnnAutomationManager
   Private viewer As ImageViewer
   Public Sub New(ByVal title As String)
      Me.Title = title
      Me.Width = 400
      Me.Height = 400

      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 automation manager
      manager = New AnnAutomationManager()

      ' Create only the line and rectangle automation objects
      CreateMyAutomationObjects(manager)

      ' You can instruct the manager to create the default (all) automation objects.
      ' comment out the call to CreateMyAutomationObjects and call this instead:
      'theManager.CreateDefaultObjects();

      ' create the toolbar and add it to the ToolBarTray
      manager.CreateToolBar()

      Dim tbt As ToolBarTray = New ToolBarTray()
      tbt.Orientation = Orientation.Horizontal
      DockPanel.SetDock(tbt, Dock.Top)
      tbt.ToolBars.Add(manager.ToolBar.ToolBar)

      Dim dp As DockPanel = New DockPanel()
      dp.Children.Add(tbt)
      dp.Children.Add(viewer)

      ' set the DockPanel as a content of the window.
      Me.Content = dp

      ' set up the automation (will create the container as well)
      Dim automation As AnnAutomation = New AnnAutomation(manager, viewer)

      ' set up this automation as the active one
      automation.Active = True

      automation.UndoCapacity = 12
   End Sub

   Private Sub CreateMyAutomationObjects(ByVal manager As AnnAutomationManager)
      ' set up the select automation object
      Dim selObj As AnnAutomationObject = New AnnAutomationObject()
      selObj.Id = AnnAutomationManager.SelectObjectId
      selObj.Name = "Select"
      selObj.Object = Nothing
      selObj.DrawDesignerType = GetType(AnnRectangleDrawDesigner)
      selObj.EditDesignerType = Nothing
      selObj.RunDesignerType = Nothing

      ' create the toolbar button (or you can load the image from a disk file or resource)
      Dim dv As DrawingVisual = New DrawingVisual()
      Using dc As DrawingContext = dv.RenderOpen()
         dc.DrawRectangle(New SolidColorBrush(Color.FromRgb(236, 233, 216)), Nothing, New Rect(0, 0, 24, 24))
         dc.DrawLine(New Pen(Brushes.Black, 2), New System.Windows.Point(4, 4), New System.Windows.Point(22, 22))
         dc.DrawLine(New Pen(Brushes.Black, 2), New System.Windows.Point(4, 22), New System.Windows.Point(22, 4))

         dc.Close()

         Dim bmp As RenderTargetBitmap = New RenderTargetBitmap(24, 24, 96, 96, PixelFormats.Pbgra32)
         bmp.Render(dv)
         selObj.ToolBarButtonImage = bmp
      End Using

      selObj.ToolBarButtonToolTip = New ToolTip()
      selObj.ToolBarButtonToolTip.Content = "Select"
      selObj.DrawCursor = Cursors.Hand
      selObj.ContextMenu = Nothing

      Dim selectObj As AnnSelectObject = New AnnSelectObject()
      selectObj.Stroke = Colors.White
      selectObj.StrokeThickness = 2.0

      selObj.Object = selectObj

      manager.Objects.Add(selObj)

      ' set up the line automation object
      Dim lineObj As AnnAutomationObject = New AnnAutomationObject()
      lineObj.Id = AnnAutomationManager.LineObjectId
      lineObj.Name = "Line"
      Dim line As AnnLineObject = New AnnLineObject()
      line.Stroke = Colors.Red
      line.StrokeThickness = 2.0
      lineObj.Object = line
      lineObj.DrawDesignerType = GetType(AnnLineDrawDesigner)
      lineObj.EditDesignerType = GetType(AnnLineEditDesigner)
      lineObj.RunDesignerType = GetType(AnnRunDesigner)

      Using dc As DrawingContext = dv.RenderOpen()
         dc.DrawRectangle(New SolidColorBrush(Color.FromRgb(236, 233, 216)), Nothing, New Rect(0, 0, 24, 24))
         dc.DrawLine(New Pen(Brushes.Black, 2), New System.Windows.Point(4, 4), New System.Windows.Point(22, 22))

         dc.Close()

         Dim bmp As RenderTargetBitmap = New RenderTargetBitmap(24, 24, 96, 96, PixelFormats.Pbgra32)
         bmp.Render(dv)
         lineObj.ToolBarButtonImage = bmp
      End Using

      lineObj.ToolBarButtonToolTip = New ToolTip()
      lineObj.ToolBarButtonToolTip.Content = "Draw new line object"
      lineObj.DrawCursor = Cursors.Cross
      lineObj.ContextMenu = AnnAutomationManager.CreateDefaultObjectContextMenu(lineObj.Id)
      manager.Objects.Add(lineObj)

      ' set up the rectangle automation object
      Dim rectObj As AnnAutomationObject = New AnnAutomationObject()
      rectObj.Id = AnnAutomationManager.RectangleObjectId
      rectObj.Name = "Rectangle"
      Dim rect As AnnRectangleObject = New AnnRectangleObject()
      rect.Stroke = Colors.Red
      rect.StrokeThickness = 2.0
      rect.Fill = Colors.White
      rectObj.Object = rect
      rectObj.DrawDesignerType = GetType(AnnRectangleDrawDesigner)
      rectObj.EditDesignerType = GetType(AnnRectangleEditDesigner)
      rectObj.RunDesignerType = GetType(AnnRunDesigner)

      Using dc As DrawingContext = dv.RenderOpen()
         dc.DrawRectangle(New SolidColorBrush(Color.FromRgb(236, 233, 216)), Nothing, New Rect(0, 0, 24, 24))
         dc.DrawRectangle(Nothing, New Pen(Brushes.Black, 2), New Rect(2, 4, 20, 18))

         dc.Close()

         Dim bmp As RenderTargetBitmap = New RenderTargetBitmap(24, 24, 96, 96, PixelFormats.Pbgra32)
         bmp.Render(dv)
         rectObj.ToolBarButtonImage = bmp
      End Using

      rectObj.ToolBarButtonToolTip = New ToolTip()
      rectObj.ToolBarButtonToolTip.Content = "Draw new rectangle object"
      rectObj.DrawCursor = Cursors.Cross
      rectObj.ContextMenu = AnnAutomationManager.CreateDefaultObjectContextMenu(rectObj.Id)
      manager.Objects.Add(rectObj)

      ' set up the group automation object (always needed)
      Dim groupObj As AnnAutomationObject = New AnnAutomationObject()
      groupObj.Id = AnnAutomationManager.GroupObjectId
      groupObj.Name = "Group"
      groupObj.Object = New AnnGroupObject()
      groupObj.DrawDesignerType = Nothing
      groupObj.EditDesignerType = GetType(AnnGroupEditDesigner)
      groupObj.RunDesignerType = GetType(AnnRunDesigner)
      groupObj.ToolBarButtonImage = Nothing ' group is not in the toolbar
      groupObj.ToolBarButtonToolTip = Nothing
      groupObj.DrawCursor = Nothing
      groupObj.ContextMenu = AnnAutomationManager.CreateDefaultObjectContextMenu(groupObj.Id)
      manager.Objects.Add(groupObj)
   End Sub
End Class

Private Sub AnnAutomationManager_AnnAutomationManager(ByVal title As String)
   Dim window As MyWindow1 = New MyWindow1(title)
   window.ShowDialog()
End Sub


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

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos

Private Class MyWindow1 : Inherits ChildWindow
   Private manager As AnnAutomationManager
   Private viewer As ImageViewer
   Public Sub New(ByVal title As String)
      Me.Title = title
      Me.Width = 400
      Me.Height = 400

      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(LeadtoolsExamples.Common.ImagesPath.Path & "ScarletMacaws.jpg"))
      viewer.Width = Double.NaN
      viewer.Height = Double.NaN
      ' create and set up the automation manager
      manager = New AnnAutomationManager()

      ' Create only the line and rectangle automation objects
      CreateMyAutomationObjects(manager)

      ' You can instruct the manager to create the default (all) automation objects.
      ' comment out the call to CreateMyAutomationObjects and call this instead:
      'theManager.CreateDefaultObjects();

      ' create the toolbar and add it to the ToolBarTray
      manager.CreateToolBar()

      Dim dp As StackPanel = New StackPanel()
      dp.Children.Add(viewer)

      ' set the DockPanel as a content of the window.
      Me.Content = dp

      ' set up the automation (will create the container as well)
      Dim automation As AnnAutomation = New AnnAutomation(manager, viewer)

      ' set up this automation as the active one
      automation.Active = True

      automation.UndoCapacity = 12
   End Sub

   Private Sub CreateMyAutomationObjects(ByVal manager As AnnAutomationManager)
      ' set up the select automation object
      Dim selObj As AnnAutomationObject = New AnnAutomationObject()
      selObj.Id = AnnAutomationManager.SelectObjectId
      selObj.Name = "Select"
      selObj.Object = Nothing
      selObj.DrawDesignerType = GetType(AnnRectangleDrawDesigner)
      selObj.EditDesignerType = Nothing
      selObj.RunDesignerType = Nothing

      ' create the toolbar button (or you can load the image from a disk file or resource)
      Dim myCanvas1 As Canvas = New Canvas()
      Dim wb1 As WriteableBitmap = New WriteableBitmap(100, 100)
      Dim myRect1 As Rectangle = New Rectangle()
      myRect1.Width = 24
      myRect1.Height = 24
      myRect1.Fill = New SolidColorBrush(Color.FromArgb(255, 236, 233, 216))

      myCanvas1.Children.Add(myRect1)

      Dim myline1 As Line = New Line()
      myline1.Fill = New SolidColorBrush(Colors.Black)
      myline1.X1 = 4
      myline1.Y1 = 4
      myline1.X2 = 22
      myline1.Y2 = 22
      myCanvas1.Children.Add(myline1)

      Dim myline2 As Line = New Line()
      myline2.Fill = New SolidColorBrush(Colors.Black)
      myline2.X1 = 22
      myline2.Y1 = 4
      myline2.X2 = 22
      myline2.Y2 = 4
      myCanvas1.Children.Add(myline2)

      wb1.Render(myCanvas1, Nothing)
      wb1.Invalidate()

      selObj.ToolBarButtonImage = wb1

      selObj.ToolBarButtonToolTip = New ToolTip()
      selObj.ToolBarButtonToolTip.Content = "Select"
      selObj.DrawCursor = Cursors.Hand

      Dim selectObj As AnnSelectObject = New AnnSelectObject()
      selectObj.Stroke = Colors.White
      selectObj.StrokeThickness = 2.0

      selObj.Object = selectObj

      manager.Objects.Add(selObj)

      ' set up the line automation object
      Dim lineObj As AnnAutomationObject = New AnnAutomationObject()
      lineObj.Id = AnnAutomationManager.LineObjectId
      lineObj.Name = "Line"
      Dim line As AnnLineObject = New AnnLineObject()
      line.Stroke = Colors.Red
      line.StrokeThickness = 2.0
      lineObj.Object = line
      lineObj.DrawDesignerType = GetType(AnnLineDrawDesigner)
      lineObj.EditDesignerType = GetType(AnnLineEditDesigner)
      lineObj.RunDesignerType = GetType(AnnRunDesigner)

      Dim myCanvas2 As Canvas = New Canvas()
      Dim wb2 As WriteableBitmap = New WriteableBitmap(100, 100)
      Dim myRect2 As Rectangle = New Rectangle()
      myRect2.Width = 24
      myRect2.Height = 24
      myRect2.Fill = New SolidColorBrush(Color.FromArgb(255, 236, 233, 216))

      myCanvas2.Children.Add(myRect2)

      Dim line1 As Line = New Line()
      line1.Fill = New SolidColorBrush(Colors.Black)
      line1.X1 = 4
      line1.Y1 = 4
      line1.X2 = 22
      line1.Y2 = 22
      myCanvas2.Children.Add(line1)

      wb2.Render(myCanvas2, Nothing)
      wb2.Invalidate()

      lineObj.ToolBarButtonImage = wb2

      lineObj.ToolBarButtonToolTip = New ToolTip()
      lineObj.ToolBarButtonToolTip.Content = "Draw new line object"
      lineObj.DrawCursor = Cursors.Arrow
      manager.Objects.Add(lineObj)

      ' set up the rectangle automation object
      Dim rectObj As AnnAutomationObject = New AnnAutomationObject()
      rectObj.Id = AnnAutomationManager.RectangleObjectId
      rectObj.Name = "Rectangle"
      Dim rect As AnnRectangleObject = New AnnRectangleObject()
      rect.StrokeThickness = 2.0
      rect.Stroke = Colors.Red
      rect.Fill = Colors.White
      rectObj.Object = rect
      rectObj.DrawDesignerType = GetType(AnnRectangleDrawDesigner)
      rectObj.EditDesignerType = GetType(AnnRectangleEditDesigner)
      rectObj.RunDesignerType = GetType(AnnRunDesigner)

      Dim myCanvas3 As Canvas = New Canvas()
      Dim wb3 As WriteableBitmap = New WriteableBitmap(100, 100)
      Dim myRect As Rectangle = New Rectangle()
      myRect.Width = 24
      myRect.Height = 24
      myRect.Fill = New SolidColorBrush(Color.FromArgb(255, 236, 233, 216))

      myCanvas3.Children.Add(myRect)

      Dim ln As Line = New Line()
      ln.Fill = New SolidColorBrush(Colors.Black)
      ln.X1 = 2
      ln.Y1 = 4
      ln.X2 = 20
      ln.Y2 = 18
      myCanvas3.Children.Add(ln)

      wb3.Render(myCanvas3, Nothing)
      wb3.Invalidate()

      rectObj.ToolBarButtonImage = wb2

      rectObj.ToolBarButtonToolTip = New ToolTip()
      rectObj.ToolBarButtonToolTip.Content = "Draw new rectangle object"
      rectObj.DrawCursor = Cursors.Stylus
      manager.Objects.Add(rectObj)

      ' set up the group automation object (always needed)
      Dim groupObj As AnnAutomationObject = New AnnAutomationObject()
      groupObj.Id = AnnAutomationManager.GroupObjectId
      groupObj.Name = "Group"
      groupObj.Object = New AnnGroupObject()
      groupObj.DrawDesignerType = Nothing
      groupObj.EditDesignerType = GetType(AnnGroupEditDesigner)
      groupObj.RunDesignerType = GetType(AnnRunDesigner)
      groupObj.ToolBarButtonImage = Nothing ' group is not in the toolbar
      groupObj.ToolBarButtonToolTip = Nothing
      groupObj.DrawCursor = Nothing
      manager.Objects.Add(groupObj)
   End Sub
End Class