Mudando a cor de um Gráfico (DWGraph) dinamicamente

Overview
Olá desenvolvedores PowerBuilder! Hoje, vamos mergulhar num pequeno tutorial para adicionar um toque de personalização aos seus gráficos. Se você já se deparou com aquele gráfico de uma única barra ostentando um vermelho não tão atraente, este post é para você. Com um procedimento simples, vamos aprender como mudar essa cor padrão para um verde vibrante usando o método SetSeriesStyle. Ideal para aqueles que desejam aprimorar visualmente suas apresentações de dados, sem complicação. Acompanhe!
Por padrão o PowerBuilder quando cria um gráfico de barras, caso o gráfico tenha somente uma barra, coloca a cor default como vermelha, mas é possível mudar esta cor usando o método SetSeriesStyle da DWGraph.
O código abaixo faz essa mudança para verde.
1integer Retorno
2long QtdeSeries, Cor, i
3string NomeGrafico, NomeSerie
4
5NomeGrafico = 'gr_1'
6QtdeSeries = dw_Graph.SeriesCount(NomeGrafico)
7Cor = RGB(0,255,0) // Seta cor Verde
8
9FOR i = 1 TO QtdeSeries
10 NomeSerie = dw_Graph.SeriesName(NomeGrafico, i)
11 Retorno = dw_Graph.SetSeriesStyle(NomeGrafico, NomeSerie, Foreground!, Cor)
12 Retorno = dw_Graph.SetSeriesStyle(NomeGrafico, NomeSerie, Shade!, Cor)
13NEXT
14
15Return
Essa rotina é um exemplo de troca de cores para gráficos que tenham somente 1 barra, para várias barras são necessários alguns ajustes.
Deve-se ficar atento que neste exemplo não foi modificado o nome padrão do gráfico (gr_1).
Post enviado por: Armando Jr.