LEADTOOLS Medical

FromAnnObject Method

Show in webframe
Example 





The LEAD annotation object that is being converted
Converts a LEADTOOLS AnnObject object to a Leadtools.Dicom.DicomAnnotationObject.
Syntax
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
) 

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.
Remarks
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.
Example
Copy Code  
Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Annotations

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
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Dicom;
using Leadtools.Dicom.Annotations;

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);
   }
}
using Leadtools;
using Leadtools.Dicom;
using Leadtools.Dicom.Annotations;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;

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);
}
Imports Leadtools
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Annotations
Imports Leadtools.Windows.Annotations

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
Requirements

Target Platforms

See Also

Reference

DicomAnnotationsUtilities Class
DicomAnnotationsUtilities Members

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Leadtools.Dicom.Annotations requires a Medical toolkit license and unlock key. For more information, refer to: Raster Pro/Document/Medical Features