PointToImage Method (MedicalViewerCell)

Imports Leadtools
Imports Leadtools.Drawing
Imports Leadtools.Codecs
Imports Leadtools.MedicalViewer
Imports Leadtools.ImageProcessing
Imports Leadtools.Annotations.Core
Imports Leadtools.Annotations.Designers
Imports Leadtools.Annotations.Rendering

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

    Public Sub New()
        Dim _codecs As RasterCodecs = New RasterCodecs()
        Dim _image As RasterImage

        AddHandler SizeChanged, AddressOf MedicalViewerForm_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.
        _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm"))
        Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(_image, True, 1, 1)
        _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)


        ' Load another image and then add it to the control.
        _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "mr.dcm"))
        _medicalViewer.Cells.Add(New MedicalViewerMultiCell(_image, True, 2, 2))


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


        Controls.Add(_medicalViewer)
        _medicalViewer.Dock = DockStyle.Fill
    End Sub
    Public ReadOnly Property Viewer() As MedicalViewer
        Get
            Return _medicalViewer
        End Get
    End Property
End Class

Private Function GetMedicalControl6() As MedicalViewerForm6
    Return New MedicalViewerForm6()
End Function

' this example draw dots on the image when clicking on it using the left mouse button.
<TestMethod()> _
Public Sub MedicalViewerPointToImageExample()
    Dim myForm As MedicalViewerForm6 = GetMedicalControl6()
    Dim medicalViewer As MedicalViewer = myForm.Viewer
    Dim cell As MedicalViewerMultiCell = CType(medicalViewer.Cells(0), MedicalViewerMultiCell)

    AddHandler cell.CellMouseDown, AddressOf medicalViewer_CellMouseDown

    myForm.ShowDialog()
End Sub

Private Sub medicalViewer_CellMouseDown(ByVal sender As Object, ByVal e As MedicalViewerCellMouseEventArgs)
    Dim viewer As MedicalViewer = CType(sender, MedicalViewer)
    Dim point As Point
    Dim cell As MedicalViewerMultiCell = CType(viewer.Cells(0), MedicalViewerMultiCell)

    cell.Image.Page = e.SubCellIndex + 1
    point = cell.PointToImage(New Point(e.X, e.Y))
    cell.Image.SetPixelColor(point.Y, point.X, New RasterColor(255, 255, 255))
    cell.Invalidate()
End Sub

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