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
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 wrote:in the print routine :
mybox(5.4,0.75,8.5,9,5)
- Code: Select all Expand view
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
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 34 guests