How can I incorporate in the following simple programming extract a PEN control (f.e. a PEN width 5) to become a BOX with thicker lines
DEFINE FONT fntArial3 NAME "Arial" SIZE 0, -12 BOLD OF oPrn
nRow2:=3fntArial3:nHeight
nCol2:=4fntArial3:nWidth
PRINT oPrn FROM USER
PAGE
oPrn:Box(nRow2,nCol2,nRow2+=8.5fntArial3:nHeight,nCol2+=40fntArial3:nWidth)
….
Just pass oPen as the fifth parameter to the Box() method.
EMG
and how to introduce the PEN command before passing it as the fifth parameter
I tried already with
define PEN oPen width 5 for example
but it did not work?
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oPrn, oPen
PRINT oPrn PREVIEW
DEFINE PEN oPen WIDTH 50
PAGE
oPrn:Ellipse( 0, 0, 1000, 2000, oPen )
ENDPAGE
ENDPRINT
DELETEOBJECT( oPen )
RETURN NILThe thickness from a pen must be calculated in dependence to the used printer! (or give the OF oPrint clausula as ukoenig say!)
I don't see any difference between using or not OF oPrn.
EMG
It works, thank you all
