L littlefish Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-06 #1 这几天在改一个旧程序。有一个在打印时用到的api函数GetTextExtent,是老版本的,在2000<br>下(delphi5)编译不了,不知道什么函数是用来替换他的?
L littlefish Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-08 #3 不知最后一个参数怎么写。我看帮助说是个结构,在delphi里怎么定义类似的东西。应该是<br>定义一个矩形的高和宽。先谢了。<br>
J JohnsonGuo Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-08 #5 var<br> sz: TSize;<br>begin<br> GetTextExtentPoint32(Printer.Canvas.Handle, 'haha', 4, sz);<br> ShowMessage(Format('%d, %d', [sz.cx, sz.cy]));<br>end;
var<br> sz: TSize;<br>begin<br> GetTextExtentPoint32(Printer.Canvas.Handle, 'haha', 4, sz);<br> ShowMessage(Format('%d, %d', [sz.cx, sz.cy]));<br>end;