FiveTech Support Forums

#include "Fivewin.ch"
#include "TGraph.ch" 


FUNCTION MAIN() 

    LOCAL oDlg, oGraph 

    DEFINE DIALOG oDlg; 
           SIZE 600, 500 

    @ 1, 1 GRAPH oGraph; 
           SIZE 250, 200; 
           TYPE 1; 
           YVALUES 3D XGRID YGRID XVALUES LEGENDS 

//    oGraph:aSeries = { { "Serie 1", CLR_CYAN } } 

//                    { cLegend, nColor, nType, l3D }

    oGraph:aSeries = { { "Serie 1", CLR_CYAN , , },;
                       { "Serie 2", CLR_YELLOW, 2, .T. },;
                       { "Serie 3", CLR_HRED, 3, .F. } }

//    oGraph:aYVals = { "Jan", "Feb", "Mar", "Apr", "May" } 

//    oGraph:aData = { { 14280, 20420, 12870, 25347, 7640 } } 

    oGraph:aData = { { 14280, 20420, 12870, 25347, 7640 },; 
                     { 8350, 10315, 15870, 5347, 12340 },; 
                     { 12345, -8945, 10560, 15600, 17610 } } 

    oGraph:nClrX = CLR_GREEN 
    oGraph:nClrY = CLR_RED 

    @ 0, 0 BUTTON "Cambia" ACTION ( oGraph:nType := 4, oGraph:Refresh() ) 
//    @ 0, 0 BUTTON "Cambia" ACTION oDlg:Print() 

    ACTIVATE DIALOG oDlg; 
             CENTER 

    RETURN NIL