如何在设定大小的区域内打印任意字数的文本?(100分)

  • 主题发起人 主题发起人 徐懿
  • 开始时间 开始时间

徐懿

Unregistered / Unconfirmed
GUEST, unregistred user!
例如:有一张10cm*10cm的纸,可能在上面打印10个字,
也可能打印1000个字,要求垂直居中打印,并且要求自动
变换字体,使页面不显得太空(即打印几个字时要用大字体,
打印几百个字时就要用小字体)(实际是模仿人填写表格的
方法,人可以根据表格大小、字数来确定填写的字体,使
表格较美观)
 
建一个对照表,如:10个字,怎样办,100个字怎样办...
或大致先确定字体,然后取得字的Height、Size;计算每行的字数和行数,确定
位置。
 

1、先算一下共有多少个字。n
求字符串长/2 (化为汉字)

2、再算一下不同字形的宽度。
如宋体小四17点...小五为14点。

3、根据面积/字数值。求得字号
用一个case语句控制。

4、填充进去。
 
接受答案了.
 

Similar threads

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