TChart: 2D anstatt 3D

[Helmi]

diese Procedure ist eigentlich schon alles:

Delphi-Quellcode:

procedure TMainForm.Filter_setzen(const aktiv: Boolean; const Datum: TDate);
var
  FGraph: TLineSeries;

begin
  //Filter setzen
  ClientDataSet.Filter := 'Datum = ' + QuotedStr(DateToStr(Datum));
  ClientDataSet.Filtered := aktiv;

  DBChart_Filter.ClearChart;

  If aktiv then
    begin
      FGraph := TLineSeries.Create(DBChart_Filter);

      FGraph.ParentChart := DBChart_Filter;

      FGraph.XLabelsSource := 'Uhrzeit';
      FGraph.YValues.ValueSource := 'TempSensor_1';
      FGraph.ShowInLegend := false;
      FGraph.Color := clRed;

      FGraph.DataSource := ClientDataSet;
      DBChart_Filter.LeftAxis.Automatic := true;
    end;
end;

In der Datenbank gibt es eine Spalte "Datum" und eine "TempSensor_1".