Alternating Line weight

rbuser

Goodmorning Everyone,

I generate a group report by the report wizard. I have a horizontal line in
detail band, ppLine3 and username is Line3. The line should become heavier
at every fith row. That is the most simple method?

Thanks
Marcel

digitalmetaphors

Place a TppDBCalc in the detailband and set it to visible = false. Then in
the OnPrint event of the line, use this code:

procedure TForm1.ppLine1Print(Sender: TObject);
begin

if ((ppDBCalc1.Value mod 5) = 0) then
ppLine1.Pen.Width := 5
else
ppLine1.Pen.Width := 1;

end;


Cheers,

Jim Bennett
Digital Metaphors