Tempo aproximado para leitura: 00:03:00 min
Dúvida
É possível trocar a cor dos componentes do gráfico criado pelas classes de geração de gráfico?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17
Solução
Utilize a propriedade oFwChartColor (presente nos objetos instanciados pelas classes de geração de gráfico) em conjunto com o método SetColor().
Observação
Não é possível fazer a atribuição de cores por cada elemento exibido e só há as opções BLUE (tons de azul) ou RANDOM (cores aleatórias).
EXEMPLO
// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch"
#Include "PRCONST.ch"
// FUNÇÃO DE GERAÇÃO DE GRÁFICO
User Function T131CHART()
Local oDlg := NIL // CAIXA DE DIÁLOGO QUE SERÁ EXIBIDO O GRÁFICO
Local oChart := NIL // OBJETO DO GRÁFICO
// DECLARAÇÃO DE DOS ATRIBUTOS DA CAIXA DE DIÁLOGO
DEFINE MSDIALOG oDlg PIXEL FROM 10,0 TO 400,400
oChart := FwChartPie():New() // INSTANCIAÇÃO DO OBJETO
// INICIALIZAÇÃO E VINCULAÇÃO COM A CAIXA DE DIÁLOGO
oChart:Init(oDlg, .T.)
// ADIÇÃO DOS DADOS QUE SERÃO EXIBIDOS
oChart:AddSerie("Jair Bolsonaro - PSL", 46.03)
oChart:AddSerie("Fernando Haddad PT", 29.28)
oChart:AddSerie("Ciro Gomes - PDT", 12.47)
oChart:AddSerie("Geraldo Alckmin - PSDB", 04.76)
oChart:AddSerie("João Amoêdo - NOVO", 02.50)
oChart:AddSerie("Cabo Daciolo - PATRIOTA", 01.26)
oChart:AddSerie("Outros - SPD", 03.70)
// INFORMA A LOCALIZAÇÃO DA LEGENDA
// EM RELAÇÃO A CAIXA DE DIÁLOGO
oChart:SetLegend(CONTROL_ALIGN_LEFT)
// ALTERA A COR PADRÃO DO GRÁFICO
oChart:oFwChartColor:SetColor("RANDOM")
// MONTA O GRÁFICO
oChart:Build()
ACTIVATE MSDIALOG oDlg // EXIBE A CAIXA DE DIÁLOGO
Return (NIL)
Saiba mais
Classe FwChartPie
0 Comentários