TBarSeries Farbe dynamisch verändern

[borstenei]

Hiermit färbe ich zur Laufzeit 9 Balken mit meinen Wunschfarben

Delphi-Quellcode:

procedure TForm1.TortenFarbe(ds: TDBChart);  //Tortenfarbe ändern
Var
  i : Integer;                  //geordnet nach MGA01,MGA02,MGK02 ...usw
Const
  f : array [0..8] of TColor = ($006A6AFF,$0054FF64,$000CBEFF,$0078FFFF,$00D8D8D8,
                                $00FFFFBF,$009AD3FF,$00FFB4FF,$00FF8C8C);
begin
  for i := 0 to ds.Series[0].Count -1 do
  begin
    ds.Series[0].ValueColor[i] := F[i];
  end;
end;

Das ganze kannst Du auch noch mit eigenen Bedingungen verknüpfen.