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.