简单问题,如何实现字体随鼠标拖拽自由精确的缩放?放了这么长时间才一个人回答:( 加分加分,300分!!!!!!够了没有?! (100分)

  • 主题发起人 主题发起人 Blueman
  • 开始时间 开始时间
B

Blueman

Unregistered / Unconfirmed
GUEST, unregistred user!
就像Illustrator等图形软件里一样,一个方框里的字体随鼠标拖拽自由精确的缩放大小适应方框。
文字的开始和结尾都能很好的贴到边框。我用logfont做了,效果不理想,因为lfWidth只是字体的平均宽度,用TextWidth除以文字长度根本实现不了我要的功能。有哪位高人做过类似东东?
 
可能用矢量字库,字体大小能随意放朔,其他字体大小如8,9,10,12
怎么能满足你的需要?
 
我就是用的矢量字体呀。
 
建议以图元形式,图元文件就是矢量。
 
TMetafile没Canvas,我怎么画文字上去呢?
 
有一个TMetaFileCanvas类你可以看一下他的帮助中的create方法就
知道如何使用了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
686
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部