如何在运行期改变TQRDBText的字体 再加100分 (200分)

A

alinq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

请问各位大虾:
如何才能控制TQRDBText控件在打印时的字体显示?
如是"+",我要用黑体显示,而若是"-",我要用宋体显示.
我在线等!

 

A

alinq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

是不是这个问题太简单?

 

A

astart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

if TQrdbtext.captions='+' then
Tqrbtext.font.style:='黑体';
else
Tqrbtext.font.style:='宋体';
我可能有点记不住是不是style属性了。你可以试试看。

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

在打印或预览之前，对所有的TQrDBText控件进行一次检测，再设置字体该可以用。
如:
Var
i:Integer;
begin
For i:=0 to QuickRep1.ControlCount-1do
if QuickRep1.Controls is TQrDbedit then
begin
if TQRDBEdit(QuickRep1.Controls).Text='+' then
设置字体
if TQRDBEdit(QuickRep1.Controls).Text='-' then
设置字体
end;
end;
随便写的，一个思路，你试试，该可以。。。当然或许有更好的方案。

 

A

alinq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

我开始也是这样想的,可是行不通,只能改第一条记录!

 

A

alinq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #6

没有人能帮我解决?

 

A

alinq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #7

谁帮我解决了这个问题,我再加100分!

 

S

slxiao112

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-09

• #8

放在TQRDBText控件 的OnPrint 事件中。