|
VB.NET2005 TIPS / グラフィックス系 |
|
G0306 飾文字-縁取り |
| 最終更新：2006/11/12 再掲 |
●解説
文字の外形周囲に均等に彩りを施す。
実例
●原理
文字列をパス化し、パスをPenでなぞることで実現できる。縁の程度はPenの幅で調整できる。文字本体は文字として描画するより、パスを塗りつぶした方が縁とのズレが生じない。
●方法
以下の手順で行う。
文字列をパス化する。
パスを太めのPenでなぞる。これが縁となる。
文字自体はパスをFillする。
●実例
gはGraphicsとする。Xc, Ycは文字位置。dsは文字列。
Dim fmt As New StringFormat()
fmt.Alignment = StringAlignment.Center
fmt.LineAlignment = StringAlignment.Center
Dim pa As New GraphicsPath()
pa.Reset()
pa.AddString(ds, New FontFamily("ＭＳ Ｐゴシック"), CInt(FontStyle.Regular),
f.GetHeight(g), New PointF(Xc, Yc), fmt)
pa.CloseFigure()
Dim wp As Pen = New Pen(Color.Red, 15)
g.DrawPath(wp, pa)
g.FillPath(Brushes.Gold, pa)
pa.Dispose()
wp.Dispose()