FWH Class for graphics

[jose_murugosa]

Hi to everybody,

Sorry for my English, I need a class for FWH for graphs (bars, cake,etc)

The ones I found in samples seems to work on clipper.

Can somebody please help me?

Thanks

[Enrico Maria Giordano]

This is a sample:

Code: Select all  Expand view

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


FUNCTION MAIN()

    LOCAL oDlg, oGraph

    DEFINE DIALOG oDlg;
           SIZE 600, 600

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

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

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

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

EMG

[jose_murugosa]

Thank you very much,

Im trying it, Your example works perfectly.

Thanks for your quick response.