C#
VB
C++
Defines an annotation picture along with its transparency information.
public class AnnPicture : DependencyObject
Public Class AnnPicture
Inherits System.Windows.DependencyObject
public ref class AnnPicture : public System.Windows.DependencyObject
For XAML example, refer to AnnGroupObject.
This example creates an image that has a blue ellipse inside a red rectangle.
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
private void AnnPicture_AnnPicture(DrawingContext dc)
{
AnnPicture pic = null;
DrawingVisual dv = new DrawingVisual();
using (DrawingContext dvc = dv.RenderOpen())
//Bitmap btmp = new Bitmap(100, 100, PixelFormat.Format32bppArgb))
{
dvc.DrawRectangle(Brushes.Red, null, new Rect(0, 0, 100, 100));
dvc.DrawEllipse(Brushes.Red, null, new Point(50, 50), 100, 100);
dvc.Close();
RenderTargetBitmap btmp = new RenderTargetBitmap(100, 100, 96, 96, PixelFormats.Pbgra32);
btmp.Render(dv);
// initialize a new AnnPicture class for this image
pic = new AnnPicture(btmp);
}
if (pic != null && pic.Image != null)
{
// draw the picture with no transparency
Rect rc = new Rect(10, 10, pic.Image.Width, pic.Image.Height);
dc.DrawImage(pic.Image, rc);
// draw the picture without the ellipse (make transparent color = blue)
rc.Offset(0, pic.Image.Height + 10);
pic.TransparentMode = AnnTransparentMode.UseColor;
pic.TransparentColor = Colors.Blue;
dc.DrawImage(pic.Image, rc);
// draw the picture without the rectangle (use the top left pixel as the transparent color)
rc.Offset(0, pic.Image.Height + 10);
pic.TransparentMode = AnnTransparentMode.TopLeftPixel;
dc.DrawImage(pic.Image, rc);
}
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private Sub AnnPicture_AnnPicture(ByVal dc As DrawingContext)
Dim pic As AnnPicture = Nothing
Dim dv As DrawingVisual = New DrawingVisual()
Using dvc As DrawingContext = dv.RenderOpen()
'Bitmap btmp = new Bitmap(100, 100, PixelFormat.Format32bppArgb))
dvc.DrawRectangle(Brushes.Red, Nothing, New Rect(0, 0, 100, 100))
dvc.DrawEllipse(Brushes.Red, Nothing, New System.Windows.Point(50, 50), 100, 100)
dvc.Close()
Dim btmp As RenderTargetBitmap = New RenderTargetBitmap(100, 100, 96, 96, PixelFormats.Pbgra32)
btmp.Render(dv)
' initialize a new AnnPicture class for this image
pic = New AnnPicture(btmp)
End Using
If Not pic Is Nothing AndAlso Not pic.Image Is Nothing Then
' draw the picture with no transparency
Dim rc As Rect = New Rect(10, 10, pic.Image.Width, pic.Image.Height)
dc.DrawImage(pic.Image, rc)
' draw the picture without the ellipse (make transparent color = blue)
rc.Offset(0, pic.Image.Height + 10)
pic.TransparentMode = AnnTransparentMode.UseColor
pic.TransparentColor = Colors.Blue
dc.DrawImage(pic.Image, rc)
' draw the picture without the rectangle (use the top left pixel as the transparent color)
rc.Offset(0, pic.Image.Height + 10)
pic.TransparentMode = AnnTransparentMode.TopLeftPixel
dc.DrawImage(pic.Image, rc)
End If
End Sub
using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
//using Leadtools.Help;
private void AnnPicture_AnnPicture()
{
AnnPicture pic = null;
Canvas myCanvas = new Canvas();
myCanvas.Width = 100;
myCanvas.Height = 100;
Rectangle rect = new Rectangle();
rect.Fill = new SolidColorBrush(Colors.Red);
rect.Width = 100;
rect.Height = 100;
myCanvas.Children.Add(rect);
Ellipse elipse = new Ellipse();
elipse.Fill = new SolidColorBrush(Colors.Red);
elipse.Width = 100;
elipse.Height = 100;
myCanvas.Children.Add(elipse);
WriteableBitmap wb = new WriteableBitmap(200, 200);
wb.Render(myCanvas, null);
wb.Invalidate();
ImageSource img = wb;
pic = new AnnPicture((BitmapSource)img);
}
Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Private Sub AnnPicture_AnnPicture()
Dim pic As AnnPicture = Nothing
Dim myCanvas As Canvas = New Canvas()
myCanvas.Width = 100
myCanvas.Height = 100
Dim rect As Rectangle = New Rectangle()
rect.Fill = New SolidColorBrush(Colors.Red)
rect.Width = 100
rect.Height = 100
myCanvas.Children.Add(rect)
Dim elipse As Ellipse = New Ellipse()
elipse.Fill = New SolidColorBrush(Colors.Red)
elipse.Width = 100
elipse.Height = 100
myCanvas.Children.Add(elipse)
Dim wb As WriteableBitmap = New WriteableBitmap(200, 200)
wb.Render(myCanvas, Nothing)
wb.Invalidate()
Dim img As ImageSource = wb
pic = New AnnPicture(CType(img, BitmapSource))
End Sub
Raster .NET | C API | C++ Class Library | JavaScript HTML5
Document .NET | C API | C++ Class Library | JavaScript HTML5
Medical .NET | C API | C++ Class Library | JavaScript HTML5
Medical Web Viewer .NET