Memo1.Text = [Line#]
Memo1.Frame.typ = Memo1.Frame.typ + [ftLeft,ftRight,ftTop,ftBottom]
procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
case (<Line#> mod 2) = 0 of
true : Memo1.Color := clSkyBlue;
false: Memo1.Color := clMoneyGreen;
end;
end;
fastReport3.0中“FastReport v3.07/setup/Demos/Main/FRDemo.dpr”中有
里近100份报表你看看