AnnContainer Class

'Declaration
 
Public Class AnnContainer 
   Inherits System.Windows.Controls.Canvas
   Implements IAnnContainer, System.ComponentModel.ISupportInitialize, System.Windows.IFrameworkInputElement, System.Windows.IInputElement, System.Windows.Markup.IAddChild, System.Windows.Markup.IQueryAmbient, System.Windows.Media.Animation.IAnimatable 

Private Class MyWindow1 : Inherits Window
      Private container As AnnContainer
      'AnnAutomationManager manager;
      Private viewer As ImageViewer
      Public Sub New(ByVal title As String)
         Me.Title = title
         Me.Width = 500
         Me.Height = 200

         viewer = New ImageViewer()

         Me.Content = viewer

         ' 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")))

         ' create and set up the container
         container = New AnnContainer()
         container.Width = viewer.Source.Width
         container.Height = viewer.Source.Height

         AddHandler container.MouseMove, AddressOf container_MouseMove

         ' add a few objects to the container
         Dim line As AnnLineObject = New AnnLineObject()
         line.Header = "Line1"
         line.Stroke = Colors.Red
         line.StrokeThickness = 1.0
         line.Start = New Point(0, 0)
         line.End = New Point(100, 100)
         container.Children.Add(line)

         Dim rect As AnnRectangleObject = New AnnRectangleObject()
         rect.Header = "Rectangle1"
         rect.Stroke = Colors.Blue
         rect.StrokeThickness = 1.0
         rect.Fill = Colors.White
         rect.Rect = New Rect(25, 25, 50, 50)
         container.Children.Add(rect)

         'attach container to the viewer
         viewer.Content = container

      End Sub


      Private Sub container_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
         ' perform hit-testing and update the status bar
         Dim pt As System.Windows.Point = e.GetPosition(container)
         Dim obj As AnnObject = container.HitTest(pt)
         If Not obj Is Nothing Then
            Me.Title = String.Format("Type: {0}, Header: {1}, OverHeader: {2}", obj.GetType().Name, obj.Header, obj.HitTestHeader(pt))
         Else
            Me.Title = String.Empty
         End If
      End Sub
   End Class

   Private Sub AnnContainer_AnnContainer(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