AnnAutomationManager Class

Imports Leadtools 
Imports Leadtools.Annotations 
Imports Leadtools.WinForms 
Imports Leadtools.Codecs 
 
Private Class MyForm1 : Inherits Form 
   Private manager As AnnAutomationManager 
   Private viewer As RasterImageViewer 
   Private codecs As RasterCodecs 
 
   Public Sub New(ByVal title As String) 
      Text = title 
      Size = New Size(400, 400) 
 
      viewer = New RasterImageViewer() 
      viewer.Dock = DockStyle.Fill 
      Controls.Add(viewer) 
      viewer.BringToFront() 
 
 
      ' 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 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(); 
 
      ' Disable some of the property dialogs 
      ' In this case, we hide the 'Hyperlink' and 'Fixed' annotation property pages 
      manager.HidePropertiesTabs = AnnAutomationHidePropertiesTabs.Hyperlink Or AnnAutomationHidePropertiesTabs.Fixed 
 
      ' create the toolbar and add it to the form 
      manager.CreateToolBar() 
      Controls.Add(manager.ToolBar) 
 
      ' 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 
   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 = Nothing 
      selObj.EditDesignerType = Nothing 
      selObj.RunDesignerType = Nothing 
 
      ' create the toolbar button (or you can load the image from a disk file or resource) 
      Dim btmp As Bitmap = New Bitmap(16, 16) 
      Dim g As Graphics = Graphics.FromImage(btmp) 
      Try 
         g.FillRectangle(SystemBrushes.Control, New Rectangle(0, 0, 16, 16)) 
         g.DrawLine(Pens.Black, 4, 4, 12, 12) 
         g.DrawLine(Pens.Black, 4, 12, 12, 4) 
      Finally 
         CType(g, IDisposable).Dispose() 
      End Try 
 
      selObj.ToolBarImage = btmp 
      selObj.ToolBarToolTipText = "Select" 
      selObj.DrawCursor = Cursors.Default 
      selObj.ContextMenu = Nothing 
      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.Pen = New AnnPen(Color.Red, New AnnLength(1, AnnUnit.Pixel)) 
      lineObj.Object = line 
      lineObj.DrawDesignerType = GetType(AnnLineDrawDesigner) 
      lineObj.EditDesignerType = GetType(AnnLineEditDesigner) 
      lineObj.RunDesignerType = GetType(AnnRunDesigner) 
      btmp = New Bitmap(16, 16) 
      g = Graphics.FromImage(btmp) 
      Try 
         g.FillRectangle(SystemBrushes.Control, New Rectangle(0, 0, 16, 16)) 
         g.DrawLine(Pens.Black, 4, 12, 12, 4) 
      Finally 
         CType(g, IDisposable).Dispose() 
      End Try 
      lineObj.ToolBarImage = btmp 
      lineObj.ToolBarToolTipText = "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.Pen = New AnnPen(Color.Red, New AnnLength(1, AnnUnit.Pixel)) 
      rect.Brush = New AnnSolidBrush(Color.White) 
      rectObj.Object = rect 
      rectObj.DrawDesignerType = GetType(AnnRectangleDrawDesigner) 
      rectObj.EditDesignerType = GetType(AnnRectangleEditDesigner) 
      rectObj.RunDesignerType = GetType(AnnRunDesigner) 
      btmp = New Bitmap(16, 16) 
      g = Graphics.FromImage(btmp) 
      Try 
         g.FillRectangle(SystemBrushes.Control, New Rectangle(0, 0, 16, 16)) 
         g.DrawRectangle(Pens.Black, 2, 4, 10, 8) 
      Finally 
         CType(g, IDisposable).Dispose() 
      End Try 
      rectObj.ToolBarImage = btmp 
      rectObj.ToolBarToolTipText = "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(AnnNewGroupEditDesigner) 
      groupObj.RunDesignerType = GetType(AnnRunDesigner) 
      groupObj.ToolBarImage = Nothing ' group is not in the toolbar 
      groupObj.ToolBarToolTipText = Nothing 
      groupObj.DrawCursor = Nothing 
      groupObj.ContextMenu = AnnAutomationManager.CreateDefaultObjectContextMenu(groupObj.Id) 
      manager.Objects.Add(groupObj) 
   End Sub 
End Class 
 
 
Public Sub AnnAutomationManager_AnnAutomationManager(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