Isando o recurso GraphPlus()
quando gero um grafico tipo barras horizontais,
ele gera o grafico com uma cor unica, mas apresenta as legendas
nas cores definidas.
se eu fizer o mesmo grafico usando pizza, o problema nao ocorre.
como esta o codigo :
aCores := { RED,YELLOW,ORANGE,FUCHSIA,GREEN,BROWN, ;
BLUE,PINK,PURPLE, BLACK, WHITE, GRAY, ;
SILVER, TEAL, NAVY, AQUA, LGREEN, OLIVE, MAROON,CELESTE,AZUL,CAFE,VERDE}
// BARRAS HORIZONTAIS DESPESAS
oObj := GraphPlus():New()
WITH OBJECT oObj
:GraphData := { aVDesp }
:Legends := aLegDes //{ "Despesas"} //, "Serie 3" }
:Categories := aLegDes
:GraphColors := acores
:Title := "Periodo :"+Dtoc(Pridia)+" a "+Dtoc(Ultdia)
:Picture := '@B@E 9,999,999'
:BarGapRatio := -0.6
:BarGapWidthRatio := 0.2
:GraphType := GT_BAR
:nVDivision := 4
ENDWITH
AAdd( aGraphObjects, oObj )
// PIZZA DESPESAS
oObj := GraphPlus():New()
WITH OBJECT oObj
:GraphData := { aVDesp }
:Legends := aLegDes //{ "Despesas"} //, "Serie 3" }
:Categories := aLegDes
:GraphColors := acores
:Title := "Periodo :"+Dtoc(Pridia)+" a "+Dtoc(Ultdia)
:Picture := '@B@E 9,999,999'
:BarGapRatio := -0.6
:BarGapWidthRatio := 0.2
:GraphType := GT_PIE
:nVDivision := 4
ENDWITH
AAdd( aGraphObjects, oObj )
anexo imagens geradas