AnnRunDesigner Class

'Declaration
 
<SerializableAttribute()>
Public Class AnnRunDesigner 
   Inherits AnnDesigner

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