Ir para conteúdo
Fórum Script Brasil
  • 0

Chart - Trampinho Fácil Pra Vocês


McBlade

Pergunta

Estou fazendo um gráfico no Chart onde eu crio as barras verticais na mão!

var
  cSeries: TBarSeries;
  nI,nExComp,nExames: Integer;
begin
  for nI := 0 to StringGrid1.RowCount-1 do
  begin
    Query1.SQL.Clear;
    Query1.SQL.Add('Select Count(exc_qtde) from ExameComp');
    Query1.Open;
    while not Query1.Eof do
    begin
      nExComp := nExComp + Query1.FieldByName('count').asInteger;
      Query1.Next;
    end;
    Query2.SQL.Clear;
    Query2.SQL.Add('Select Count(exe_qtde) from Exame');
    Query2.Open;
    while not Query2.Eof do
    begin
        nExames := nExames + Query2.FieldByName('count').asInteger;
        Query2.Next;
    end;
    cSeries := TBarSeries.Create(Chart1);
    cSeries.Name := 'Series'+IntToStr(nI+1);
    Chart1.Series[nI].AddXY(1,nExComp);
    Chart1.Series[nI].AddXY(2,nExames);
  end;
end;

Onde nI controla a Barra que está sendo inserida bem como o número de controle do componente.

Agora eu keria saber como faço pra que cada barra tenha uma cor diferente (pode ser aleatória) mas que os tons de cores não sejam tão próximos.

Exemplo: Cores muito escuras de mesmo tom (Preto e cinza bem escuro)

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Galera vc's estão fraquinho mesmo heim!!!

Eu consegui resolver esse pepino criando uma variável tipo Grid e adicionando umas cores na mão. Depois eu do um for na variavel e quando chega ao fim eu volto para a primeira linha.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...