Разрыв в графике Series

[tavrocotaps]

Как зделать разрыв в графике? При использовании AddNull крайняя точка перед разрывом соединяется с 1-й точкой после разрыва, рисовать график в месте разрыва цветом clButtonFace не получится из-за очень мелкой сетки

[raxp]

тип серии tpoint не подойдет? ну, или отрисовывайте вручную на канве (придется хранить массив + смысл tchart теряется)
зы: разрыв как таковой в fastline и line не предусмотрен по определению, ну разве сымитировать созданием второй серии

[tavrocotaps]

к сожалению tPoint тоже не подходит, просят непрерывный график с пробелами в тех местах, где отображаемые данные признаны недостоверными

[raxp]

ну разве сымитировать созданием второй серии

столько сколько нужно будет... заведите динамический массив типа sn: array of tfastlineseries
зы: кстати, а почему tPointseries не подойдет? ведь он отображает конкретную существующую точку, внешний вид можно задавать

[tavrocotaps]

В компоненте TChart созданном по дефолту, с типом графика TSeriesLine, при вызове AddNull разрыв отображается верно. А если Chart создавать вот так:

with Chart do begin
    Legend.Alignment := laBottom;
    Parent := Panel;
    Align := alClient;
    Chart.AllowPanning := pmVertical;
    AllowZoom := true;
    BevelInner := bvNone;
    BevelOuter := bvNone;
    BevelWidth := 2;
    BorderStyle := bsNone;
    BorderWidth := 0;
    with BottomAxis do begin
      Automatic := false;
      AutomaticMaximum := false;
      AutomaticMinimum := false;
      Axis.Color := clBlack;
      Axis.Mode := pmCopy;
      Axis.Style := psSolid;
      Axis.Visible := True;
      Axis.Width := 2;
      // Здесь формат значений по оси
      ExactDateTime := True;
//      DateTimeFormat := 'dd.mm.yy hh:mm:ss';
      Increment := DateTimeStep[dtOneSecond];
      LabelsSeparation := 25;
      LabelStyle := talAuto;
      // Здесь максимум и минимум значеий на оси
      Maximum := Now;
      Minimum := Maximum - DateTimeStep[dtOneHour];
      MinorTicks.Visible := false;
      TickOnLabelsOnly := false;
      Ticks.Color := clGray;
      Ticks.Mode := pmCopy;
      Ticks.Style := psSolid;
      Ticks.Visible := True;
      Ticks.Width := 1;
      TicksInner.Visible := false;
      Visible := True;
    end;
    SetDefaultTimeFormat();
    ClipPoints := True;
    Color := clBtnFace;
    DepthAxis.Visible := false;
    Enabled := True;
    Foot.Visible := false;
    Frame.Visible := false;
    Gradient.Visible := false;
    with LeftAxis do begin
      Increment := 0.001;
      Automatic := false;
      AutomaticMaximum := false;
      AutomaticMinimum := false;
      Axis.Color := clBlack;
      Axis.Mode := pmCopy;
      Axis.Style := psSolid;
      Axis.Visible := True;
      Axis.Width := 2;
      LabelsSeparation := 25;
      LabelStyle := talAuto;
      MinorTicks.Visible := false;
      TickInnerLength := 0;
      TickLength := 4;
      TickOnLabelsOnly := True;
      Ticks.Color := clGray;
      Ticks.Mode := pmCopy;
      Ticks.Style := psSolid;
      Ticks.Visible := True;
      Ticks.Width := 1;
      TicksInner.Visible := false;
      Visible := True;
    end;
    with Title do begin
      Frame.Visible := false;
      Text.Text := FDesc;
      Visible := True;
    end;
    if not Multiple then Legend.Visible := false
    else begin
      Legend.Visible := True;
      Legend.ResizeChart := True;
      Legend.LegendStyle := lsSeries;
      Legend.ShadowColor := clGray;
      Legend.TextStyle := ltsLeftValue;
      Frame.Visible := True;
      Align := alClient;
    end;
    MarginBottom := 0;
    MarginLeft := 3;
    MarginRight := 1;
    MarginTop := 1;
    MaxPointsPerPage := 240;
    RightAxis.Visible := false;
    ScaleLastPage := false;
    TopAxis.Visible := false;
    View3D := false;
    View3DWalls := false;
    OnMouseDown := ChartMouseDown;
    OnMouseUp := ChartMouseUp;
    OnMouseMove := ChartMouseMove;
    onZoom:=ChartZoom;
    OnUndoZoom:=ChartUndoZoom;
  end;

то крайняя точка перед разрывом соединяется с первой после разрыва!
сам Series в обоих случаях создается одинаково.
в чем может быть ошибка?

[raxp]

а кто будет задавать тип серии при динамическом создании chart?

var SuN: TLineSeries;
...
SuN:= TLineSeries.Create(self);
chart.AddSeries(SuN);

[tavrocotaps]

тип серии я задаю

var
 Ser: TLineSeries;
...
  Ser := TLineSeries.Create(nil);
  with Ser  do begin
        LinePen.Visible := True;
        LinePen.Width := 2;
        HorizAxis := aBottomAxis;
        InvertedStairs := false;
        Marks.Visible := false;
        SeriesColor := clRed;
        VertAxis := aLeftAxis;
        Stairs := false;
        XValues.DateTime := True;
        Pointer.Visible := false;
        ParentChart := Chart;
      end;

[raxp]

тип серии я задаю

может вы весь код уже приложите или проект, а то каждый раз уточнять...

попробуйте не ParentChart := Chart , а chart.AddSeries(Ser)

[tavrocotaps]

Для тех, кто столкнется с подобной проблемой: метод TSeries.AddNull был задуман, как добавление разрыва при неизвестном значении по оси X. При использовании по этой оси данных типа TDateTime метод AddNull приведет к интерполяции графика, так как все значения времени между двумя добавляемыми значениями извесны. Решил проблему использованием AddNullXY.