SpyGlass Property

'Declaration
 
Public ReadOnly Property SpyGlass As MedicalViewerSpyGlass

Private Class MedicalViewerSpyGlassForm : Inherits Form
         Private _medicalViewer As MedicalViewer
         Private Sub MedicalViewer_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)
         End Sub

         Public Sub New()
             DicomEngine.Startup()
             Dim _codecs As RasterCodecs = New RasterCodecs()

             AddHandler SizeChanged, AddressOf MedicalViewer_SizeChanged

             ' Create the medical viewer and adjust the size and the location.
             _medicalViewer = New MedicalViewer(1, 2)
             _medicalViewer.Location = New Point(0, 0)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)

             ' Load an image and then add it to the control.
             Dim _image As RasterImage = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm"))
             Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(_image, True, 1, 1)

             cell.FitImageToCell = False

             ' add some actions that will be used to change the properties of the images inside the control.
             cell.AddAction(MedicalViewerActionType.Scale)
             cell.AddAction(MedicalViewerActionType.Offset)
             cell.AddAction(MedicalViewerActionType.SpyGlass)

             ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated.
             cell.SetAction(MedicalViewerActionType.Scale, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.SpyGlass, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)

             AddHandler cell.SpyGlassStarted, AddressOf cell_SpyGlassStarted

             ' adjust some spy glass properties.
             cell.SpyGlass.PositionText = MedicalViewerSpyGlassTextType.Actual
             cell.SpyGlass.ZoomText = MedicalViewerSpyGlassTextType.Percentage
             cell.SpyGlass.ZoomOnScroll = True

             _medicalViewer.Cells.Add(cell)
             ' adjust some properties of the cell and add some tags.
             _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448")
             _medicalViewer.Cells(0).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
             _medicalViewer.Cells(0).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale)
             _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData)
             _medicalViewer.Cells(0).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView)

             cell.ScaleType = MedicalViewerScaleType.Dynamic

             Controls.Add(_medicalViewer)
             _medicalViewer.Dock = DockStyle.Fill
             DicomEngine.Shutdown()
         End Sub

         Private Sub cell_SpyGlassStarted(ByVal sender As Object, ByVal e As MedicalViewerSpyGlassStartedEventArgs)
             If Not e.Image Is Nothing Then
                 Dim invert As Leadtools.ImageProcessing.Color.InvertCommand = New Leadtools.ImageProcessing.Color.InvertCommand()
                 invert.Run(e.Image)
             End If
         End Sub

         Private Sub MedicalViewerLocalizer_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
         End Sub


         Public ReadOnly Property Viewer() As MedicalViewer
             Get
                 Return _medicalViewer
             End Get
         End Property
     End Class

     Private Function GetMedicalViewerSpyGlassForm() As MedicalViewerSpyGlassForm
         MessageBox.Show("Hold down Left click to show the spy glass, " & Constants.vbLf & " move the mouse while you hold the mouse button down to move the spy glass. " & Constants.vbLf & " scroll while holding the mouse down to zoom in or out")
         Return New MedicalViewerSpyGlassForm()
     End Function

     ' This example changes the default window level value by decrease the width by 100. Then resets the images based on the new value.

     Public Sub MedicalViewerSpyGlassExample()
         Dim myForm As MedicalViewerSpyGlassForm = GetMedicalViewerSpyGlassForm()
         Dim medicalViewer As MedicalViewer = myForm.Viewer

         myForm.ShowDialog()
     End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class