TChart Series vs. AColor = não responde
Ola Programadores, boa tarde.
De ante mão, existem 58 topicos, sobre Tchart, mas não são relativos a minha duvida.
na função abaixo obtenho sucesso quanto a indicação da cores que provem de um array.
[color=green:1b6af56940]
ja nesta outra quando tento criar um grafico em linha
nao esta atribuindo as cores do array que criei.
[color=green:1b6af56940]
por exemplo ate a 16ª serie as cores nao se repetem (mas nao vem do array), apos isso se repetem (cor vermelha).
alguem ja passou por isso.
De ante mão, existem 58 topicos, sobre Tchart, mas não são relativos a minha duvida.
na função abaixo obtenho sucesso quanto a indicação da cores que provem de um array.
[color=green:1b6af56940]
Procedure TFrmAnualPCP.MontaSeriesP(wSerie: TPieSeries);
var r,g,b,z : integer;
Begin
r := 0;
g := 0;
b := 255;
z :=0;
TblTempQTE.First;
While ( Not TblTempQTE.EOF ) Do
Begin
wSerie.Add( TblTempQTE.FieldByName(´BQTE´).AsFloat, TblTempQTE.FieldByName(sNomeCampoGeral).AsString, RGB(r,g,b));
wSerie.ColorEachPoint := True;
wSerie.ShowInLegend := True;
wSerie.Marks.Visible := False;
wSerie.Marks.Style := smsPercent; //smsLabelValue;
wSerie.Marks.Transparent := True;
wSerie.ValueFormat := ´#.0,00´;
wSerie.RefreshSeries;
wSerie.Repaint;
TblTempQTE.Next;
inc (z);
r := acores[z,1];
g := acores[z,2];
b := acores[z,3];
End;
TblTempQTE.First;
TblTempQTE.EnableControls;
End;
[/color:1b6af56940]ja nesta outra quando tento criar um grafico em linha
nao esta atribuindo as cores do array que criei.
[color=green:1b6af56940]
Procedure TFrmAnualPCP.MontaSeriesL(wSerie: TFastLineSeries);
VAR I:INTEGER;
Begin
wSerie.Clear;
For i := 1 To 12 do
begin
wSerie.Addy( TblTempQTE.FieldbyName( IntToStr(i) ).Asfloat, ShortMonthNames[i], rgb(r,g,b));
end;
WSerie.ColorEachPoint := False;
wSerie.ShowInLegend := True;
wserie.marks.Visible := False;
wSerie.RefreshSeries;
wSerie.Repaint;
End;
[/color:1b6af56940]por exemplo ate a 16ª serie as cores nao se repetem (mas nao vem do array), apos isso se repetem (cor vermelha).
alguem ja passou por isso.
Macario
Curtidas 0