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.