AnnDesigner Class

Imports Leadtools 
Imports Leadtools.Annotations 
Imports Leadtools.Codecs 
Imports Leadtools.WinForms 
 
''' Shows how to use designers to create and select annotation objects 
Private Class MyForm1 : Inherits Form 
   Private myAnnContainer As AnnContainer 
   'AnnAutomationManager manager; 
   Private viewer As RasterImageViewer 
   Private codecs As RasterCodecs 
   Private currentDesigner As AnnDesigner 
 
   Public Sub New(ByVal title As String) 
      Text = title 
      Size = New Size(500, 200) 
 
      viewer = New RasterImageViewer() 
      AddHandler viewer.TransformChanged, AddressOf viewer_TransformChanged 
      AddHandler viewer.PostImagePaint, AddressOf viewer_PostImagePaint 
      AddHandler viewer.MouseDown, AddressOf viewer_MouseDown 
      AddHandler viewer.MouseMove, AddressOf viewer_MouseMove 
      AddHandler viewer.MouseUp, AddressOf viewer_MouseUp 
      AddHandler viewer.LostFocus, AddressOf viewer_LostFocus 
 
      ' 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 container 
      myAnnContainer = New AnnContainer() 
      myAnnContainer.Bounds = New AnnRectangle(0, 0, viewer.ImageSize.Width, viewer.ImageSize.Height) 
      myAnnContainer.UnitConverter = New AnnUnitConverter(viewer.ImageDpiX, viewer.ImageDpiY) 
 
      ' Create a panel with three buttons 
      Dim panel As Panel = New Panel() 
      panel.Dock = DockStyle.Left 
      Controls.Add(panel) 
      panel.BringToFront() 
 
      ' Create three buttons 
      Dim buttonLine As Button = New Button() 
      AddHandler buttonLine.Click, AddressOf buttonLine_Click 
      buttonLine.Text = "Line" 
      buttonLine.Dock = DockStyle.Top 
      panel.Controls.Add(buttonLine) 
      buttonLine.BringToFront() 
 
      Dim buttonRectangle As Button = New Button() 
      AddHandler buttonRectangle.Click, AddressOf buttonRectangle_Click 
      buttonRectangle.Text = "Rectangle" 
      buttonRectangle.Dock = DockStyle.Bottom 
      panel.Controls.Add(buttonRectangle) 
      buttonRectangle.BringToFront() 
 
      Dim buttonSelect As Button = New Button() 
      AddHandler buttonSelect.Click, AddressOf buttonSelect_Click 
      buttonSelect.Text = "Select" 
      buttonSelect.Dock = DockStyle.Left 
      panel.Controls.Add(buttonSelect) 
      buttonSelect.BringToFront() 
 
      ' Add the viewer 
      viewer.Dock = DockStyle.Fill 
      Controls.Add(viewer) 
      viewer.BringToFront() 
 
   End Sub 
 
   Private Sub viewer_TransformChanged(ByVal sender As Object, ByVal e As EventArgs) 
      ' set up the container transformation 
      If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then 
         myAnnContainer.Transform = viewer.Transform.Clone() 
      End If 
   End Sub 
 
   Private Sub viewer_PostImagePaint(ByVal sender As Object, ByVal e As PaintEventArgs) 
      ' draw the container and its objects on this viewer 
      If Not viewer.Image Is Nothing AndAlso Not myAnnContainer Is Nothing Then 
         myAnnContainer.Draw(e.Graphics) 
      End If 
   End Sub 
 
   Private Sub buttonSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
      ' Select button is clicked 
      ' cancel any draw designer running 
      If Not currentDesigner Is Nothing AndAlso TypeOf currentDesigner Is AnnDrawDesigner Then 
         Dim drawDesigner As AnnDrawDesigner = CType(IIf(TypeOf currentDesigner Is AnnDrawDesigner, currentDesigner, Nothing), AnnDrawDesigner) 
         drawDesigner.Cancel() 
         currentDesigner = Nothing 
      End If 
   End Sub 
 
   Private Sub buttonLine_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
      ' Line button is clicked 
 
      ' first end any current designer (if any) 
      EndDesigner() 
 
      ' start a new Line draw designer 
      Dim lineDrawDesigner As AnnLineDrawDesigner = New AnnLineDrawDesigner() 
 
      ' set up the object template (a 2 pixels-wide pen) 
      Dim lineObject As AnnLineObject = New AnnLineObject() 
      lineObject.Pen = New AnnPen(Color.Red, New AnnLength(2, AnnUnit.Pixel)) 
      lineDrawDesigner.ObjectTemplate = lineObject 
 
      StartDrawDesigner(lineDrawDesigner) 
   End Sub 
 
 
   Private Sub buttonRectangle_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
      ' Rectangle button is clicked 
 
      ' first end any current designer (if any) 
      EndDesigner() 
 
      ' start a new Rectangle draw designer 
      Dim rectangleDrawDesigner As AnnRectangleDrawDesigner = New AnnRectangleDrawDesigner() 
 
      ' set up the object template (a 2 pixels-wide pen) 
      Dim rectangleObject As AnnRectangleObject = New AnnRectangleObject() 
      rectangleObject.Pen = New AnnPen(Color.Red, New AnnLength(2, AnnUnit.Pixel)) 
      rectangleObject.Brush = New AnnSolidBrush(Color.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 = CType(IIf(TypeOf currentDesigner Is AnnEditDesigner, currentDesigner, Nothing), AnnEditDesigner) 
            editDesigner.End() 
         ElseIf TypeOf currentDesigner Is AnnDrawDesigner Then 
            Dim drawDesigner As AnnDrawDesigner = CType(IIf(TypeOf currentDesigner Is AnnDrawDesigner, currentDesigner, Nothing), 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 
      drawDesigner.Owner = viewer 
      drawDesigner.ClipCursor = True 
      drawDesigner.Container = myAnnContainer 
      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 = CType(IIf(TypeOf e.Object Is AnnLineObject, e.Object, Nothing), AnnLineObject) 
         Console.WriteLine("Start Point: {0}, EndPoint: {1}", lineObject.StartPoint, lineObject.EndPoint) 
      ElseIf TypeOf e.Object Is AnnRectangleObject Then 
         Dim rectangleObject As AnnRectangleObject = CType(IIf(TypeOf e.Object Is AnnRectangleObject, e.Object, Nothing), AnnRectangleObject) 
         Console.WriteLine("Bounds: {0}", rectangleObject.Bounds) 
      End If 
   End Sub 
 
   Private Sub viewer_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseDown(e) 
      End If 
 
      If (Not 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 AnnPoint = New AnnPoint(e.X, e.Y) 
         Dim obj As AnnObject = myAnnContainer.HitTest(pt, 2) 
         If Not obj Is Nothing Then 
            ' yes, start the edit designer for this object 
            If TypeOf obj Is AnnLineObject Then 
               Dim lineEditDesigner As AnnLineEditDesigner = New AnnLineEditDesigner() 
               StartEditing(lineEditDesigner, obj, pt) 
               lineEditDesigner.MouseDown(e) 
            ElseIf TypeOf obj Is AnnRectangleObject Then 
               Dim rectangleEditDesigner As AnnRectangleEditDesigner = New AnnRectangleEditDesigner() 
               StartEditing(rectangleEditDesigner, obj, pt) 
               rectangleEditDesigner.MouseDown(e) 
            End If 
         End If 
      End If 
   End Sub 
 
   Private Sub StartEditing(ByVal editDesigner As AnnEditDesigner, ByVal obj As AnnObject, ByVal pt As AnnPoint) 
      ' first end any running designers 
      EndDesigner() 
 
      ' set up the current designer 
      AddHandler editDesigner.Edit, AddressOf OnDesignerEdit 
      editDesigner.Owner = viewer 
      editDesigner.Container = myAnnContainer 
      editDesigner.ClipCursor = True 
      editDesigner.EditObject = obj 
      editDesigner.HitTestBuffer = 2 
      editDesigner.ControlPointsHitTestBuffer = 2 
      editDesigner.RotateModifierKey = Keys.Shift 
      editDesigner.HitTestObject = obj.HitTest(pt, 2) 
 
      ' set up the edit designer control points 
      Dim rectangleControlPoint As AnnRectangleControlPoint = New AnnRectangleControlPoint() 
      rectangleControlPoint.Size = New AnnSize(10, 10, AnnUnit.Pixel) 
      rectangleControlPoint.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel)) 
      rectangleControlPoint.Brush = New AnnSolidBrush(Color.White) 
 
      Dim i As Integer = 0 
      Do While i < editDesigner.ControlPointCount 
         editDesigner.ControlPoints(i) = rectangleControlPoint 
         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) 
      Else 
         Console.WriteLine("HitTestObject: {0}", e.HitTestObject) 
      End If 
   End Sub 
 
   Private Sub viewer_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseMove(e) 
      End If 
   End Sub 
 
   Private Sub viewer_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) 
      Dim handled As Boolean = False 
 
      ' see if a designer is currently running, if so, let it handle this event 
      If Not currentDesigner Is Nothing Then 
         handled = currentDesigner.MouseUp(e) 
      End If 
   End Sub 
 
   Private Sub viewer_LostFocus(ByVal sender As Object, ByVal e As EventArgs) 
      ' see if a designer is currently running, if so, cancel it 
      If Not currentDesigner Is Nothing Then 
         currentDesigner.Cancel() 
      End If 
   End Sub 
 
End Class 
 
Public Sub AnnDesigner_AnnDesigner(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