J jieluo Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-24 #1 例如当数据为'内食'时,打印'内食'字段为红色,其它则为黑色
R realLearning Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-24 #2 如果是quickrep 直接在qrdbtext的onprint事件中 根据value的值 设置qrdbtext的字体的颜色
J jieluo Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-24 #3 realLearning老兄,我直接设为红色都不可以啊,原码如下: procedure TWorkCardForm1.QRDBText4Print(sender: TObject; var Value: String); begin QRDBText4.Color:=clRed; end;
realLearning老兄,我直接设为红色都不可以啊,原码如下: procedure TWorkCardForm1.QRDBText4Print(sender: TObject; var Value: String); begin QRDBText4.Color:=clRed; end;
R realLearning Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-24 #4 如果是字体 if value='xx' then qrdbtext4.font.color :=clred else qrdbtext4.font.color:= clblack; 如果是背景 if value='xx' then qrdbtext4.color :=clred else qrdbtext4.color:= clWindow; 运行后才有效果，直接在设计时预览看不到。
如果是字体 if value='xx' then qrdbtext4.font.color :=clred else qrdbtext4.font.color:= clblack; 如果是背景 if value='xx' then qrdbtext4.color :=clred else qrdbtext4.color:= clWindow; 运行后才有效果，直接在设计时预览看不到。
