FWH Class for graphics

Post Reply
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

FWH Class for graphics

Post 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
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: FWH Class for graphics

Post 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
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Thanks!!!!

Post by jose_murugosa »

Thank you very much,

Im trying it, Your example works perfectly.

Thanks for your quick response.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
Post Reply