FromAnnObject Method

Visual Basic
C#
WinRT C#
WinRT JavaScript
C++

public DicomAnnotationObject FromAnnObject( 
   object annObject
)

'Declaration
 
Public Function FromAnnObject( _
   ByVal annObject As Object _
) As DicomAnnotationObject

'Usage
 
Dim instance As DicomAnnotationsUtilities
Dim annObject As Object
Dim value As DicomAnnotationObject
 
value = instance.FromAnnObject(annObject)

public DicomAnnotationObject FromAnnObject( 
   object annObject
)

 function Leadtools.Dicom.Annotations.DicomAnnotationsUtilities.FromAnnObject( 
   annObject 
)

public:
DicomAnnotationObject^ FromAnnObject( 
   Object^ annObject
)

Parameters

annObject: The LEAD annotation object that is being converted

Return Value

A DICOM annotation Leadtools.Dicom.DicomAnnotationObject if successful; null if the Leadtools.Annotations.AnnObjectcannot be converted.

A Leadtools.Dicom.DicomAnnotationObject has a layer name, but an Leadtools.Annotations.AnnObject does not. Set the LayerName property prior to calling this method. Note that the annObject is of type Leadtools.Annotations.AnnObject

Note: for Silverlight users, the annObject object is of type Leadtools.Windows.Annotations.AnnObject.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Public Sub DicomAnnotationsUtilities_FromAnnObject()
   ' Create an AnnRectangleObject
   Dim annObject As New AnnRectangleObject()
   annObject.Pen = New AnnPen(Color.Purple, New AnnLength(5, AnnUnit.Pixel))
   annObject.Brush = New AnnSolidBrush(Color.White)
   annObject.Bounds = New AnnRectangle(400, 100, 500, 200)
   ' Create an instance of the converter, and set some properties
   Dim du As New DicomAnnotationsUtilities()
   du.LayerName = "Test Layer Name"

   Dim defaultAnnObject As New AnnTextObject()
   defaultAnnObject.Pen = annObject.Pen
   defaultAnnObject.Brush = annObject.Brush
   du.DefaultObject = defaultAnnObject

   ' Convert to a DicomAnnotationObject
   ' Note that there is no DicomAnnotationObject rectangle type, so it is converted to a polyline
   Dim dicomAnnotationObject As DicomAnnotationObject = du.FromAnnObject(annObject)

   ' Convert back to a LEAD AnnObject
   ' Now the LEAD object will be a polyline, even though the original object was a rectangle
   Dim annObjectNew As AnnObject = TryCast(du.ToAnnObject(dicomAnnotationObject), AnnObject)

   If annObjectNew IsNot Nothing Then
      Dim msg As String = String.Format("Original type [{0}]     New type [{1}]", annObject.GetType(), annObjectNew.GetType())
      MessageBox.Show(msg)
   End If
End Sub

public void DicomAnnotationsUtilities_FromAnnObject()
{
   // Create an AnnRectangleObject
   AnnRectangleObject annObject = new AnnRectangleObject();
   annObject.Pen = new AnnPen(Color.Purple, new AnnLength(5, AnnUnit.Pixel));
   annObject.Brush = new AnnSolidBrush(Color.White);
   annObject.Bounds = new AnnRectangle(400, 100, 500, 200);
   // Create an instance of the converter, and set some properties
   DicomAnnotationsUtilities du = new DicomAnnotationsUtilities();
   du.LayerName = "Test Layer Name";

   AnnTextObject defaultAnnObject = new AnnTextObject();
   defaultAnnObject.Pen = annObject.Pen;
   defaultAnnObject.Brush = annObject.Brush;
   du.DefaultObject = defaultAnnObject;

   // Convert to a DicomAnnotationObject
   // Note that there is no DicomAnnotationObject rectangle type, so it is converted to a polyline
   DicomAnnotationObject dicomAnnotationObject = du.FromAnnObject(annObject);

   // Convert back to a LEAD AnnObject
   // Now the LEAD object will be a polyline, even though the original object was a rectangle
   AnnObject annObjectNew = du.ToAnnObject(dicomAnnotationObject) as AnnObject;

   if (annObjectNew != null)
   {
      string msg = string.Format("Original type [{0}]     New type [{1}]", annObject.GetType(), annObjectNew.GetType());
      MessageBox.Show(msg);
   }
}

public void DicomAnnotationsUtilities_FromAnnObject()
{
   // Create an AnnRectangleObject
   AnnRectangleObject annObject = new AnnRectangleObject();
   annObject.Stroke = Color.FromArgb(0xFF, 0x80, 0x00, 0x80); // purple
   annObject.StrokeThickness = 5;
   annObject.Fill = Color.FromArgb(0xFF, 0xFF, 0xFF, 0xFF); // white
   annObject.Rect = new Rect(400, 100, 500, 200);

   // Create an instance of the converter, and set some properties
   DicomAnnotationsUtilities du = new DicomAnnotationsUtilities();
   AnnTextObject defaultAnnObject = new AnnTextObject();
   defaultAnnObject.Stroke = annObject.Stroke;
   defaultAnnObject.StrokeThickness = annObject.StrokeThickness;
   defaultAnnObject.Fill = annObject.Fill;

   du.DefaultObject = defaultAnnObject;
   du.LayerName = "Test Layer Name";

   // Convert to a DicomAnnotationObject
   DicomAnnotationObject dicomAnnotationObject = du.FromAnnObject(annObject);

   // Convert back to a LEAD AnnObject
   AnnObject annObjectNew = du.ToAnnObject(dicomAnnotationObject) as AnnObject;

   string msg = string.Format("Original type [{0}]     New type [{1}]", annObject.GetType(), annObjectNew.GetType());
   Console.WriteLine(msg);
}

Public Sub DicomAnnotationsUtilities_FromAnnObject()
   ' Create an AnnRectangleObject
   Dim annObject As AnnRectangleObject = New AnnRectangleObject()
   annObject.Stroke = Color.FromArgb(&HFF, &H80, &H00, &H80) ' purple
   annObject.StrokeThickness = 5
   annObject.Fill = Color.FromArgb(&HFF, &HFF, &HFF, &HFF) ' white
   annObject.Rect = New Rect(400, 100, 500, 200)

   ' Create an instance of the converter, and set some properties
   Dim du As DicomAnnotationsUtilities = New DicomAnnotationsUtilities()
   Dim defaultAnnObject As AnnTextObject = New AnnTextObject()
   defaultAnnObject.Stroke = annObject.Stroke
   defaultAnnObject.StrokeThickness = annObject.StrokeThickness
   defaultAnnObject.Fill = annObject.Fill

   du.DefaultObject = defaultAnnObject
   du.LayerName = "Test Layer Name"

   ' Convert to a DicomAnnotationObject
   Dim dicomAnnotationObject As DicomAnnotationObject = du.FromAnnObject(annObject)

   ' Convert back to a LEAD AnnObject
   Dim annObjectNew As AnnObject = TryCast(du.ToAnnObject(dicomAnnotationObject), AnnObject)

   Dim msg As String = String.Format("Original type [{0}]     New type [{1}]", annObject.GetType(), annObjectNew.GetType())
   Console.WriteLine(msg)
End Sub

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

Reference

DicomAnnotationsUtilities Class
DicomAnnotationsUtilities Members