topic-45553

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

insert a line on a Group
Posted: Thu Mar 20, 2025 09:10 AM

I want to insert a black line between the group header and the first record of the group,

The vertical position (oRep:nRow) is not updated correctly.

even if I do it this way

Code: Select all Collapse

oRep:bPostGroup := { || oRep:Line(oRep:nRow + 5, 0, oRep:nRow + 5, oRep:nWidth, 1, CLR_BLACK) }

nothing happens

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: insert a line on a Group
Posted: Thu Mar 20, 2025 09:43 AM

I tried to insert a line dotted but then not add a space

Code: Select all Collapse

 oRep:bStartGroup := { |oGroup| oRep:Say(oRep:nMargin, Replicate("-", oRep:nWidth / 10), 1, RPT_LEFT, oRep:nRow + 5, , , CLR_BLACK),;
                                     oRep:nRow := oRep:nRow + 10 }

FiveTech Support Forums

Continue the discussion