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> ...

... 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> ...

Prueba con:

oGraph:Save2Bmp( cFileName )

... 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 view

      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.

...   if ::bPainted != nil         Eval( ::bPainted, ::hDC, ::cPS, Self )      endif  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. ...

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===========   Path and name: C:\Desa\FichasWin\MenuFicha.exe (32 bits)   Size: ...

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 ...

... 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 ...

... 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 ...

... 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 ...