Tgraph consulta...

[Mayor_Valenzuela]

Aqui nuevamente...

Necesito un manual de como usar la clase Tgraph ya que no existe referencias de como usarla. Se los agradeceré.

[jll-fwh]

Hola Mayor:

Te he subido un zip de ejemplos que hizo alfredo arteaga sobre la clase TGraph.

http://www.grupes.es/basura/TGraph.rar

Espero que te sirva;

Un saludo
JLL

[Mayor_Valenzuela]

Gracias JLL, te agradesco el responder este post, voy a probar lo ejemplos y veremos

[jll-fwh]

De nada Mayor:

Si quieres alguna ayuda mas sobre TGraph, estoy en el MSN:

Un saludo
JLL

[Francisco Horta]

Mayor,

por aqui te adjunto parte del codigo y como lo uso, espero sea de tu ayuda,,

Code: Select all

     REDEFINE GRAPH oGra ID 500 OF oDlg 3D XGRID YGRID
      oGra:cTitle  := "GRAFICO DE COMPRAS ANUALES "+oVarSys:Ano
*     oGra:cSubTit := "Compras Mensuales por el Año "+oVarSys:Ano
*     oGra:cTitX   := "Importe"
*     oGra:cTitY   := "Mes"
      oGra:lYVal   := .T.
      oGra:lXVal   := .T.
      oGra:lLegends:= .F.
      oGra:lPopUp  := .F.
      oGra:cPicture:= "999,999,999"
      oGra:nType   := 1
      oGra:nClrBack:= CLR_WHITE
      oGra:nClrPane:= nRGB(194,224,221) //GetSysColor(COLOR_BTNFACE)
      oGra:AddSerie(aImp,"",RGB(0,74,230))
      oGra:SetYVals(aMesCorto)

      FOR x := 1 TO len(aImp)
         nTotal += aImp[x]
      NEXT

//  Y AQUI MAS MAS DATAS PARA CONFIGURAR
      oGra:cTitle   := "Ventas del mes de "+cCbx+", "+oVarSys:Ano
*      oGra:cSubTit := "Compras Mensuales por el Año "+oVarSys:Ano
      oGra:lYVal    := .T.
      oGra:lXVal    := .T.
      oGra:lLegends := .F.
      oGra:lViewVal := .F.
      oGra:lPopUp   := .F.
*      oGra:nBarSep  := 25
      oGra:cTitX    := "Pesos"
      oGra:cTitY    := "Promedio Diario de Ventas $"+Alltrim(Transform(nTot[5]/(oDCie)->(OrdKeyCount()),"99,999,999.99"))  // "Dias
      oGra:cPicture := "999,999,999"
      oGra:nType    := 1
      oGra:nClrBack := CLR_WHITE
      oGra:nClrPane := nRGB(249,255,249)  // nRGB(194,224,221)
      oGra:AddSerie(aTotDia,"",RGB(119,208,141))
*      oGra:AddSerie(aEfe,"Efectivo",RGB(119,208,141))
*      oGra:AddSerie(aTar,"Tarjeta",RGB(169,192,237))
*      oGra:AddSerie(aChe,"Cheque",RGB(244,162,166))
      oGra:SetYVals(aDias)
*      oGra:aFont[6]:=TFont():New("Ms Sans Serif",0,-uValue(nHeight),.F.,;
*                                  uLogic(lBold),,,,uLogic(lItalic),uLogic(lUnderline))
*      oGra:aFont[7]:=TFont():New("Ms Sans Serif",0,-uValue(nHeight),.F.,;
*                                  uLogic(lBold),,,,uLogic(lItalic),uLogic(lUnderline))

 

salu2
paco