MedicalViewerAnnotationText Constructor(Color)

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.MedicalViewer

Private Class MedicalViewerForm : Inherits Form
   Private _medicalViewer As MedicalViewer
   Public Sub New()
      Dim _codecs As RasterCodecs = New RasterCodecs()
      Dim _image As RasterImage

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

          ' add some actions that will be used to change the properties of the images inside the control.
          cell.AddAction(MedicalViewerActionType.WindowLevel)
          cell.AddAction(MedicalViewerActionType.Alpha)
          cell.AddAction(MedicalViewerActionType.AnnotationText)

          ' 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.WindowLevel, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active)
          cell.SetAction(MedicalViewerActionType.Alpha, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active)
          cell.SetAction(MedicalViewerActionType.AnnotationText, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)

          _medicalViewer.Cells.Add(cell)

          ' adjust some properties of the cell and add some tags.
          cell.SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448")
          cell.SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame)
          cell.SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale)
          cell.SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData)
          cell.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 GetMedicalControl() As MedicalViewerForm
      Return New MedicalViewerForm()
  End Function

  <TestMethod()> _
  Public Sub MedicalViewerAnnotationTextExample1()
      Dim myForm As MedicalViewerForm = GetMedicalControl()
      Dim medicalViewer As MedicalViewer = myForm.Viewer
      Dim cell As MedicalViewerMultiCell = CType(medicalViewer.Cells(0), MedicalViewerMultiCell)

      Dim text As MedicalViewerAnnotationText = New MedicalViewerAnnotationText(Color.FromArgb(0, 0, 255))
      text.Flags = MedicalViewerAnnotationFlags.AllObjects
      cell.SetActionProperties(MedicalViewerActionType.AnnotationText, text)

      myForm.ShowDialog()
  End Sub

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