Xailer & OZ Software

Pedro,
> Pd: Si a partir del martes no sabeis nada de mi no os asusteis, me vi a
> coje en agosto 15 dias de media jornada y 15 dias de vacas, asi que no se
> como andare de tiempo para pasar por aquí, de todas formas os deseo una
> felices vacaciones a los que tengan la suerte de disfrutarlas.
Que tengas unas buenas vacaciones
--
Un saludo,
José F. Giménez
http://www.xailer.com

>
> Que has cambiado en la version c.
Solo en METHOD PrintGrafico( oCanvas ) CLASS TPrnGraf
1) Inclui una variable local para poder mas adelante redefinir las
subdivisiones del eje Y
Local nDivisor := 10
2) Sustitui el bucle que usaba para calcular el maximo del Eje Y para que
las subdividiones quedaran en enteros por algo mas compacto
// Calculo el Maximo del Eje Y para que queden subdivisiones enteras
nMaxValor := int( (nMaxValor/nDivisor)+1 ) * nDivisor
3) Quite los decimales que aparecian en el eje Y, quedando el bucle así
// Ponemos las marcas del eje Y
:nTextAlignment := taLeft
For nFor := 1 to nDivisor
nLinea := ( nMaxAlto/(nDivisor+1) ) * nFor
:MoveTo( nMizq-10, nLinea )
:LineTo(nMaxAlto+nMIzq+50 , nLinea )
cCad := Str(( nMaxValor/nDivisor )*( (nDivisor+1)-nFor ))
cCad := Left( cCad, Len( cCad ) -3 )
:TextOut( nMizq-150 , nLinea-20, cCad, , CLR_BLACK )
Next
Suerte, cuando lo acabes publica una captura de pantalla.