IAnnAutomationControl Interface

Imports Leadtools
Imports Leadtools.Annotations

' Our custom image viewer. It can view a System.Drawing.Image with
' the following options:
' 1. Scrolling
' 2. Zoom in/out
' 3. Let the user draw annotation objects on the image surface using
'   LEADTOOLS annotations in automation mode
Public Class MyImageViewer
   Inherits ScrollableControl
   Implements IAnnAutomationControl
   ' The LEADTOOLS automation manager object
   Private _automationManager As AnnAutomationManager
   ' The LEADTOOLS automation object for this control
   Private _automation As AnnAutomation
   ' The image we are viewing
   Private _image As Image
   ' Scale factor (for zooming)
   Private _scaleFactor As Single = 100.0F

   Public Sub New()
      ' Enable double buffering for smooth paint
      SetStyle( _
         ControlStyles.AllPaintingInWmPaint Or _
         ControlStyles.UserPaint Or _
         ControlStyles.ResizeRedraw Or _
         ControlStyles.UserPaint Or _
         ControlStyles.DoubleBuffer, True)

      ' Initialize LEADTOOLS annotations automation
      ' Default everything
      _automationManager = New AnnAutomationManager()
      _automationManager.RedactionRealizePassword = ""
      _automationManager.UseXPStyleToolBar = True
      _automationManager.CreateDefaultObjects()
      _automationManager.CreateToolBar()
      _automationManager.ToolBar.Dock = DockStyle.Right
      _automationManager.ToolBar.BringToFront()
      _automationManager.ToolBar.AutoSize = False
      _automationManager.ToolBar.Appearance = ToolBarAppearance.Flat

      ' Create the automation object for this viewer
      _automation = New AnnAutomation(_automationManager, Me)
      ' We are the only and only active automation in this demo
      _automation.Active = True
      ' Add it to the automation manager
      _automationManager.Automations.Add(_automation)
   End Sub

   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
      If disposing Then
         ' Clean up
         If Not _automation Is Nothing Then
            _automation.Dispose()
         End If

         If Not _automationManager Is Nothing Then
            _automationManager.Dispose()
         End If

         If Not _image Is Nothing Then
            _image.Dispose()
         End If
      End If

      MyBase.Dispose(disposing)
   End Sub

   ' Access to the annotations toolbar
   <Browsable(False)> _
   Public ReadOnly Property AutomationToolbar() As ToolBar
      Get
         Return _automationManager.ToolBar
      End Get
   End Property

   ' The image to view
   <Description("The image to view"), Category("Appearance"), DefaultValue(CType(Nothing, Image))> _
   Public Property Image() As Image
      Get
         Return _image
      End Get
      Set(ByVal value As Image)
         If Not _image Is value Then
            If Not _image Is Nothing Then
               _image.Dispose()
            End If

            _image = value

            ' Re-set the scale factor
            _scaleFactor = 100.0F
            ' Re-calculate scrollbar sizes
            RecalculateScrollbars()
            ' Inform automation that the image has changed
            RaiseEvent AutomationImageChanged(Me, EventArgs.Empty)
            ' Re-paint
            Invalidate()
         End If
      End Set
   End Property

   ' Scale factor (zooming)
   <Description("Scale factor used for zooming."), Category("Appearance"), DefaultValue(100.0F)> _
   Public Property ScaleFactor() As Single
      Get
         Return _scaleFactor
      End Get
      Set(ByVal value As Single)
         If _scaleFactor <> value Then
            If _scaleFactor <= 0 Then Throw New ArgumentOutOfRangeException("ScaleFactor", "Must be a value greater than zero")

            _scaleFactor = value

            ' Re-calculate scrollbar sizes
            RecalculateScrollbars()
            ' Inform automation that transformation has changed
            RaiseEvent AutomationTransformChanged(Me, Nothing)
            ' Re-paint
            Invalidate()
         End If
      End Set
   End Property

   ' Calculate the scrollbar sizes
   Private Sub RecalculateScrollbars()
      Dim scrollSize As SizeF

      If Not _image Is Nothing Then
         Dim scale As Single = _scaleFactor / 100.0F
         scrollSize = New SizeF(_image.Width * scale, _image.Height * scale)
      Else
         scrollSize = SizeF.Empty
      End If

      AutoScrollMargin = Size
      AutoScrollMinSize = New Size(CType(scrollSize.Width + 0.5F, Integer), CType(scrollSize.Height + 0.5F, Integer))
   End Sub

   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
      If Not _image Is Nothing Then
         ' Paint the image
         Dim graphics As Graphics = e.Graphics
         Dim x As Single = AutoScrollPosition.X
         Dim y As Single = AutoScrollPosition.Y
         Dim width As Single = _image.Width * _scaleFactor / 100.0F
         Dim height As Single = _image.Height * _scaleFactor / 100.0F
         graphics.DrawImage(_image, x, y, width, height)

         ' Paint annotations
         RaiseEvent AutomationPaint(Me, e)
      End If
      MyBase.OnPaint(e)
   End Sub

   Const WM_HSCROLL As Integer = &H114
   Const WM_VSCROLL As Integer = &H115
   Const WM_MOUSEWHEEL As Integer = &H20A

   Protected Overrides Sub WndProc(ByRef m As Message)
      If m.Msg = WM_HSCROLL OrElse m.Msg = WM_VSCROLL OrElse m.Msg = WM_MOUSEWHEEL Then
         ' Inform automation that transformation has changed
         RaiseEvent AutomationTransformChanged(Me, Nothing)

         ' And paint
         Invalidate()
      End If

      MyBase.WndProc(m)
   End Sub

   ' IAnnAutomationControl Members

   Public ReadOnly Property AutomationRasterImage() As RasterImage Implements IAnnAutomationControl.AutomationRasterImage
      Get
         Return Nothing
      End Get
   End Property

   Public ReadOnly Property AutomationImageWidth() As Single Implements IAnnAutomationControl.AutomationImageWidth
      Get
         If Not _image Is Nothing Then
            Return _image.Width
         Else
            Return 0
         End If
      End Get
   End Property

   Public ReadOnly Property AutomationImageHeight() As Single Implements IAnnAutomationControl.AutomationImageHeight
      Get
         If Not _image Is Nothing Then
            Return _image.Height
         Else
            Return 0
         End If
      End Get
   End Property

   Public ReadOnly Property AutomationDpiX() As Single Implements IAnnAutomationControl.AutomationDpiX
      Get
         Return 96
      End Get
   End Property

   Public ReadOnly Property AutomationDpiY() As Single Implements IAnnAutomationControl.AutomationDpiY
      Get
         Return 96
      End Get
   End Property

   Public ReadOnly Property AutomationImageDpiX() As Single Implements IAnnAutomationControl.AutomationImageDpiX
      Get
         Return 96
      End Get
   End Property

   Public ReadOnly Property AutomationImageDpiY() As Single Implements IAnnAutomationControl.AutomationImageDpiY
      Get
         Return 96
      End Get
   End Property

   Public ReadOnly Property AutomationTransform() As Matrix Implements IAnnAutomationControl.AutomationTransform
      Get
         Dim m As New Matrix()

         If Not _image Is Nothing Then
            ' Create a Matrix for our transform (scroll position and current scale)
            m.Translate(AutoScrollPosition.X, AutoScrollPosition.Y)
            Dim scale As Single = _scaleFactor / 100.0F
            m.Scale(scale, scale)
         End If

         Return m
      End Get
   End Property

   Public ReadOnly Property AutomationUseDpi() As Boolean Implements IAnnAutomationControl.AutomationUseDpi
      Get
         Return False
      End Get
   End Property

   Public ReadOnly Property AutomationControl() As Control Implements IAnnAutomationControl.AutomationControl
      Get
         Return Me
      End Get
   End Property

   Public ReadOnly Property AutomationEnabled() As Boolean Implements IAnnAutomationControl.AutomationEnabled
      Get
         Return Me.Enabled
      End Get
   End Property

   Public Event AutomationImageChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.AutomationImageChanged
   Public Event AutomationTransformChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.AutomationTransformChanged
   Public Event AutomationUseDpiChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.AutomationUseDpiChanged
   Public Event AutomationEnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.AutomationEnabledChanged
   Public Event AutomationPaint(ByVal sender As Object, ByVal e As PaintEventArgs) Implements IAnnAutomationControl.AutomationPaint

   Public Sub AutomationAttach() Implements IAnnAutomationControl.AutomationAttach
   End Sub

   Public Sub AutomationDetach() Implements IAnnAutomationControl.AutomationDetach
   End Sub

   Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs)
      RaiseEvent AutomationEnabledChanged(Me, e)
      MyBase.OnEnabledChanged(e)
   End Sub

   Public Sub Invalidate_Impl(ByVal rc As Rectangle) Implements IAnnAutomationControl.Invalidate
      Me.Invalidate()
   End Sub

   Public Function PointToClient_Impl(ByVal point As Point) As Point Implements IAnnAutomationControl.PointToClient
      Return Me.PointToClient(point)
   End Function

   Public Function PointToScreen_Impl(ByVal point As Point) As Point Implements IAnnAutomationControl.PointToScreen
      Return Me.PointToScreen(point)
   End Function

   Public Function RectangleToScreen_Impl(ByVal rect As Rectangle) As Rectangle Implements IAnnAutomationControl.RectangleToScreen
      Return Me.RectangleToScreen(rect)
   End Function

   Public ReadOnly Property ClientRectangle_Impl() As Rectangle Implements IAnnAutomationControl.ClientRectangle
      Get
         Return Me.ClientRectangle
      End Get
   End Property

   Public Property Cursor_Impl() As Cursor Implements IAnnAutomationControl.Cursor
      Get
         Return Me.Cursor
      End Get
      Set(ByVal value As Cursor)
         Me.Cursor = value
      End Set
   End Property

   Public Event MouseDown_Impl(ByVal sender As Object, ByVal e As MouseEventArgs) Implements IAnnAutomationControl.MouseDown
   Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
      RaiseEvent MouseDown_Impl(Me, e)
      MyBase.OnMouseDown(e)
   End Sub

   Public Event MouseUp_Impl(ByVal sender As Object, ByVal e As MouseEventArgs) Implements IAnnAutomationControl.MouseUp
   Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
      RaiseEvent MouseUp_Impl(Me, e)
      MyBase.OnMouseUp(e)
   End Sub

   Public Event MouseMove_Impl(ByVal sender As Object, ByVal e As MouseEventArgs) Implements IAnnAutomationControl.MouseMove
   Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
      RaiseEvent MouseMove_Impl(Me, e)
      MyBase.OnMouseMove(e)
   End Sub

   Public Event DoubleClick_Impl(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.DoubleClick
   Protected Overrides Sub OnDoubleClick(ByVal e As System.EventArgs)
      RaiseEvent DoubleClick_Impl(Me, e)
      MyBase.OnDoubleClick(e)
   End Sub

   Public Event KeyDown_Impl(ByVal sender As Object, ByVal e As KeyEventArgs) Implements IAnnAutomationControl.KeyDown
   Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
      RaiseEvent KeyDown_Impl(Me, e)
      MyBase.OnKeyDown(e)
   End Sub

   Public Event GotFocus_Impl(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.GotFocus
   Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
      RaiseEvent GotFocus_Impl(Me, e)
      MyBase.OnGotFocus(e)
   End Sub

   Public Event LostFocus_Impl(ByVal sender As Object, ByVal e As System.EventArgs) Implements IAnnAutomationControl.LostFocus
   Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
      RaiseEvent LostFocus_Impl(Me, e)
      MyBase.OnLostFocus(e)
   End Sub
End Class