Gráficos no Delphi
Olá a todos. Bem, eis minha dúvida...
Tenho uma tela com gráficos no Delphi, até ei tudo bem, porém eu queria saber se tem uma maneira de colocar legenda automática nesses gráficos, por exemplo, o usuário escolhe a primeira opção e a legenda fica "Produtos" e "Departamentos", na segunda, "Cidades" e "Fornecedores", e assim por diante.
Será que tem como fazer isso?
Desde já muito grata pela ajuda
Tenho uma tela com gráficos no Delphi, até ei tudo bem, porém eu queria saber se tem uma maneira de colocar legenda automática nesses gráficos, por exemplo, o usuário escolhe a primeira opção e a legenda fica "Produtos" e "Departamentos", na segunda, "Cidades" e "Fornecedores", e assim por diante.
Será que tem como fazer isso?
Desde já muito grata pela ajuda
Cintia Fernandes
Curtidas 0
Respostas
Carlos Mazzi
14/08/2010
Vc pode usar uma variavel global(public) que pode usar como parametro ao carregar o grafico.
, porém depende do que vc esta usando... Fortes.. QReport, Rave, etc...
GOSTEI 0
Cintia Fernandes
14/08/2010
Olá novamente. Bem eu tenho uma DBChart que uso para carregar o gráfico, uma group box com as opções que o gráfico tem, um botão onde, dependendo da opção escolhida, manda uma sql para o banco de dados. Segue abaixo uma imagem da minha aplicação.
Agradeço pela Ajuda.
Agradeço pela Ajuda.
GOSTEI 0
Eriley Barbosa
14/08/2010
procedure TfrmGraficos.bbtnGraficoClick(Sender: TObject);
begin
Case rgOpcoes.ItemIndex of
0 : s.Title.Text.Strings[0] := rgOpcoes.Items[0];
1 : s.Title.Text.Strings[0] := rgOpcoes.Items[1];
end;
end; Atenciosamente Eriley
begin
Case rgOpcoes.ItemIndex of
0 : s.Title.Text.Strings[0] := rgOpcoes.Items[0];
1 : s.Title.Text.Strings[0] := rgOpcoes.Items[1];
end;
end; Atenciosamente Eriley
GOSTEI 0
Eriley Barbosa
14/08/2010
Opa faltou as outras opções:
procedure TfrmGraficos.bbtnGraficoClick(Sender: TObject);
begin
Case rgOpcoes.ItemIndex of
0 : s.Title.Text.Strings[0] := rgOpcoes.Items[0];
1 : s.Title.Text.Strings[0] := rgOpcoes.Items[1]; 2 : s.Title.Text.Strings[0] := rgOpcoes.Items[2];
3 : s.Title.Text.Strings[0] := rgOpcoes.Items[3];
end;
end; Atenciosamente Eriley
begin
Case rgOpcoes.ItemIndex of
0 : s.Title.Text.Strings[0] := rgOpcoes.Items[0];
1 : s.Title.Text.Strings[0] := rgOpcoes.Items[1]; 2 : s.Title.Text.Strings[0] := rgOpcoes.Items[2];
3 : s.Title.Text.Strings[0] := rgOpcoes.Items[3];
end;
end; Atenciosamente Eriley
GOSTEI 0