topic-40969

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Print a Box with fwh
Posted: Mon Oct 25, 2021 07:49 AM

..

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: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Print a Box
Posted: Mon Oct 25, 2021 08:49 AM

..

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

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Print a Box with 12 boxes
Posted: Mon Oct 25, 2021 09:08 AM

Hello Silvio,
I think what you are looking for is exactly what I showed you with my HTML report.
But you are not interested in the HTML solution, am I still right?

Best regards,
Otto

https://mybergland.com/fwforum/silviorep.png

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Print a Box
Posted: Mon Oct 25, 2021 09:09 AM

..

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

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: Print a Box with 12 boxes
Posted: Mon Oct 25, 2021 09:32 AM

Hello Silvio,
This is not mod harbour. It is / i zi pi zi / my new report for FIVEWIN.
Best regards,
Otto

HTML Report - is there a reason nobody cares?

viewtopic.php?f=3t=40694hilit=reportstart=15

&&&

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Print a Box with 12 boxes
Posted: Tue Oct 26, 2021 08:31 AM

Otto wrote:Hello Silvio,
This is not mod harbour. It is / i zi pi zi / my new report for FIVEWIN.
Best regards,
Otto

HTML Report - is there a reason nobody cares?
viewtopic.php?f=3&t=40694&hilit=report&start=15

once again I really don't understand why you insist?

this is not helping

I ask how do you make a box in print and you answer with html and mod harbor but I asked you how to do it in html or with mod harbor?

because in the meantime everyone will say that I am rude and that I ask for help and answer badly

but if I ask the forum for example

"how can I fix my scooter?"

and you answer me that it is better to buy an electric car

does it seem the same to you?

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

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: Print a Box with fwh
Posted: Wed Oct 27, 2021 06:06 AM

in the print routine :

mybox(5.4,0.75,8.5,9,5)

Code (fw): Select all Collapse

function Mybox(Ptop,Pleft,PBottom,PRight,nPen)
   local aRect,aRect1
   default nPen:= 2
   define Pen oPen WIDTH nPen
   aRect  = oPrn:Cmtr2Pix( pTop,pLeft )
   aRect1 = oPrn:Cmtr2Pix( pBottom,pRight )
   oPrn:Box(aRect[1],aRect[2],aRect1[1],aRect1[2],oPen)
   oPen:end()
return nil

Marc Venken

Using: FWH 23.08 with Harbour

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Print a Box with fwh
Posted: Wed Oct 27, 2021 07:08 AM

Marc Venken wrote:in the print routine :

mybox(5.4,0.75,8.5,9,5)

Code (fw): Select all Collapse

function Mybox(Ptop,Pleft,PBottom,PRight,nPen)
   local aRect,aRect1
   default nPen:= 2
   define Pen oPen WIDTH nPen
   aRect  = oPrn:Cmtr2Pix( pTop,pLeft )
   aRect1 = oPrn:Cmtr2Pix( pBottom,pRight )
   oPrn:Box(aRect[1],aRect[2],aRect1[1],aRect1[2],oPen)
   oPen:end()
return nil

I used sample

I use the new Box of printer class made by Nages

oPrn:Box(nRow, nCol, nRow + nHeight, nCol + nWidth, ,,, "CM" )

with no problem

If you wish use your function I have a new relase

Code (fw): Select all Collapse

Function FormBox(Ptop,Pleft,PBottom,PRight,oPrn,nType,nColor,nPen)

   local oPen
   local aDes :=array(2)
   local aHas:=array(2)
 

   default nColor:=CLR_HGRAY
   default nPen:= 2

   Define Pen oPen WIDTH nPen COLOR nColor


            aDes  = oPrn:Cmtr2Pix( pTop,pLeft )
            aHas = oPrn:Cmtr2Pix( pBottom,pRight )


         
       IF nType==1     // box
               oPrn:Box(aDes[1],aDes[2],aHas[1],aHas[2])

            elseif nType==2   //line Horiz
               oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2])

            elseif  nType==3   //line vert
               oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2])

             elseif  nType==4   //Box round
                oPrn:RoundBox(aDes[1],aDes[2],aHas[1],aHas[2], 70, 70, ,  )
                //RoundBox( nRow, nCol, nBottom, nRight, nWidth, nHeight, oPen, nBGColor, aText, cUnits )
             

               elseif  nType==5   //Box con bacground

                oPrn:Box(aDes[1],aDes[2],aHas[1],aHas[2],oPen,nColor)
                //Box( nRow, nCol, nBottom, nRight, anoPen, noBrush, aText, cUnits )

           endif 

     oPen:end() 

return nil

I print my invoice with these function

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

FiveTech Support Forums

Continue the discussion