procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (dayofweek(<frxDBDataset1."日期">)=1) or(dayofweek(<frxDBDataset1."日期">)=7) then begin memo1.font.color:=clred; //要改边框色memo1.frame.color memo2.font.color:=clred; end else begin memo1.font.color:=clblack; memo2.font.color:=clblack; end; end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if (dayofweek(<frxDBDataset1."日期">)=1) or(dayofweek(<frxDBDataset1."日期">)=7) then begin
memo1.font.color:=clred; //要改边框色memo1.frame.color
memo2.font.color:=clred;
end else begin
memo1.font.color:=clblack;
memo2.font.color:=clblack;
end;
end;