DBChart Farben festlegen

[Kalli]

Hallo, kurze Frage:

Ist es möglich, bei einer Tortengrafik die Farben der Einzelstücke selber festzulegen?
(Die Farben sollten bei gleichen Artikeln auch Gleich sein.)

Kalli

[Hansa]

Das geht mit Sicherheit (weiß jetzt nicht genau wie, aber habe das selber auch gemacht). Gucke mal im OI nach 'Series'. Tip am Rande : nimm besser nur ein TChart und lasse das DB-Zeugs weg.

[Kalli]

Hab's selbst gefunden.
Hier ein Stück Code, mit dem ich die Farben setze. Sie sind abhängig von der Bezeichnung, die in den Daten enthalten ist.

Delphi-Quellcode:

// Farben der Tortengrafik anpassen
procedure TDBM.TortenFarbe(ds: TDBChart);
Var
  i : Integer;
  s : String;
  Q : TSDQuery;
Const
  f : array [0..9] of TColor = (clRed,clGreen,clBlue,clYellow,$000080ff,
                                clAqua,clOlive,clFuchsia,clLime,clGray);
begin
  Q := TSDQuery.Create(NIL);
  Q.DatabaseName := 'vd_daten';
  Q.SQL.Text := 'select * from VD.Key_Lst Where GRUPPE = ''ANTR_SP'' and AUSPR = :AP';
  Q.ParamByName('AP').AsString := 'Hausrat';
  Q.Open;
  for i := 0 to ds.Series[0].Count -1 do
  begin
    s := ds.Series[0].ValueMarkText[i];
    Q.ParamByName('AP').AsString := s;
    Q.Refresh;
    ds.Series[0].ValueColor[i] := f[Q.FieldByName('Wert').AsInteger];
  end;
  Q.Close;
  Q.Free;
end;

Haut so prima hin.

Kalli