Page 1 of 1

FWH Class for graphics

Posted: Wed Nov 22, 2006 5:18 pm
by 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

Re: FWH Class for graphics

Posted: Wed Nov 22, 2006 5:35 pm
by Enrico Maria Giordano
This is a sample:

Code: Select all

#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

Thanks!!!!

Posted: Wed Nov 22, 2006 9:09 pm
by jose_murugosa
Thank you very much,

Im trying it, Your example works perfectly.

Thanks for your quick response.