Problemita con TGraph ya somos dos con problemitas :P Help!!

[AIDA]

Hola

Tengo un problemita con TGraph baje la actualización que publico amablemente el señor Alfredo Arteaga
http://fivetechsoft.com/forums/viewtopic.php?t=10374

Donde explica que ya se puede usar fondos de colores degradados, pues se compila y enlaza muy bien pero cuando se ejecuta mi programita si sale el fondo degradado pero después de eso sale un error que les pongo aquí abajo y con un pedazo de mi programa donde uso el Tgraph que son una poquitas líneas espero me den una ayudadita

---------------------- Mi codigo --------------------
A9 :=10
A14 :=20
A16 :=30
A20 :=40
AMBU21 :=0
A24 :=60
A25 :=70
A26 :=80

dbselectarea("BITACORA")

COUNT TO AMBU21 FOR BITACORA->UNIDAD ="A-21"




@00,24.61 GRAPH oGraph OF oWnd ;
SIZE 1085, 335 TYPE 1;
YVALUES 3D XGRID YGRID LEGENDS



oGraph:aSeries = { { "A-09", CLR_CYAN },;
{ "A-14", CLR_YELLOW },;
{ "A-16", CLR_HRED },; { "A-20", CLR_BLUE },;
{ "A-21", CLR_HCYAN },;
{ "A-24", CLR_GREEN },;
{ "A-25", CLR_RED },;
{ "A-26", CLR_HBLUE } }



oGraph:aData = { {A9},{A14},{A16},{A20},{AMBU21},{A24},{A25},{A26} }






oGraph:l3D := .T.
oGraph:lPopUp := .T.
oGraph:lLegends:= .T.
oGraph:lSelView:= .T.
oGraph:cPicture:="9999999999"
oGraph:nBarSep:=05
oGraph:cTitle:= "SERVICIOS POR UNIDAD"
oGraph:lcTitle:= .T.
oGraph:lViewVal:= .T.
oGraph:cBitmap := "brush.bmp"
oGraph:nClrX = CLR_GREEN
oGraph:nClrY = CLR_RED



-----------------------El error-----------------------

Application
===========
Path and name: C:\FWH\BITACORA\BITACORA.Exe (32 bits)
Size: 540,672 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 04/15/08, 01:02:55
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 3

Stack Calls
===========
Called from: TGRAPH.PRG => TGRAPH:PAINT(764)
Called from: TGRAPH.PRG => (b)TGRAPH:TGRAPH(109)
Called from: => TGRAPH:DISPLAY(0)
Called from: CONTROL.PRG => TGRAPH:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => UPDATEWINDOW(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: TEST2003.PRG => MAIN(347)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 2.80GHz 2883 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2


MUCHAS GRACIAS POR ADELANTADO

SOY MUY LATOSA ??

SALUDITOS

[cuatecatl82]

Hola y Saludos al foro:

A mi tambien me pasa algo similar, además de que los valores en las columnas de los graficos los muestra muy distanciados.



Anteriormente no pasaba esto, ya que trabajo con una serie para representar un valor en los 31 dias que trae el mes a la vez que vizualizo el valor de cada una..



Ojala y se puedan solucionar estos penqueños detallitos.

Gracias anticipadas..

[cuatecatl82]

Para mi estimado: Alfredo Arteaga

Respetuosamente.. Porfa si nos pudieras decir como corregir este pequeño detalle de los datos de las series muy distanciandas , para poder implementar la ultima version de tu clase TGraph a mi sistema..

Te lo voy agradecer muchisimo..

Saludos desde Chiapas

[Alfredo Arteaga]

Hoy amanecí indispuesto, una infección estomacal.

Para AIDA:

Ahora cada serie tiene los siguientes parámetros ( aVals, cLegend, nColor, nType, l3D ), nType y l3D ofrecen la posibilidad de combinar diferentes tipos de graficos en una pantalla.

Para Víctor:

Lo revisaré después, tal vez mañana.

[cuatecatl82]

Ok mil gracias de nuevo. esperare, y que pronto te recuperes .

Saludos..

[AIDA]

Huyyy taz malito mejor no te molesto espero te mejores pronto

checare con los datos que me diste

Muchas gracias y que te mejores

Saluditos

Aida

[Alfredo Arteaga]

Listo el ajuste: http://www.despachoarteaga.com.mx/TG-Test.zip

[AIDA]

Hola Alfredo como sigues espero que ya mejor de la panzita y que sigas mejorando.

ya sanaste?

Te queria comentar que ya le entendi ya me sale todo bien solo quisiera saber si se puede aun poner a cada barrita un color diferente y si se puede como le hago aaaah y como dejo fijos los letreritos de cada barrita en la linea inferior.

aqui abajito te pongo como lo estoy haciendo

//----------------------------------------------------------------------------------

A09 :=0
A14 :=0
A16 :=0
A20 :=0
A21 :=0
A24 :=0
A25 :=0
A26 :=0
A27 :=0
A28 :=0
A30 :=0
P01 :=0
P05 :=0



dbselectarea("BITACORA")





COUNT TO A09 FOR BITACORA->UNIDAD ="A-09"
COUNT TO A14 FOR BITACORA->UNIDAD ="A-14"
COUNT TO A16 FOR BITACORA->UNIDAD ="A-16"
COUNT TO A20 FOR BITACORA->UNIDAD ="A-20"
COUNT TO A21 FOR BITACORA->UNIDAD ="A-21"
COUNT TO A24 FOR BITACORA->UNIDAD ="A-24"
COUNT TO A25 FOR BITACORA->UNIDAD ="A-25"
COUNT TO A26 FOR BITACORA->UNIDAD ="A-26"
COUNT TO A27 FOR BITACORA->UNIDAD ="A-27"
COUNT TO A28 FOR BITACORA->UNIDAD ="A-28"
COUNT TO A30 FOR BITACORA->UNIDAD ="A-30"
COUNT TO P01 FOR BITACORA->UNIDAD ="P-01"
COUNT TO P05 FOR BITACORA->UNIDAD ="P-05"

@00,24.61 GRAPH oGraph OF oWnd ;
SIZE 1085, 335

APERS :={"A-09","A-14","A-16","A-20","A-21","A-24","A-25","A-26","A-27","A-28","A-30","P-01","P-05"}



oGraph:lViewVal:= .T.
oGraph:lcTitle:= .T.
oGraph:lyGrid := .T.
oGraph:lxGrid := .T.
oGraph:cPicture:="9999999999"
oGraph:cTitle:= "SERVICIOS POR UNIDAD"
oGraph:l3D := .T.
oGraph:lPopUp := .T.
oGraph:lLegends:= .T.
oGraph:nClrX := CLR_GREEN
oGraph:nClrY := CLR_WHITE
oGraph:nClrV := CLR_WHITE
oGraph:nMaxVal := 50
oGraph:cBitmap := "Brush.Bmp"
oGraph:AddSerie({A09,A14,A16,A20,A21,A24,A25,A26,A27,A28,A30,P01,P05},"1",CLR_BLUE,1,.T.)
oGraph:AddSerie({A09,A14,A16,A20,A21,A24,A25,A26,A27,A28,A30,P01,P05},"2",CLR_HRED,3,.F.)
oGraph:SetYVals(aPers)



Que te sigas mejorando

Saludos

Aida