fastreport字体加粗

最新推荐文章于 2024-07-27 01:37:38 发布

weixin_30536513

最新推荐文章于 2024-07-27 01:37:38 发布

阅读量994

点赞数 1

文章标签： c#

原文链接：http://www.cnblogs.com/semth/p/10710169.html

版权

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
         IF  (<frxDB_cdsresult."res_CHR">='↓') THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLblue;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLblue;
          frxdb_cdsresultres_dec.FONT.STYLE:=0;  
       END  
       else IF   (<frxDB_cdsresult."res_CHR">='↑' ) THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.STYLE:=fsnone;  
       END                       
       ELSE IF  (<frxDB_cdsresult."res_CHR">='阳性') THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.STYLE:=fSBOLD;              
       END
       ELSE
       BEGIN
          frxdb_cdsresultres_chr.FONT.COLOR:=CLBLACK;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLBLACK;
          frxdb_cdsresultres_dec.FONT.STYLE:=0;                
       END;  
end;