AnnAutomationManager Class

'Declaration
 
Public Class AnnAutomationManager 

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