AnnRunDesigner Class

Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms

Private Class MyForm1 : Inherits Form
   Private myAnnContainer As AnnContainer
   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)

      ' Add the viewer
      viewer.Dock = DockStyle.Fill
      Controls.Add(viewer)
      viewer.BringToFront()

      ' add a few objects to the container
      Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
      rectObj.Bounds = New AnnRectangle(100, 100, 200, 200, AnnUnit.Pixel)
      rectObj.Pen = New AnnPen(Color.Blue, New AnnLength(2, AnnUnit.Pixel))
      rectObj.Brush = New AnnSolidBrush(Color.Yellow)
      myAnnContainer.Objects.Add(rectObj)

      Dim buttonObj As AnnButtonObject = New AnnButtonObject()
      buttonObj.Bounds = New AnnRectangle(100, 320, 200, 24, AnnUnit.Pixel)
      buttonObj.Text = "Goto Leadtools website"
      buttonObj.TextColor = Color.Black
      buttonObj.Font = New AnnFont("Arial", New AnnLength(8, AnnUnit.Point), FontStyle.Regular)
      buttonObj.Hyperlink = "http://www.leadtools.com"
      myAnnContainer.Objects.Add(buttonObj)
   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 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 not handled by a designer
         ' check if the click was on top of an existing object that we can start running
         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 run designer for this object
            If TypeOf obj Is AnnButtonObject Then
               Dim buttonRunDesigner As AnnButtonRunDesigner = New AnnButtonRunDesigner()
               StartRunning(buttonRunDesigner, obj, e)
            Else
               Dim runDesigner As AnnRunDesigner = New AnnRunDesigner()
               StartRunning(runDesigner, obj, e)
            End If
         End If
      End If
   End Sub

   Private Sub StartRunning(ByVal runDesigner As AnnRunDesigner, ByVal obj As AnnObject, ByVal e As MouseEventArgs)
      ' set up the current designer
      AddHandler runDesigner.Run, AddressOf OnDesignerRun
      runDesigner.Owner = viewer
      runDesigner.Container = myAnnContainer
      runDesigner.ClipCursor = True
      runDesigner.Object = obj
      runDesigner.HitTestBuffer = 2
      runDesigner.Start()
      currentDesigner = runDesigner
      currentDesigner.MouseDown(e)
   End Sub

   Private Sub OnDesignerRun(ByVal sender As Object, ByVal e As AnnRunDesignerEventArgs)
      ' show information on the current edit operation
      Console.WriteLine("Object: {0}, Status: {1}, ", e.Object.GetType().Name, e.OperationStatus)

      If e.OperationStatus = AnnDesignerOperationStatus.End Then
         ' check if the object does not have a hyperlink, if so, show a message box
         If e.Object.Hyperlink Is Nothing OrElse e.Object.Hyperlink = String.Empty Then
            MessageBox.Show(String.Format("You clicked an object of type {0} that does not have a hyperlink", e.Object.GetType().Name))
         End If
      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 AnnRunDesigner_AnnRunDesigner(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