Como usar TChart?

Discussion:

Como usar TChart?

Marcelo

2014-01-08 13:00:09 UTC

Pessoal, bom dia.
Preciso criar uns gráficos e estou com algumas dificuldades.
Consegui criar um gráfico de pizza, mas ao incluir legenda não estou
conseguindo.
Alguém tem algum tutorial?
Procurei aqui na lista mas não achei.
Obrigado.
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscrição neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lazarus-br+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/***@public.gmane.org
For more options, visit https://groups.google.com/groups/opt_out.

Gilson Nunes Rodrigues

2014-01-08 19:55:18 UTC

Permalink

tem como vc anexar o exemplo de como vc tentou?

Post by Marcelo
Pessoal, bom dia.
Preciso criar uns gráficos e estou com algumas dificuldades.
Consegui criar um gráfico de pizza, mas ao incluir legenda não estou
conseguindo.
Alguém tem algum tutorial?
Procurei aqui na lista mas não achei.
Obrigado.

--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscrição neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lazarus-br+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/***@public.gmane.org
For more options, visit https://groups.google.com/groups/opt_out.

Humberto meu nome

2014-01-11 16:08:33 UTC

Permalink

Negocinho chato pra descobrir.... e um pouco diferente do Tchat do delphi.

uses
TAGraph, TASeries,TACustomSeries,TAChartUtils,TALegend;

Var
Aseries : TCustomChartSeries;
BEGIN

ASeries := TpieSeries.Create(Chart1);
TpieSeries(ASeries).Legend.Visible:= True; //<----- aqui
TpieSeries(ASeries).Legend.Multiplicity:= lmPoint; //<---Aqui
TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);
TpieSeries(ASeries).Marks.Style:= smsLegend; //<--aqui
TpieSeries(ASeries).Marks.visible := false; //<--aqui

chart1.Legend.visible := true; //<--Aqui
chart1.AddSeries(Aseries);
END;
--
VocÃª recebeu esta mensagem porque estÃ¡ inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscriÃ§Ã£o neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opÃ§Ãµes, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lazarus-br+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/***@public.gmane.org
For more options, visit https://groups.google.com/groups/opt_out.

Marcelo Gomes

2014-01-15 01:38:48 UTC

Permalink

Humberto, boa noite!

Funcionou!
Só tenho um problema e veja se consegue me ajudar?
Eu criei uma procedure para atualizar à medida que os dados estão sendo
populados na tabela.
Neste momento, os dados (legenda) são incluídas sem limites. Ou seja, as
legendas vão aumentando de acordo com as atualizações.
O que está ocorrendo?
A cada

TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);

O sistema está inserindo uma nova linha. O que tentei fazer antes para não
ocorrer isso, tentei limpar o objeto, mas não funcionou.

Tentei assim: TPieSeries(ASeries).Clear;

Mas não rolou.....

Será que consegue me ajudar novamente?

Valeu e abraços.

Marcelo

Post by Humberto meu nome
Negocinho chato pra descobrir.... e um pouco diferente do Tchat do delphi.
uses
TAGraph, TASeries,TACustomSeries,TAChartUtils,TALegend;
Var
Aseries : TCustomChartSeries;
BEGIN
ASeries := TpieSeries.Create(Chart1);
TpieSeries(ASeries).Legend.Visible:= True; //<----- aqui
TpieSeries(ASeries).Legend.Multiplicity:= lmPoint; //<---Aqui
TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);
TpieSeries(ASeries).Marks.Style:= smsLegend; //<--aqui
TpieSeries(ASeries).Marks.visible := false; //<--aqui
chart1.Legend.visible := true; //<--Aqui
chart1.AddSeries(Aseries);
END;
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups
"Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an
For more options, visit https://groups.google.com/groups/opt_out.

--
*Abraços*
*Marcelo*
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscrição neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lazarus-br+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/***@public.gmane.org
For more options, visit https://groups.google.com/groups/opt_out.

Marcelo Gomes

2014-01-15 01:44:48 UTC

Permalink

Humberto,
Mais um detalhe. Como faço para colocar os valores no corpo do Gráfico?
Tipo: Na cor colocar o percentual respectivo?
Marcelo

Post by Marcelo Gomes
Humberto, boa noite!
Funcionou!
Só tenho um problema e veja se consegue me ajudar?
Eu criei uma procedure para atualizar à medida que os dados estão sendo
populados na tabela.
Neste momento, os dados (legenda) são incluídas sem limites. Ou seja, as
legendas vão aumentando de acordo com as atualizações.
O que está ocorrendo?
A cada
TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);
O sistema está inserindo uma nova linha. O que tentei fazer antes para não
ocorrer isso, tentei limpar o objeto, mas não funcionou.
Tentei assim: TPieSeries(ASeries).Clear;
Mas não rolou.....
Será que consegue me ajudar novamente?
Valeu e abraços.
Marcelo

--
*Abraços*
*Marcelo*

Marcelo Gomes

2014-01-15 02:56:12 UTC

Permalink

Humberto, bom dia.
Consegui achar o método: Chart1.ClearSeries.
Meu único problema agora é exibir valores sobre o gráfico.
Se souber, será de grande ajuda.
Valeu!
Abraços
Marcelo

Post by Marcelo Gomes
Humberto,
Mais um detalhe. Como faço para colocar os valores no corpo do Gráfico?
Tipo: Na cor colocar o percentual respectivo?
Marcelo
Humberto, boa noite!

Post by Marcelo Gomes
Funcionou!
Só tenho um problema e veja se consegue me ajudar?
Eu criei uma procedure para atualizar à medida que os dados estão sendo
populados na tabela.
Neste momento, os dados (legenda) são incluídas sem limites. Ou seja, as
legendas vão aumentando de acordo com as atualizações.
O que está ocorrendo?
A cada
TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);
O sistema está inserindo uma nova linha. O que tentei fazer antes para
não ocorrer isso, tentei limpar o objeto, mas não funcionou.
Tentei assim: TPieSeries(ASeries).Clear;
Mas não rolou.....
Será que consegue me ajudar novamente?
Valeu e abraços.
Marcelo

Post by Humberto meu nome
Negocinho chato pra descobrir.... e um pouco diferente do Tchat do delphi.
uses
TAGraph, TASeries,TACustomSeries,TAChartUtils,TALegend;
Var
Aseries : TCustomChartSeries;
BEGIN
ASeries := TpieSeries.Create(Chart1);
TpieSeries(ASeries).Legend.Visible:= True; //<----- aqui
TpieSeries(ASeries).Legend.Multiplicity:= lmPoint; //<---Aqui
TpieSeries(ASeries).Add(100,'Humberto',Clred);
TpieSeries(ASeries).Add(90,'maria',clyellow);
TpieSeries(ASeries).Marks.Style:= smsLegend; //<--aqui
TpieSeries(ASeries).Marks.visible := false; //<--aqui
chart1.Legend.visible := true; //<--Aqui
chart1.AddSeries(Aseries);
END;
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google
Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send
For more options, visit https://groups.google.com/groups/opt_out.

--
*Abraços*
*Marcelo*

Humberto meu nome

2014-01-15 12:50:22 UTC

Permalink

marcelo ... bom dia!

desculpe a demora... a ultima vez que entrei foi domingo ....

se eu entendi bem vc quer mostrar os maks sobre os valores

TpieSeries(ASeries).Marks.visible := true; //<--coloque true aqui

esse exemplo que te enviei e de apenas uma serie... comparacao de
informaÃ§Ãµes singular serve direitinho pois e um grafico de pie( apesar que
esse tipo nao aceita duas series)

Agora se vc for comparar informacoes tipo dois clientes ou mais durante 12
meses por exemplo, vocÃª teria que criar uma serie para cada cliente, e
mudar o caption da serie que assim
a legenda de cada cliente sairia perfeito, diferente do exemplo que te
enviei.

qualquer coisa pode me adicionar no skype(msn) humbertoliveira-***@public.gmane.org
que estarei pronto em te ajudar!

t+
--
VocÃª recebeu esta mensagem porque estÃ¡ inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscriÃ§Ã£o neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opÃ§Ãµes, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups "Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lazarus-br+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/***@public.gmane.org
For more options, visit https://groups.google.com/groups/opt_out.

Marcelo Gomes

2014-01-15 13:22:35 UTC

Permalink

Humberto, bom dia.

Vou fazer uns testes incluindo mais de uma série.

Como paliativo, eu acrescentei as informações na legenda. Também ficou bom.

Vou testar e retorno com o resultado.

Espero chegar neste nível para poder ajudar o pessoal também

Valeu pela pronta ajuda.

Abraços
Marcelo

Post by Humberto meu nome
marcelo ... bom dia!
desculpe a demora... a ultima vez que entrei foi domingo ....
se eu entendi bem vc quer mostrar os maks sobre os valores
TpieSeries(ASeries).Marks.visible := true; //<--coloque true aqui
esse exemplo que te enviei e de apenas uma serie... comparacao de
informações singular serve direitinho pois e um grafico de pie( apesar que
esse tipo nao aceita duas series)
Agora se vc for comparar informacoes tipo dois clientes ou mais durante 12
meses por exemplo, você teria que criar uma serie para cada cliente, e
mudar o caption da serie que assim
a legenda de cada cliente sairia perfeito, diferente do exemplo que te
enviei.
t+

Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR
---
You received this message because you are subscribed to the Google Groups
"Lazarus-BR" group.
To unsubscribe from this group and stop receiving emails from it, send an
For more options, visit https://groups.google.com/groups/opt_out.