semth
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;

 

分类:

技术点:

相关文章:

  • 2021-10-25
  • 2021-12-24
  • 2022-12-23
  • 2021-10-04
  • 2022-01-01
  • 2021-04-24
  • 2021-11-25
  • 2022-12-23
猜你喜欢
  • 2021-12-10
  • 2021-12-26
  • 2021-09-09
  • 2022-01-08
  • 2022-01-02
  • 2022-02-27
相关资源
相似解决方案