In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
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.
