<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:src="clr-namespace:WpfApplication1.TextGeometryDemo"
Title="TextGeometry Demo">
<Window.Resources>
<src:TextGeometry x:Key="txtHollow" Text="Hollow"
FontFamily="Times New Roman"
FontSize="192" FontWeight="Bold" />
<src:TextGeometry x:Key="txtShadow" Text="Shadow"
FontFamily="Times New Roman"
FontSize="192" FontWeight="Bold" />
</Window.Resources>
<TabControl>
<TabItem Header="Shadow">
<Canvas>
<Path Fill="DarkGray"
Data="{Binding Source={StaticResource txtShadow},Path=Geometry}"
Canvas.Left="12" Canvas.Top="12" />
<Path Stroke="Black" Fill="White"
Data="{Binding Source={StaticResource txtShadow},Path=Geometry}" />
</Canvas>
</TabItem>
</TabControl>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Globalization
Imports System.Windows
Imports System.Windows.Media
Namespace WpfApplication1.TextGeometryDemo
Public Class TextGeometry
Private txt As String = ""
Private fntfam As New FontFamily()
Private fntstyle As FontStyle = FontStyles.Normal
Private fntwt As FontWeight = FontWeights.Normal
Private fntstr As FontStretch = FontStretches.Normal
Private emsize As Double = 24
Private ptOrigin As New Point(0, 0)
Public Property Text() As String
Get
Return txt
End Get
Set
txt = value
End Set
End Property
Public Property FontFamily() As FontFamily
Get
Return fntfam
End Get
Set
fntfam = value
End Set
End Property
Public Property FontStyle() As FontStyle
Get
Return fntstyle
End Get
Set
fntstyle = value
End Set
End Property
Public Property FontWeight() As FontWeight
Get
Return fntwt
End Get
Set
fntwt = value
End Set
End Property
Public Property FontStretch() As FontStretch
Get
Return fntstr
End Get
Set
fntstr = value
End Set
End Property
Public Property FontSize() As Double
Get
Return emsize
End Get
Set
emsize = value
End Set
End Property
Public Property Origin() As Point
Get
Return ptOrigin
End Get
Set
ptOrigin = value
End Set
End Property
Public ReadOnly Property Geometry() As Geometry
Get
Dim formtxt As New FormattedText(Text, CultureInfo.CurrentCulture, FlowDirection.LeftToRight, New Typeface(FontFamily, FontStyle, FontWeight, FontStretch), FontSize, Brushes.Black)
Return formtxt.BuildGeometry(Origin)
End Get
End Property
Public ReadOnly Property PathGeometry() As PathGeometry
Get
Return PathGeometry.CreateFromGeometry(Geometry)
End Get
End Property
End Class
End Namespace
