Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction - All Topics | Help Version 19.0.5.10
|
Leadtools.Windows.Annotations Namespace > AnnRubberStampObject Class : GetDefaultPicture Method |
public static AnnPicture GetDefaultPicture( AnnRubberStampType type )
'Declaration Public Shared Function GetDefaultPicture( _ ByVal type As AnnRubberStampType _ ) As AnnPicture
'Usage Dim type As AnnRubberStampType Dim value As AnnPicture value = AnnRubberStampObject.GetDefaultPicture(type)
public: static AnnPicture^ GetDefaultPicture( AnnRubberStampType type )
This sample does the following:
Imports Leadtools.Windows.Controls Imports Leadtools.Windows.Annotations Public Sub AnnRubberStampObject_GetDefaultPicture(ByVal dc As DrawingContext, ByVal filenameNewPicture As String) Dim type As AnnRubberStampType = AnnRubberStampType.Important ' first draw the original picture for the Important rubber stamp Dim rc As Rect = New Rect(0, 0, 240, 120) DrawRubberStampPicture(dc, rc, type) ' now change the picture to one of our own and redraw it Dim img As BitmapSource = New BitmapImage(New Uri(filenameNewPicture)) Dim picture As AnnPicture = New AnnPicture(img) picture.TransparentMode = AnnTransparentMode.None AnnRubberStampObject.SetDefaultPicture(type, picture) ' at this point, all new AnnRubberStampObject with Type = Important will use this new picture rc.Offset(0, rc.Height + 10) DrawRubberStampPicture(dc, rc, type) ' finally, set the picture back to the original value and redraw it AnnRubberStampObject.SetUseOriginalPicture(type, True) rc.Offset(0, rc.Height + 10) DrawRubberStampPicture(dc, rc, type) End Sub Private Sub DrawRubberStampPicture(ByVal dc As DrawingContext, ByVal rc As Rect, ByVal type As AnnRubberStampType) ' get the default picture for the rubber stamp Dim pic As AnnPicture = AnnRubberStampObject.GetDefaultPicture(type) ' draw it If Not pic.Image Is Nothing Then dc.DrawImage(pic.Image, rc) End If End Sub
using Leadtools.Windows.Controls; using Leadtools.Windows.Annotations; using Leadtools.Demos; using Leadtools.Help; public void AnnRubberStampObject_GetDefaultPicture(DrawingContext dc, string filenameNewPicture) { AnnRubberStampType type = AnnRubberStampType.Important; // first draw the original picture for the Important rubber stamp Rect rc = new Rect(0, 0, 240, 120); DrawRubberStampPicture(dc, rc, type); // now change the picture to one of our own and redraw it BitmapSource img = new BitmapImage(new Uri(filenameNewPicture)); AnnPicture picture = new AnnPicture(img); picture.TransparentMode = AnnTransparentMode.None; AnnRubberStampObject.SetDefaultPicture(type, picture); // at this point, all new AnnRubberStampObject with Type = Important will use this new picture rc.Offset(0, rc.Height + 10); DrawRubberStampPicture(dc, rc, type); // finally, set the picture back to the original value and redraw it AnnRubberStampObject.SetUseOriginalPicture(type, true); rc.Offset(0, rc.Height + 10); DrawRubberStampPicture(dc, rc, type); } private void DrawRubberStampPicture(DrawingContext dc, Rect rc, AnnRubberStampType type) { // get the default picture for the rubber stamp AnnPicture pic = AnnRubberStampObject.GetDefaultPicture(type); // draw it if(pic.Image != null) { dc.DrawImage(pic.Image, rc); } }
using Leadtools.Windows.Controls; using Leadtools.Windows.Annotations; using Leadtools.Examples; public void AnnRubberStampObject_GetDefaultPicture(WriteableBitmap wb, string filenameNewPicture) { AnnRubberStampType type = AnnRubberStampType.Important; // first draw the original picture for the Important rubber stamp Rect rc = new Rect(0, 0, 240, 120); DrawRubberStampPicture(ref wb, rc, type); // now change the picture to one of our own and redraw it BitmapSource img = new BitmapImage(new Uri(filenameNewPicture)); AnnPicture picture = new AnnPicture(img); picture.TransparentMode = AnnTransparentMode.None; AnnRubberStampObject.SetDefaultPicture(type, picture); // at this point, all new AnnRubberStampObject with Type = Important will use this new picture rc.Y += rc.Height + 10; DrawRubberStampPicture(ref wb, rc, type); // finally, set the picture back to the original value and redraw it AnnRubberStampObject.SetUseOriginalPicture(type, true); rc.Y += rc.Height + 10; DrawRubberStampPicture(ref wb, rc, type); } private void DrawRubberStampPicture(ref WriteableBitmap wb, Rect rc, AnnRubberStampType type) { // get the default picture for the rubber stamp AnnPicture pic = AnnRubberStampObject.GetDefaultPicture(type); // draw it if (pic.Image != null) { Canvas cvs = new Canvas(); cvs.RenderTransformOrigin = new Point(rc.X, rc.Y); cvs.Width = rc.Width; cvs.Height = rc.Height; wb = new WriteableBitmap(pic.Image); wb.Render(cvs, null); } }
Imports Leadtools.Windows.Controls Imports Leadtools.Windows.Annotations Public Sub AnnRubberStampObject_GetDefaultPicture(ByVal wb As WriteableBitmap, ByVal filenameNewPicture As String) Dim type As AnnRubberStampType = AnnRubberStampType.Important ' first draw the original picture for the Important rubber stamp Dim rc As Rect = New Rect(0, 0, 240, 120) DrawRubberStampPicture(wb, rc, type) ' now change the picture to one of our own and redraw it Dim img As BitmapSource = New BitmapImage(New Uri(filenameNewPicture)) Dim picture As AnnPicture = New AnnPicture(img) picture.TransparentMode = AnnTransparentMode.None AnnRubberStampObject.SetDefaultPicture(type, picture) ' at this point, all new AnnRubberStampObject with Type = Important will use this new picture rc.Y += rc.Height + 10 DrawRubberStampPicture(wb, rc, type) ' finally, set the picture back to the original value and redraw it AnnRubberStampObject.SetUseOriginalPicture(type, True) rc.Y += rc.Height + 10 DrawRubberStampPicture(wb, rc, type) End Sub Private Sub DrawRubberStampPicture(ByRef wb As WriteableBitmap, ByVal rc As Rect, ByVal type As AnnRubberStampType) ' get the default picture for the rubber stamp Dim pic As AnnPicture = AnnRubberStampObject.GetDefaultPicture(type) ' draw it If Not pic.Image Is Nothing Then Dim cvs As Canvas = New Canvas() cvs.RenderTransformOrigin = New Point(rc.X, rc.Y) cvs.Width = rc.Width cvs.Height = rc.Height wb = New WriteableBitmap(pic.Image) wb.Render(cvs, Nothing) End If End Sub