MedicalViewerMPRCell Class

Imports Leadtools
Imports Leadtools.Dicom
Imports Leadtools.Medical3D
Imports Leadtools.Codecs
Imports Leadtools.MedicalViewer
Imports Leadtools.Annotations.Core
Imports Leadtools.Annotations.Designers
Imports Leadtools.ImageProcessing.Core

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

   Public Sub New(ByVal output As MedicalViewerSeriesManager)
      Dim _codecs As RasterCodecs = New RasterCodecs()

      AddHandler SizeChanged, AddressOf MedicalViewerMPRForm_SizeChanged

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

      _seriesManager = output

      Dim index As Integer
      Dim image As RasterImage
      Dim count As Integer = output.Stacks(0).Items.Count
      Dim codecsInformation As CodecsImageInfo

      Dim AxialFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell()
      Dim SagittalFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell()
      Dim CoronalFrame As MedicalViewerMPRCell = New MedicalViewerMPRCell()

      codecsInformation = _codecs.GetInformation(CStr(output.Stacks(0).Items(0).Data), True)

      Dim width As Integer = codecsInformation.Width
      Dim height As Integer = codecsInformation.Height
      Dim depth As Integer = 256

      ' Create a 3D control.
      Dim _medical3DControl As Medical3DControl = New Medical3DControl()

      _medical3DControl.ObjectsContainer.VolumeType = Medical3DVolumeType.MPR
      _medical3DControl.ObjectsContainer.Objects.Add(New Medical3DObject())

      ' Create a 3D object.

      _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientInit(depth)

      index = 0
      Do While index < depth
         image = _codecs.Load(CStr(output.Stacks(0).Items(index).Data), 0, CodecsLoadByteOrder.BgrOrGrayOrRomm, 1, 1)
         _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientSetFrame(image, index, True)
         index += 1
      Loop

      Dim spearator As String = ("\")
      Dim test As String() = output.Stacks(0).Items(0).ImageOrientation.Split(spearator.ToCharArray())
      Dim orientation As Single() = New Single(5) {}
      Dim i As Integer
      For i = 0 To 5
         orientation(i) = CSng(Convert.ToDouble(test(i)))
      Next i

      _medical3DControl.ObjectsContainer.Objects(0).MemoryEfficientEnd(orientation, output.Stacks(0).PixelSpacing)

      ' Create axial frame
      AxialFrame.ShowMPRCrossHair = True
      AxialFrame.DistinguishMPRByColor = True
      AxialFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
      AxialFrame.AddAction(MedicalViewerActionType.Stack)
      AxialFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active)


      ' Create Sagittal frame
      SagittalFrame.ShowMPRCrossHair = True
      SagittalFrame.DistinguishMPRByColor = True
      SagittalFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
      SagittalFrame.AddAction(MedicalViewerActionType.Stack)
      SagittalFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active)

      ' Create coronal frame
      CoronalFrame.ShowMPRCrossHair = True
      CoronalFrame.DistinguishMPRByColor = True
      CoronalFrame.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
      CoronalFrame.AddAction(MedicalViewerActionType.Stack)
      CoronalFrame.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active)

      ' attach the MPR cells to the 3D control
      _medical3DControl.AxialFrame = AxialFrame
      _medical3DControl.SagittalFrame = SagittalFrame
      _medical3DControl.CoronalFrame = CoronalFrame


      AxialFrame.AxialName = "Axial Cell"
      SagittalFrame.SagittalName = "Sagittal Cell"
      CoronalFrame.CoronalName = "Coronal Cell"

      AxialFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)
      SagittalFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)
      CoronalFrame.SetTag(1, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.MPRType)

      ' with this option, you will not be able to select more than one cell at the same time. (selecting multiple cells are done with the pressing and holding the Ctrl and clicking on cell)
      _medicalViewer.AllowMultipleSelection = False

      _medicalViewer.Cells.Add(_medical3DControl)
      _medicalViewer.Cells.Add(AxialFrame)
      _medicalViewer.Cells.Add(SagittalFrame)
      _medicalViewer.Cells.Add(CoronalFrame)

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

   ' This event handles communication between the the 3D and the MedicalViewer.
   Private Sub cell_Data3DRequested(ByVal sender As Object, ByVal e As MedicalViewerData3DRequestedEventArgs)
      e.Succeed = Medical3DEngine.Provide3DInformation(e)
   End Sub

   Private Sub cell_FramesRequested(ByVal sender As Object, ByVal e As MedicalViewerRequestedFramesInformationEventArgs)
      Dim cell As MedicalViewerMultiCell = CType(sender, MedicalViewerMultiCell)
      Dim _codecs As RasterCodecs = New RasterCodecs()
      Dim i As Integer
      Dim image As RasterImage
      Dim fileName As String

      If e.RequestedFramesIndexes.Length > 0 Then
         fileName = CStr(_seriesManager.Stacks(0).Items(e.RequestedFramesIndexes(0)).Data)
         image = _codecs.Load(fileName)
      Else
         Return
      End If

      i = 1
      Do While i < e.RequestedFramesIndexes.Length
         fileName = CStr(_seriesManager.Stacks(0).Items(e.RequestedFramesIndexes(i)).Data)
         image.AddPage(_codecs.Load(fileName))
         i += 1
      Loop

      cell.SetRequestedImage(image, e.RequestedFramesIndexes, MedicalViewerSetImageOptions.Insert)
   End Sub

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

Private Function GetMedicalViewerMPRForm() As MedicalViewerMPRForm
   Dim form As MedicalViewerSeriesManagerFrom = New MedicalViewerSeriesManagerFrom()
   Dim output As MedicalViewerSeriesManager = form.LoadJamesHead()

   Return New MedicalViewerMPRForm(output)
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.
<TestMethod()> _
Public Sub MedicalViewerMPRExample()
   Dim myForm As MedicalViewerMPRForm = GetMedicalViewerMPRForm()
   Dim medicalViewer As MedicalViewer = myForm.Viewer

   myForm.ShowDialog()
End Sub