Home General
New Blog Posts: Merging Reports - Part 1 and Part 2

Alternating Line weight

edited September 2001 in General
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

Comments

  • edited September 2001
    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


This discussion has been closed.