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)
Pergunta
McBlade
Estou fazendo um gráfico no Chart onde eu crio as barras verticais na mão!
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
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.