Public Interface IAnnAutomationControl 

Dim instance As IAnnAutomationControl

public interface IAnnAutomationControl 

public interface class IAnnAutomationControl 

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

      ' Required for LEADTOOLS annotations
      RasterSupport.Unlock(RasterSupportType.Document, "Replace with your key")

      ' 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

// 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 : ScrollableControl, IAnnAutomationControl
{
   // The LEADTOOLS automation manager object
   private AnnAutomationManager _automationManager;
   // The LEADTOOLS automation object for this control
   private AnnAutomation _automation;
   // The image we are viewing
   private Image _image;
   // Scale factor (for zooming)
   private float _scaleFactor = 100.0f;
   public MyImageViewer()
   {
      // Enable double buffering for smooth paint
      SetStyle(
         ControlStyles.AllPaintingInWmPaint |
         ControlStyles.UserPaint |
         ControlStyles.ResizeRedraw |
         ControlStyles.UserPaint |
         ControlStyles.DoubleBuffer, true);

      // Required for LEADTOOLS annotations
      RasterSupport.Unlock(RasterSupportType.Document, "Replace with your key");

      // 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, this);
      // We are the only and only active automation in this demo
      _automation.Active = true;
      // Add it to the automation manager
      _automationManager.Automations.Add(_automation);

      // To get rid of a warning (not used)
      if(AutomationUseDpiChanged != null)
      {
         AutomationUseDpiChanged(this, EventArgs.Empty);
      }
   }

   protected override void Dispose(bool disposing)
   {
      if(disposing)
      {
         // Clean up
         if(_automation != null)
            _automation.Dispose();

         if(_automationManager != null)
            _automationManager.Dispose();

         if(_image != null)
            _image.Dispose();
      }

      base.Dispose(disposing);
   }

   // Access to the annotations toolbar
   [Browsable(false)]
   public ToolBar AutomationToolbar
   {
      get
      {
         return _automationManager.ToolBar;
      }
   }

   // The image to view
   [Description("The image to view"),
   Category("Appearance"),
   DefaultValue(null)]
   public Image Image
   {
      get
      {
         return _image;
      }
      set
      {
         if(_image != value)
         {
            if(_image != null)
               _image.Dispose();

            _image = value;

            // Re-set the scale factor
            _scaleFactor = 100.0f;
            // Re-calculate scrollbar sizes
            RecalculateScrollbars();
            // Inform automation that the image has changed
            if(AutomationImageChanged != null)
               AutomationImageChanged(this, EventArgs.Empty);
            // Re-paint
            Invalidate();
         }
      }
   }

   // Scale factor (zooming)
   [Description("Scale factor used for zooming."),
   Category("Appearance"),
   DefaultValue(100.0f)]
   public float ScaleFactor
   {
      get
      {
         return _scaleFactor;
      }
      set
      {
         if(_scaleFactor != value)
         {
            if(_scaleFactor <= 0)
               throw new ArgumentOutOfRangeException("ScaleFactor", "Must be a value greater than zero");

            _scaleFactor = value;

            // Re-calculate scrollbar sizes
            RecalculateScrollbars();
            // Inform automation that transformation has changed
            if(AutomationTransformChanged != null)
               AutomationTransformChanged(this, null);
            // Re-paint
            Invalidate();
         }
      }
   }

   // Calculate the scrollbar sizes
   private void RecalculateScrollbars()
   {
      SizeF scrollSize;

      if(_image != null)
      {
         float scale = _scaleFactor / 100.0f;
         scrollSize = new SizeF(_image.Width * scale, _image.Height * scale);
      }
      else
      {
         scrollSize = SizeF.Empty;
      }

      AutoScrollMargin = Size;
      AutoScrollMinSize = new Size((int)(scrollSize.Width + 0.5f), (int)(scrollSize.Height + 0.5F));
   }

   protected override void OnPaint(PaintEventArgs e)
   {
      if(_image != null)
      {
         // Paint the image
         Graphics graphics = e.Graphics;
         float x = AutoScrollPosition.X;
         float y = AutoScrollPosition.Y;
         float width = _image.Width * _scaleFactor / 100.0f;
         float height = _image.Height * _scaleFactor / 100.0f;
         graphics.DrawImage(_image, x, y, width, height);

         // Paint annotations
         if(AutomationPaint != null)
            AutomationPaint(this, e);
      }

      base.OnPaint(e);
   }

   private const int WM_HSCROLL = 0x0114;
   private const int WM_VSCROLL = 0x0115;
   private const int WM_MOUSEWHEEL = 0x020A;

   protected override void WndProc(ref Message m)
   {
      if(m.Msg == WM_HSCROLL || m.Msg == WM_VSCROLL || m.Msg == WM_MOUSEWHEEL)
      {
         // Inform automation that transformation has changed
         if(AutomationTransformChanged != null)
            AutomationTransformChanged(this, null);

         // And paint
         Invalidate();
      }

      base.WndProc(ref m);
   }

   #region IAnnAutomationControl Members

   RasterImage IAnnAutomationControl.AutomationRasterImage
   {
      get { return null; }
   }

   float IAnnAutomationControl.AutomationImageWidth
   {
      get { return (_image != null) ? _image.Width : 0; }
   }

   float IAnnAutomationControl.AutomationImageHeight
   {
      get { return (_image != null) ? _image.Height : 0; }
   }

   float IAnnAutomationControl.AutomationDpiX
   {
      get { return 96; }
   }

   float IAnnAutomationControl.AutomationDpiY
   {
      get { return 96; }
   }

   float IAnnAutomationControl.AutomationImageDpiX
   {
      get { return 96; }
   }

   float IAnnAutomationControl.AutomationImageDpiY
   {
      get { return 96; }
   }

   Matrix IAnnAutomationControl.AutomationTransform
   {
      get
      {
         Matrix m = new Matrix();

         if(_image != null)
         {
            // Create a Matrix for our transform (scroll position and current scale)
            m.Translate(AutoScrollPosition.X, AutoScrollPosition.Y);
            float scale = _scaleFactor / 100.0f;
            m.Scale(scale, scale);
         }

         return m;
      }
   }

   bool IAnnAutomationControl.AutomationUseDpi
   {
      get { return false; }
   }

   Control IAnnAutomationControl.AutomationControl
   {
      get { return this; }
   }

   bool IAnnAutomationControl.AutomationEnabled
   {
      get { return Enabled; }
   }

   public event EventHandler AutomationImageChanged;
   public event EventHandler AutomationTransformChanged;
   public event EventHandler AutomationUseDpiChanged;
   public event EventHandler AutomationEnabledChanged;
   public event PaintEventHandler AutomationPaint;

   void IAnnAutomationControl.AutomationAttach()
   {
   }

   void IAnnAutomationControl.AutomationDetach()
   {
   }

   protected override void OnEnabledChanged(EventArgs e)
   {
      if(AutomationEnabledChanged != null)
         AutomationEnabledChanged(this, e);

      base.OnEnabledChanged(e);
   }

   // The following members of IAnnAutomationControl
   // Must be provided by the implementer. Since the implementer
   // in our example derives from Control, these properties/methods/events
   // are already implemented by the base Control class. We do not have special
   // code to perform in this case, otherwise, we could have overridden
   // the base class implementation with ours.
   /*
   void Invalidate(Rectangle rc);
   Point PointToClient(Point point);
   Rectangle RectangleToScreen(Rectangle rect);
   Point PointToScreen(Point pt);
   Rectangle ClientRectangle { get; }
   Cursor Cursor { get; set; }
   event MouseEventHandler MouseDown;
   event MouseEventHandler MouseMove;
   event MouseEventHandler MouseUp;
   event EventHandler DoubleClick;
   event KeyEventHandler KeyDown;
   event EventHandler LostFocus;
   event EventHandler GotFocus;
   */

   #endregion IAnnAutomationControl Members
}