Buscar

Alterando o tipo de gráfico em tempo de execução – nível básico

Código

Deve se ter os seguintes objetos:
•       Tchar
•       ComboBox

No evento OnChange da combo incluir o seguinte código

var i :integer;
    vSeries :TChartSeries;
begin
    if ComboBox1.Text = 'LINHAS' then
    BEGIN
        for i := 0 to Chart1.SeriesCount -1 do
        begin
            vSeries := Chart1.Series[i];
            ChangeSeriesType(vSeries, TPieSeries);
        end;
    END else if ComboBox1.Text = 'BARRAS' then
             begin
                for i := 0 to Chart1.SeriesCount -1 do
                begin
                    vSeries := Chart1.Series[i];
                    ChangeSeriesType(vSeries, TBarSeries);
                end;
             end;
end;

Já da pra começa a brinca com Gráficos em Delphi
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 08/10/10
Por: Marcos Naves Calixto
Visualizada: 6969 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009