如何让TQRDBText超出格子的部分不再打印？(30分)

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-06

• #1

TQRDBText打印的内容有时超出了范围，只好决定超出的部分截去。
是否通过 autostrech 和 wordwrap 属性实现？
但我将二者都设为false 好像不起作用。
why？

 

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #2

还有一个问题希望您能一并给予解答：
就是我想对 TQRDBText 的内容判断 来决定是否让其在显示时是否
加上下划线，即如下程序段：
procedure TprintMxRest.QRDBText6Print(sender: TObject;
var Value: String);
begin

if QRDBText6 = '0' then

QRDBText6.Frame.DrawTop :=true;
end;

说明：上面 QRDBText6 对应的数据库的字段为 整数型，编译提示为 类型不符合。
等待您的指导！

 

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #3

对上面问题的补充和更正：
我想根据 QRDBText6 前面的一个控件 QRDBText5 来决定是否 QRDBText6
在打印时 是否应该 修改属性（即添加下划线）。
急请高手指教！

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #4

只需设置QRDBText的autosize为false
if QRDBText6 = '0' then

改为 if QRDBText6.text(不记得是text还是caption) = '0' then

 

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #5

谢谢sonie ，解答1 ，很好
但，解答2，好像不起作用，QRDBText6 没有text和caption 属性。不过，其倒有lines
属性。 另外，您还可对我 这样解决问题的方法进行 建议，是否还有更好的方法来在
QRDBText6打印时 控制其是否显示下划线。在这个 事件 里 处理恰当与否？

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #6

怎么我查到的有Caption属性呢?
而且我试了，可以访问他的caption,你不要看帮助，直接这么敲进去试一下

 

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #7

to sonie :
对不起，确实有 caption 属性，我单步调试了一下，caption 属性的值是
所对应 数据表的 字段名。
如果我想根据 字段的值 来 进行判断，应该用哪一个 属性？

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-08

• #8

caption在开始的确是字段名的名称，有数据时就是显示的数据。
不过用这个方法的确有不行的地方

 

王

王鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-13

• #9

利用 onprint 事件的 value参数 来判断 字段的当前值,可以得到处理.