Hello
I can draw a line in a window or on paper using the next code:
@ nRow, nCol LINE HORIZONTAL SIZE oPrn:pageWidth() OF oPrn
But can I set the thickness of the line?
And is there also a code to draw a rectangle, in variations., like rounded corners, different lines (dotted, striped, full..)
DrawLine( oDlg1,270,540,250,540,0)
...
//---------------- Tracer une ligne entre 2 points avec une couleur définie -----//
Function DrawLine( oDlg1, xFrom, yFrom , xTo , yTo, nColor)
LOCAL hPen, hOldPen
LOCAL hDC1 := oDlg1:GetDC()
hPen := CreatePen( 0, 2, nColor ) // largeur 2
hOldPen := SelectObject( hDC1, hPen )
MoveTo( hDC1, yFrom, xFrom )
LineTo( hDC1, yTo, xTo)
SelectObject( hDC1, hOldPen )
DeleteObject( hPen )
oDlg1:ReleaseDc()
return NILPrnLandscape()
PRINT oReport NAME "With lines" PREVIEW
DEFINE PEN oPen WIDTH 2 OF oReport
PAGE
nColumn:=oReport:nHorzRes()/132 && 132 columns
nRow:=oReport:nVertRes()/66
oReport:LINE(7.5*nRow,5*nColumn,7.5*nRow,130*nColum,oPen)
ENDPAGE
ENDPRINT
oPen:END()
RELEASE ALLRené,
That code is for Windows. We will check for the OSX equivalent
Hello Antonio,
The commands works perfect with GROUP command, but I don't see any changes WITH the LINE?
However, I can use a Group with height 5, that gives a thick line.
The rounded corners are not imporant for me, so if that gives problems at other places, we should not use it.
To make it work WITH in NSBox the box type must be NSBoxCustom = 4 .
See Testgrp.prg ....
Change :
@ 60 ,10 LINE HORIZONTAL oline SIZE 372 OF oDlg
to
@ 60, 10 GROUP oline SIZE 372, 5 OF oDlg
oline:setCustom()
oline:setBorderType(1)
oline:setBorderColor(0,255,0,100)
oline:SetBorderWidth( 5 )
anyway , @property NSBorderType borderType is deprecated and It's not advisable use custom lines in views.
Hello Mauel,
Thank you, this works perfectly for me. This programming tool is getting better every time. I love it.
