fastreport字体加粗

佚名 6年前 (2019-04-15) 随笔 1531人围观抢沙发百度已收录

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;