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