Alfredo, neste exemplo a classe TGRAPH funciona muito bem, a não ser pelo tipo PIZZA, que me mostra JANEIRO com 4% mesmo estando zerado. É algum bug?
aMeses:={0,100,0,0,0,0,0,0,0,0,0,0}
oGraph:=TGraph():New(0,0,oWndGraf,oWndGraf:nWidth()-8,oWndGraf:nHeight()-30)
oGraph:cPicture := "@E 999,999.99"
oGraph:l3D := .T.
oGraph:lViewVal := .T.
oGraph:lBorders := .F.
oGraph:lDotted := .F.
oGraph:lLegends := .T.
oGraph:lTitle := .T.
oGraph:lPopUp := .T.
oGraph:nClrBack := CLR_CREME
oGraph:nClrGrid := CLR_BLACK
oGraph:nType := 1
oGraph:lSelBack := .F. // permite colocar una imagen de fondo (Bmp)
oGraph:cTitle := "Evolução Mensal de Vendas"
oGraph:cTitX := "Valores"
oGraph:cTitY := "Meses"
oGraph:nPoint := 5
oGraph:nBarSep := 10
oGraph:AddSerie(ameses,str(year(date()),4),RGB(200, 50, 50))
oGraph:SetYVals({"Jan","Fev","Mar","Abr","Mai","Jun","Jul","Ago","Set","Out","Nov","Dez" })
