S
shxm
Unregistered / Unconfirmed
GUEST, unregistred user!
我想显示某一汉字的ttf字体(如楷体)的笔画轮廓,苦于不知有关字体的详细说明,更无法编程实现.有哪位高手能指点?最好能有读取并显示字体笔画的程序源码.
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
你的问题就是空心字体的意思～～～<br>另外你说的读取、显示就是存为位图文件进行操作.<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> bmp:tbitmap;<br>begin<br> bmp:=tbitmap.Create;<br> with bmp do<br> begin<br> Width:=image1.Width;<br> Height:=image1.Height;<br> Canvas.Font.Name:='楷体';<br> Canvas.Font.Size:=30;<br> setbkmode(bmp.canvas.handle,0);<br> TransparentColor:=clWhite;<br> Canvas.Font.Color:=clred;<br> canvas.TextOut(9,10,'卷起千堆雪');<br> canvas.TextOut(10,9,'卷起千堆雪');<br> canvas.TextOut(10,11,'卷起千堆雪');<br> canvas.TextOut(11,10,'卷起千堆雪');<br> canvas.Font.Color:=clwhite;<br> canvas.TextOut(10,10,'卷起千堆雪');<br> image1.Canvas.Draw(0,0,bmp);<br> image1.Transparent:=true;<br> free;<br> end;<br>end;
S
shxm
Unregistered / Unconfirmed
GUEST, unregistred user!
感谢您的帮助，但我想要显示的是一个字每一笔画的空心轮廓，而不是整个字的轮廓，尽管显示笔画轮廓可能看起来有点乱。您（或者有谁）[
]能解决吗？
]能解决吗？
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
第二位兄弟的做法似乎有电偷懒啊<br>shexm, 你知不知道path, region, 完全可以用这个实现的.<br>首先你用textout书写文字创建path, 然后用这个path生成一个region<br>然后用FrameRgn就可以绘制轮廓了
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
你试一下下面的代码,<br>说明一下, 有一个TImage控件, 名称试image1<br>有一个fontdialog控件,名称是FontDialog1,它的font必须设置为一个矢量字体!!!<br>
代码:
<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br> dc : HDC;<br> bakClrPen, bakClrBrush : TColor;<br> rgn : HRGN;<br>begin<br> Image1.Canvas.Font := fontdialog1.Font;<br><br> dc := Image1.Canvas.Handle;<br><br> BeginPath(dc);<br><br> Image1.Canvas.TextOut(0, 0, '中国');<br> CloseFigure(dc);<br><br> EndPath(dc);<br><br> // SelectClipPath(dc, RGN_COPY);<br><br> bakClrPen := Image1.Canvas.Brush.Color;<br> bakClrBrush := Image1.Canvas.Pen.Color;<br> Image1.Canvas.Brush.Color := clRed;<br> Image1.Canvas.pen.Color := clBlue;<br><br> rgn := PathToRegion(dc);<br><br> if rgn<>0 then<br> FrameRgn(dc, rgn, Image1.Canvas.Brush.Handle, 1, 1);<br><br> Image1.Canvas.Brush.Color := bakClrBrush;<br> Image1.Canvas.Pen.Color := bakClrPen;<br><br> DeleteObject(rgn);<br>end;<br>
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br> dc : HDC;<br> bakClrPen, bakClrBrush : TColor;<br> tmpRgn : HRGN;<br> rgn : HRGN;<br> rgnRect : TRect;<br>begin<br> Image1.Canvas.Font := fontdialog1.Font;<br><br> dc := Image1.Canvas.Handle;<br><br> BeginPath(dc);<br><br> Image1.Canvas.TextOut(0, 0, '中国');<br> CloseFigure(dc);<br><br> EndPath(dc);<br><br> bakClrPen := Image1.Canvas.Brush.Color;<br> bakClrBrush := Image1.Canvas.Pen.Color;<br> Image1.Canvas.Brush.Color := clRed;<br> Image1.Canvas.pen.Color := clBlue;<br><br> rgn := PathToRegion(dc);<br> GetRgnBox(rgn, rgnRect);<br> tmpRgn := CreateRectRgn(rgnRect.left, rgnRect.top, rgnRect.Right, rgnRect.Bottom);<br> CombineRgn(rgn, tmpRgn, rgn, RGN_DIFF);<br><br> if rgn<>0 then<br> FrameRgn(dc, rgn, Image1.Canvas.Brush.Handle, 1, 1);<br><br> Image1.Canvas.Brush.Color := bakClrBrush;<br> Image1.Canvas.Pen.Color := bakClrPen;<br> SelectClipRgn(dc, 0);<br><br> DeleteObject(rgn);<br> DeleteObject(tmpRgn);<br>end;
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
你从path中能获得字体的信息,<br>包括点, 该点的类型等等,具体请看msdn
Y
YB_unique
Unregistered / Unconfirmed
GUEST, unregistred user!
很好很好！这个问题无意中帮我解决了另一个问题！ 字体轮廓好东西！^_^
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
YB_unique, 给你解决了什么问题, ^_^
S
shxm
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
S
shxm
Unregistered / Unconfirmed
GUEST, unregistred user!
huiyugan,我对这方面不熟，能否多介绍些path方面的情况？<br>msdn我没看过，是E文的吧？我以前怕看，现在有兴趣了，到哪里找？谢谢.
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
GetPath<br>The GetPath function retrieves the coordinates defining the endpoints of lines and the control points of curves found in the path that is selected into the specified device context. <br><br>int GetPath(<br> HDC hdc, // handle to DC<br> LPPOINT lpPoints, // path vertices<br> LPBYTE lpTypes, // array of path vertex types<br> int nSize // count of points defining path<br>);<br>当你使用BeginPath时, 你的当前DC上的path就被抛弃了<br>然后你在上面的绘图操作就形成path,当使用endpath时<br><br>msdn是开发windows程序的必备参考资料, 是微软的帮助文档,<br>你可以在卖光盘的地方找到.<br>里面有非常丰富的文档<br>
S
shxm
Unregistered / Unconfirmed
GUEST, unregistred user!
to huiyugan:<br>按你的方法能显示空心笔画，但还有一点问题能否解决？<br>当两个笔画交叉时（例如横和竖）如果部分轮廓正好重叠，则重叠部分不能显示，能否让重叠部分也显示？<br>另外，能否显示一个字中某一部分笔画轮廓？
H
huiyugan
Unregistered / Unconfirmed
GUEST, unregistred user!
to shxm。<br>这与字体信息有关系。<br>在矢量字体里面并不是记录横竖这样的信息，它记录的是字体的轮廓信息。也许你可以<br>找到一种字体能够满足你的要求。
