Para Carlos Gallego-oPrn:Roundbox

[juan_arroyo_t]

Carlos

Ojalá pudieras ayudarme

Estoy tratando de utilizar esta rutina de tu post

CajaRound( 1.6 , 15.0 , 3.4, 20.0 ,oPrn,90,90,oPen1,nRGB(250,250,250))

Func CajaRound(nArriba, nIzq, nAbajo, nDerecha, oPrn, nAncho, nAlto, oPen, nColor )
Local xCor := {} , yCor := {}
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
oPrn:RoundBox(xCor[2],xCor[1],yCor[2],yCor[1],nAncho,nAlto,oPen, nColor )
return NIL

de esta manera :

Code: Select all

CajaRound( nRow+00.40, 00.80, nRow+01.30, 20.80, oPrn, 90, 90, oPen, nRGB(250,250,250))

Func CajaRound(nArriba, nIzq, nAbajo, nDerecha, oPrn, nAncho, nAlto, oPen, nColor )
Local xCor := {} , yCor := {}
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
oPrn:RoundBox(xCor[2],xCor[1],yCor[2],yCor[1],nAncho,nAlto, oPen, nColor )
return NIL
 

Y me da este error : Error code: 0 loading GDI.EXE
estoy utilizando fw 11.08


De antemano muchas gracias