Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Sub AnnFont_AnnFont(ByVal graphics As Graphics, ByVal converter As AnnUnitConverter, ByVal str As String, ByVal x As Integer, ByVal y As Integer)
Dim annBrush As AnnSolidBrush = New AnnSolidBrush(Color.Red)
Dim annFont As AnnFont = New AnnFont(FontFamily.GenericMonospace, New AnnLength(15, AnnUnit.Point), FontStyle.Bold Or FontStyle.Italic)
Dim gdiBrush As Brush = annBrush.Create(converter, AnnRectangle.Empty)
Try
Dim gdiFont As Font = annFont.Create(graphics, converter)
Try
graphics.DrawString(str, gdiFont, gdiBrush, x, y)
Finally
CType(gdiFont, IDisposable).Dispose()
End Try
Finally
CType(gdiBrush, IDisposable).Dispose()
End Try
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
public void AnnFont_AnnFont(Graphics graphics, AnnUnitConverter converter, string str, int x, int y)
{
AnnSolidBrush annBrush = new AnnSolidBrush(Color.Red);
AnnFont annFont = new AnnFont(FontFamily.GenericMonospace, new AnnLength(15, AnnUnit.Point), FontStyle.Bold | FontStyle.Italic);
using(Brush gdiBrush = annBrush.Create(converter, AnnRectangle.Empty))
{
using(Font gdiFont = annFont.Create(graphics, converter))
{
graphics.DrawString(str, gdiFont, gdiBrush, x, y);
}
}
}