CustomLookupTable Property

'Declaration
 
Public ReadOnly Property CustomLookupTable As RasterCollection(Of RasterColor())

Private Class MedicalViewerCustomLookupTableForm : 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.WindowLevel)
             cell.AddAction(MedicalViewerActionType.Stack)

             ' 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.WindowLevel, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.Stack, MedicalViewerMouseButtons.Wheel, MedicalViewerActionFlags.Active)

             ' Create a custom lookup table that will make the frames look inverted
             ' the value set here (8000) is random, you can choose any number
             Dim colors As RasterColor() = New RasterColor(7999) {}
             Dim index As Integer

             Dim lutValue As Byte
             index = 0
             Do While index < colors.Length
                 lutValue = CByte(255 - ((index * 255 + 128) / (colors.Length - 1)))
                 colors(index).R = lutValue
                 colors(index).G = lutValue
                 colors(index).B = lutValue

                 index += 1
             Loop

             cell.CustomLookupTable.Add(colors)

             For Each subCell As MedicalViewerSubCell In cell.SubCells
                 subCell.PaletteType = CType(100, MedicalViewerPaletteType) ' the index of the first custom lookup table in Cell.CustomLookupTable
             Next subCell


             _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 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 GetMedicalViewerCustomLookupTableForm() As MedicalViewerCustomLookupTableForm
         Return New MedicalViewerCustomLookupTableForm()
     End Function

     ' This examples assigns a custom lookup table to the image.

     Public Sub MedicalViewerCustomLookupTableExample()
         Dim myForm As MedicalViewerCustomLookupTableForm = GetMedicalViewerCustomLookupTableForm()
         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