Usando a TGraph 3

[syda]

Olá,

Sou iniciante no uso do FiveWin, estou tentando utilizar a Classe TGraph 3, já consegui montar um gráfico, modificar seu título, sub-título e grades do eixo x e y.

Ocorre que preciso mostrar o gráfico e mais algumas informações complementares que são fundamentais na tela, mas não consigo usar nem @ say e nem o AddText() da Classe, o primeiro caso (que seria o mais interessante) dá erro, o segundo chega a mostrar a informação na tela mas em um lugar que não interessa, não consigo alterar esta informação, apesar de várias tentativas.

Eis como estou fazendo:

oGWnd := GraWnd():New( 1,1, 35, 100, ;

"Auditoria de Acabados", GraServer():New( ALIAS() ) )

oGWnd:bToolBar := { || nil }

oGraph := oGWnd:oGraph

oGraph:oTitle:cText := 3->descricao

oGraph:oSubTitle:cText:= DTOC(M->DATINI) +' a '+ DTOC(M->DATFIM)

oGraph:oAxisX:cText := "Itens"

oGraph:oAxisYL:cText := "Kg"

oGraph:AutoData()

oGraph:nColView := 3

oGraph:nRowView:= oLinhas

oGraph:oAxisX:lShow:=.F.

oGraph:l3D := .F.

oGraph:oAxisYL:AliLeft()

oGraph:oAxisYL:lAutoSize := .F.

oGraph:oAxisYL:nAxisMin := M->MIN-2

oGraph:oAxisYL:nAxisMax := M->MAX+2

oGraph:GTypeLine()

oGraph:oAxisX:lGrid:=.F.

oGraph:nPenWidth:= 3

oGWnd:oGraph:AddText('Projetado: '+TRANS(M->PROJTOT,'@R 99.999,99',,oFontL) *** VER OBSERVAçÃO

oGWnd:Activate()

METHOD AddText( cText, nClrT, oFontT, nPos, lShow, nPosY, nPosX,nAngleDeg, nGapX, nGapY ) CLASS TGraph

Ao que parece as variáveis para colocar um texto livre na janela do gráfico são as identificadas acima. Bom, na variável nPos tentei do 0 ao 6 (que são os valores que aparecem no arquivo G_Graph.ch), nos valores nPosX e nPosY tentei vários valores. Sempre aparece no mesmo ponto da tela.

Se alguém souber como solucionar agradeço imensamente!!!

Abraços.

Shirley.

[syda]

Consegui resolver o problema.