Un pequeño inconveniente que me acaba de surgir, por si le ha pasado a alguno.
En la impresión de facturas, utilizando la clase Tprinter, pongo _ redondeadas donde encierro, en una de ellas, los datos de la factura y en la otra los datos del cliente. Esto funcionaba bien en FW 2.7.
Ahora he pasado todo el programa a FWH 8.04 y mi sorpresa es que las cajas salen al revés.
CajaRound( 5, 1, 7.7, 10.2, 200, 200, oPrn, oPen2)
CajaRound( 5, 10.3, 7.7, 20, 200, 200, oPrn, oPen2)
Code: Select all
Function CAJAROUND(nArriba,nIzq,nAbajo,nDerecha,a,b,oPrn,oPen)
LOCAL hOldPen, xCor := {} , yCor := {}
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
// Guardamos el Pen que teniamos
hOldPen := SelectObject( oPrn:hDcOut, oPen:hPen )
//Dibujamos el rectangulo redondeado
roundrect(oPrn:hdcOut,xCor[1],xCor[2],yCor[1],yCor[2],a,b)
// y lo seleccionamos el que habiamos guardado
selectObject( oPrn:hDcOut, hOldPen )
RETURN NIL
Si cambio los dos primeros parámetros, la caja sale más o menos bien, el fallo es que no pinta la línea inferior, y la une a la caja general del cuerpo de la factura, que esa si la pinta bien.
Esto en la primera caja.
La segunda caja con los parámetros originales, ni la pinta, pero si cambio los dos primeros parámetros, me la pinta junto a la primera.
Mi duda es : los parámetros en la funcion roundrect son diferentes?
en vez de Arriba, Izquierda, Abajo, Derecha,......son Izquierda, Arriba, Derecha, Abajo?, o cómo son?
Un saludo a todos
Pedro