FiveTech Support Forums

He visto por el foro que existe una nueva version/actualizacion de la clase tgraph que se puede generar un grafico de barras y de puntos en la misma grafica, yo tengo la version 2.0 y en esta no se puede. Todos los enlaces que he visto en el foro para descargar las ultimas actualizaciones no funaionan.

alguien puede decirme donde la puedo descargar?

muchas gracias de antemano;

Hola JLL:

Yo publique algo de la clase TGraph de Alfredo Arteaga en el siguiente enlace:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19894&p=104883&hilit=tgraph#p104883

Si te sirve, el enlace de descarga aun esta activo.

No se cual sera la ultima version, pero yo use la que venia en FWH v9.07

Me gustaria trabajar mas sobre esta clase, y si obtenemos la ultima seria ideal, espero tus comentarios.

Saludos

Rolando Salazar Ureña
http://www.sauro-sys.com
email: SauroSrl@entelnet.bo
Cochabamba-Bolivia
FWH 9.07, xharbor 1.2.1

Hola Ronaldo:

Muchas gracias por tu colaboracion, estoy haciendo pruebas ahora y he logrado hacer lo que queria mas o menos, pero me he dado cuenta que los Items de X ( los que se muestran a la izquierda de la rejilla ), se superponen encima de ella, hay alguna forma de reposicinar estos valores sin modificar la clase?

Aqui dejo una imagen donde se aprecia lo que comento.




Muchas gracias;
un saludo
JLL

Javi:
He realizado varias pruebas, pero no obtengo el problemas que tienes: SObreposicion de los valores sobre la regilla.

Debe ser algun problema de la ubicacion del grafico en la ventana, por que no puebas de colocar en 0,0 y luego llamar a SetControl(oGraph)

Atentamente,

Rolando Salazar Ureña

http://www.sauro-sys.com
email: SauroSrl@entelnet.bo
Cochabamba-Bolivia
FWH 9.07, xharbor 1.2.1

Javi:
Aca hay un ejemplo mas elaborado

//Graph
#Define GRAPH_TYPE_BAR 1
#Define GRAPH_TYPE_LINE 2
#Define GRAPH_TYPE_POINT 3
#Define GRAPH_TYPE_PIE 4
#Define GRAPH_TYPE_ALL 5

#Define POINT_TYPE_1 1
#Define POINT_TYPE_2 2
#Define POINT_TYPE_3 3

Function z()
local oWndChild,oGraph

oWndChild := TMdiChild():New(,,,, "Test de TGraph",,,,, .F.,,,,, .F., .F.,,, !.F., !.F., !.F., !.F., )

oGraph:=TGraph():New(0, 0, oWndChild, oWndChild:nWidth(),oWndChild:nHeight(), "C")

oGraph:cTitle := "Un ejemplo simple"
oGraph:cSubTit := "Al añadir la serie debes indicar el TIPO y si es 3D"
oGraph:lxGrid := .F.
oGraph:lyGrid := .T.
oGraph:lxVal := .T.
oGraph:lyVal := .T.
oGraph:lTitle := .T.
oGraph:lLegends := .T.
oGraph:lPopUp := .F.
oGraph:lViewVal := .T.
oGraph:lBorders := .T.

oGraph:l3D := .T.
oGraph:nType := GRAPH_TYPE_BAR

oGraph:SetYVals( {"Ene","Feb","Mar","Abr","May","Jun","Jul","Ago","Sep","Oct","Nov","Dic"} )

oGraph:AddSerie({2,1,3,-4,2,3,-1,2,4,-1,2,4}, "GRAPH_TYPE_POINT y NO 3D", xRGB( 0, 255, 0 ),GRAPH_TYPE_POINT,.F.)
oGraph:AddSerie({2,1,3,-4,2,3,-1,2,4,-1,2,4}, "GRAPH_TYPE_BAR y 3D", xRGB(128,128,255),GRAPH_TYPE_BAR,.T.)
oGraph:AddSerie({2.5,1.5,3.5,4.5,2.5,3.5,1.5,,,,,}, "GRAPH_TYPE_LINE y NO 3D", xRGB(255, 0, 0),GRAPH_TYPE_LINE,.F.)

oWndChild:SetControl(oGraph)

return NIL

Atentamente,

Rolando Salazar Ureña
http://www.sauro-sys.com
email: SauroSrl@entelnet.bo
Cochabamba-Bolivia
FWH 9.07, xharbor 1.2.1

Hola Ronaldo:

Gracias por tu tiempo.

El problema era la variable de instancia: oChart:nTRight que lo tenia a 0, si la marco con * en mi fuente, funciona OK.

Ahora tengo otra cosa que antes iba bien y con tus variables de instancia como las tienes tu ahora no me lo hace. Si te fijas en el grafico anterior los valores de la grafica de lineas no salen, solo salen los que indico en los graficos de barras, en cambio ahora me salen y no se como se quitan, ya me he liado con tanta prueba de variables de instancia.

Aqui dejo un grafico para que veas la diferencia.

Javi:

Yo creo que en el primer grafico algo andaba mal, y ahora SI esta correcto.

Lo valores se muestran para cada punto de CADA UNA de las series, como lo hace en el segundo grafico.

Si tus dos series son con los mismos valores, lo ideal seria que se SOBREPONGAN, pero no es asi, ya que en el caso de las BAR se imprime encima de la barra, y en el caso de las LINE se imprime a su derecha.

Si los valores de tus dos series fueran distintas, otro seria el cuento .

Ahora bien , la solucion seria modificando el codigo de la clase, y al momento de llamar a AddSerie(), tb mandar una variable de configuracion que indique si se vcan a imprimir o no los valores de esta serie, y al momento de graficar Paint(), verificar esta variable para hacerlo o no.

Salu2

Rolando

Hola Ronaldo:

De nuevo muchas gracias por ayudarme, eres muy amable.

Puede ser, porque he comprobado que segun estan declaradas/orden de las variables de entorno y inicializadas a .T. o .F. tiene un comportamiento distinto, posiblemente algun pequeño bug en la clase, pero en su totalizadad esta muy bien esta clase, muy currada y facil de manipular.

Modificare la clase añadiendo una nueva variable para controlar la visualizacion de los valores cuando sea duales, aunque el preguntarte era para no tener clases modificadas, o al menos las menos posibles por mi, ya que si sale una nueva version, hay que tener controlado que modificaciones se hicieron, pero bueno, asi es esto.

Muchas gracias por todo, ronaldo

un saludo
JLL