FiveTech Software tech support forums

... para imprimir uno o más gráficos
sin crear un diálogo/ventana, así como para generar y guardar gráficos como imágenes.

#xcommand DEFINE GRAPH <oGraph> [ SIZE <nWidth>, <nHeight> ] ;
[ TITLE <cTitle> ] ;
[ <pixel: PIXEL > ] ;
[ <l3d: 3D> ] ;
[ <lxGrid: XGRID> ] ;
[ <lyGrid: YGRID ...

... intended
to print one or more graphs without creating a dialog/window as well as to
generate and save graphs as images.

#xcommand DEFINE GRAPH <oGraph> [ SIZE <nWidth>, <nHeight> ] ;
[ TITLE <cTitle> ] ;
[ <pixel: PIXEL > ] ;
[ <l3d: 3D> ] ;
[ <lxGrid: XGRID> ] ;
[ <lyGrid: YGRID ...

Prueba con:

oGraph:Save2Bmp( cFileName )

... retomando la clase Tgraph para hacer pruebas con algunos gráficos, tengo dos dudas que ojalá me puedan ayudar:
1.-¿ Como puedo hacer que en la gráfica de puntos, los puntos se unan con una línea ?
oGraph:nType := 3

2.-¿ Como grabo el gráfico para poder insertarlo en un PDF ?

Gracias de antemano.

nageswaragunupudi wrote:1) Make this modification in the Paint() method of TGraph:
Add these lines at the end of this method

Code: Select all | Expand

      if ::bPainted != nil
         Eval( ::bPainted, ::hDC, ::cPS, Self )
      endif
 

2) Use oGraph:bPainted to write whatever data you want to.

Thank you, I will try it.

... in the Paint() method of TGraph:
Add these lines at the end of this method
&nbsp; &nbsp; &nbsp; if ::bPainted != nil&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&#40; ::bPainted, ::hDC, ::cPS, Self &#41;&nbsp; &nbsp; &nbsp; endif&nbsp;

2) Use oGraph:bPainted to write whatever data you want to.

Hola Regards

Muchas gracias por tu ayuda.

Extrañamente mi codigo se cae en ejecucion al usar oGraph:lViewVal := .t.., en cambio en compilado y ejecutado el codigo que tiene como ejemplo en el Link y funciona perfecto, me quedo con la duda del porque el mio no funciona.

Muchas gracias y muchos ...

You should not get runtime error due to using oGraph:lViewVal := .t..
http://forums.fivetechsupport.com/viewt ... 16#p226716

Hola Cesar

Muy gracias por tu ayuda.

He probado tu sugerencia y me arroja un error.

oGraph:lViewVal := .T.

Muchos Saludos.

Antonio.

Detalle del Error.
Application===========&nbsp; &nbsp;Path and name: C:\Desa\FichasWin\MenuFicha.exe &#40;32 bits&#41;&nbsp; &nbsp;Size: 4,665,856 bytes&nbsp ...

Saludos, con la ayuda del colega Armando Laguna

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37611#p224906

HEADER oGraph:Print(oPrn,aPos[1],aPos[2],aSiz[1],aSiz[2]),

pude usar oReport para imprimir una grafica y sus data, la idea fue en el Header hacer la impresion de la grafica, si es ...

... ya creo vi lo que me hacia falta, lo que no tenia idea era como agregar la grafica en el reporte, pero creo que esto es lo que necesitaba

HEADER oGraph:Print(oPrn,aPos[1],aPos[2],aSiz[1],aSiz[2])

la parte de los datos para generar la grafica no tengo problemas ya que creo un xbrowse con un array ...

Navarro, acabo resolver lo de que aparezcan los valores sobre las barras, habia que hacer oGraph:lViewVal := .t. y luego tambien en la carga de la Serie AAdd( oGraph:aSeries, { oBrw:aArrayData[nFor, 1], aColor[nFor], 1, , .t. } ) <--- ultimo valor, ahora lo que hare es cambiar tamaño de la fuente a ...

... Excel creo recordar. )
y que te aparece en la linea 1289 que te da el error?

Definicion con recurso, no se si eso tendra que ver

REDEFINE GRAPH oGraph ID 111 TYPE 1 OF oDlg XGRID XVALUES YVALUES POPUP LEGENDS // 21/06/2019

// TGraph 2.0, FiveWin Graphics without vbx!// Thanks to all FiveWin ...

Navarro, el valor exacto para esta grafica es oGraph:nXRanges := 5.4, alli esta la muestra, me doy cuenta que para que haya este resultado o una aproximacion al valor requerido(500) en los rangos de Y se divive el valor maximo de la data mas alta entre el valor deseado(500) y Ej. 2660/500 = 5.32 ...

... de Y, haciendo nMin++ hasta nMax, yo necesito que inicie nMin en 500 y vata de 500 en 500 hasta nMax, ya lo cambie en mi sistema haciendo esto oGraph:nMinVal := 500 y no lo respeta, consegui en TGraph una funcion DetMinVal(nNum) que parece es la que hace dicho calculo (Nueva funcion, para cuando ...