Print a Box with fwh

Print a Box with fwh

Postby Silvio.Falconi » Mon Oct 25, 2021 7:49 am

..
Last edited by Silvio.Falconi on Tue Oct 26, 2021 8:27 am, edited 3 times in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: Print a Box

Postby Silvio.Falconi » Mon Oct 25, 2021 8:49 am

..
Last edited by Silvio.Falconi on Mon Oct 25, 2021 9:47 am, edited 3 times in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: Print a Box with 12 boxes

Postby Otto » Mon Oct 25, 2021 9: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


Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6342
Joined: Fri Oct 07, 2005 7:07 pm

Re: Print a Box

Postby Silvio.Falconi » Mon Oct 25, 2021 9:09 am

..
Last edited by Silvio.Falconi on Mon Oct 25, 2021 9:47 am, edited 2 times in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: Print a Box with 12 boxes

Postby Otto » Mon Oct 25, 2021 9: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=3&t=40694&hilit=report&start=15
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6342
Joined: Fri Oct 07, 2005 7:07 pm

Re: Print a Box with 12 boxes

Postby Silvio.Falconi » Tue Oct 26, 2021 8: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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: Print a Box with fwh

Postby Marc Venken » Wed Oct 27, 2021 6:06 am

in the print routine :


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


Code: Select all  Expand view  RUN
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.04 with Harbour
User avatar
Marc Venken
 
Posts: 1442
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium

Re: Print a Box with fwh

Postby Silvio.Falconi » Wed Oct 27, 2021 7:08 am

Marc Venken wrote:in the print routine :


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


Code: Select all  Expand view  RUN
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: Select all  Expand view  RUN
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
Image
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 86 guests