提问，关于TextRect，如何让输出的MEMO数据自动换行(50分)

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-14

• #1

printer.begin
Doc;
printer.Canvas.TextRect(Rect(memo1.left,memo1.top,memo1.left+memo1.Width+100,memo1.top+memo1.Height+500),
memo1.left, memo1.Top+10, memo1.Text);
printer.EndDoc;
我的MEMO1里的数据是自动换行 的，请问如何输出，能让打印出来的数据和在MEMO1里看到的换行效果一样！

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-14

• #2

printer.begin
Doc;
for i:=0 to memo1.Lines.count-1do
printer.Canvas.TextRect(Rect(memo1.left,memo1.top,memo1.left+memo1.Width+100,memo1.top+memo1.Height+500),
memo1.left, memo1.Top+10,memo1.Lines.Strings);
printer.EndDoc;
//但是你需要自己计算每行Y坐标的变化。

 

L

liqj_

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-15

• #3

可以让Memo1中的内容临时所有自动换行转为真实换行再打印

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-15

• #4

//可以让Memo1中的内容临时所有自动换行转为真实换行再打印
这个我试过，是不行的，zywcd的说法到有可能，那就要去找找桌面和实际字体的装换大小来判断动态的Y值了，还要研究研究！

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-07

• #5

谢谢 ！先发分