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