Quiero poner una caja redondeada y me da el siguiente alert
Error code: 0 loading GDI:EXE
Este es mi codigo ( el codigo lo tome del foro)
- Code: Select all Expand view
FUNCTION CajaRed()
LOCAL oPrn
LOCAL oPen
DEFINE BRUSH oBrush COLOR CLR_BLACK
DEFINE BRUSH oFondo COLOR CLR_HGRAY
DEFINE PEN oPen WIDTH 2
PRINT oPrn FROM USER PREVIEW TITLE "Ejemplo de caja redondeada"
PAGE
CajaRound( 1.6 , 15.0 , 3.4, 20.0, oPrn, 90, 90, oPen, oBrush ) //*nRGB(250,213,174*/) )
ENDPAGE
oPen:END()
oPen:release()
ENDPRINT
RETURN nil
Function CajaRound(nArriba, nIzq, nAbajo, nDerecha, oPrn, a, b, oPen, oBrush)
LOCAL hOldPen, xCor := {} , yCor := {}
local hOldBrush
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
// Guardamos el Lapiz y la brocha que teniamos
hOldPen := SelectObject( oPrn:hDcOut, oPen:hPen )
hOldBrush := SelectObject( oPrn:hDcOut, oBrush:hBrush )
//Dibujamos el rectangulo redondeado
roundrect(oPrn:hdcOut,xCor[2],xCor[1],yCor[2],yCor[1],a,b)
// y seleccionamos el que habiamos guardado
selectObject( oPrn:hDcOut, hOldPen )
selectObject( oPrn:hDcOut, hOldBrush )
RETURN NIL