TChart und Marks aus Gallerie

[Der schöne Günther]

Ich gehe mal davon aus dass du VCL und nicht FMX meinst, oder?

Ein Tipp: Wenn du nicht weißt wo du ansetzen musst, schau doch mal in die DFM-Datei (auf der Formular-Ansicht [Alt]+[F12] drücken). Stellt man die Marks z.B. auf das Template "Hot" um erhält man in der DFM:

Delphi-Quellcode:

    object Series1: TBarSeries
      Marks.Brush.Gradient.Colors = <
        item
          Color = clRed
        end
        item
          Color = 819443
          Offset = 0.067915690866510540
        end
        item
          Color = clYellow
          Offset = 1.000000000000000000
        end>
      Marks.Brush.Gradient.Direction = gdTopBottom
      Marks.Brush.Gradient.EndColor = clYellow
      Marks.Brush.Gradient.MidColor = 819443
      Marks.Brush.Gradient.StartColor = clRed
      Marks.Brush.Gradient.Visible = True
      Marks.Font.Color = 159
      Marks.Font.Name = 'Tahoma'
      Marks.Font.Style = [fsBold, fsItalic]
      Marks.Frame.Color = 33023
      Marks.RoundSize = 14
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end

Zur Laufzeit also bspw. so:

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var
  gradientColors: TTeeGradientColors;
begin
  Series1.Marks.Font.Color := TColors.White;

  gradientColors := Series1.Marks.Gradient.Colors;
  gradientColors.BeginUpdate();
  try
    gradientColors.Clear();
    gradientColors.Add(0.0, TColors.Blue);
    gradientColors.Add(1.0, TColors.Red);
  finally
    gradientColors.EndUpdate();
  end;
end;