Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Function AnnTextDrawDesigner_AnnTextDrawDesigner(ByVal viewer As RasterImageViewer, ByVal container As AnnContainer) As AnnTextDrawDesigner
' start a new text draw designer
Dim textDrawDesigner As AnnTextDrawDesigner = New AnnTextDrawDesigner()
' set up the object template (the text object)
Dim textObject As AnnTextObject = New AnnTextObject()
textObject.Pen = Nothing
textObject.Brush = Nothing
textObject.Font = New AnnFont("Arial", New AnnLength(10, AnnUnit.Point), FontStyle.Regular)
textObject.EdgeMargin = AnnLength.Empty
textObject.Alignment = StringAlignment.Center
textObject.LineAlignment = StringAlignment.Center
' set up the default text to be used
textDrawDesigner.DefaultText = "Leadtools"
' initialize the rest of the designer
textDrawDesigner.ObjectTemplate = textObject
textDrawDesigner.Owner = viewer
textDrawDesigner.ClipCursor = True
textDrawDesigner.Container = container
Return textDrawDesigner
End Function
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
public AnnTextDrawDesigner AnnTextDrawDesigner_AnnTextDrawDesigner(RasterImageViewer viewer, AnnContainer container)
{
// start a new text draw designer
AnnTextDrawDesigner textDrawDesigner = new AnnTextDrawDesigner();
// set up the object template (the text object)
AnnTextObject textObject = new AnnTextObject();
textObject.Pen = null;
textObject.Brush = null;
textObject.Font = new AnnFont("Arial", new AnnLength(10, AnnUnit.Point), FontStyle.Regular);
textObject.EdgeMargin = AnnLength.Empty;
textObject.Alignment = StringAlignment.Center;
textObject.LineAlignment = StringAlignment.Center;
// set up the default text to be used
textDrawDesigner.DefaultText = "Leadtools";
// initialize the rest of the designer
textDrawDesigner.ObjectTemplate = textObject;
textDrawDesigner.Owner = viewer;
textDrawDesigner.ClipCursor = true;
textDrawDesigner.Container = container;
return textDrawDesigner;
}