Stripes in Lazreport
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
krexon · 2011-09-13 08:50

I have "master data" band in report and I want to have odd lines
striped (i.e. ligth grey). When I add following, other bands (master
header, page header) are also striped:
Code: [Select]procedure TFormRCP.frReportEnterRect(Memo: TStringList;
View: TfrView);
begin
  if odd(wiersz) then View.FillColor:=clLtGray else
View.FillColor:=clWhite;
end;

How to do this in proper way?

----------------------------------------------------------------------
jesusr · 2011-09-14 19:20

try to check the view's band type, something  like:

Code: [Select]if view.parent.typ=btMasterData then begin
  if odd(wiersz) then View.FillColor:=clLtGray else
View.FillColor:=clWhite;
end;

----------------------------------------------------------------------
krexon · 2011-09-20 11:51

Thanks, it's working