Line Charts

uses
  TeEngine, Series, TeeProcs, Chart;

procedure CreateBasicLineChart(Series1, Series2: TLineSeries);
var
  t: Integer;
begin
  Series1.Clear;
  for t := 1 to 20 do
    Series1.Add(Random(100), '', clTeeColor);
  Series1.SetNull(3);   // Null point example
  
  Series2.Clear;
  for t := 1 to 20 do
    Series2.Add(Random(100), '', clTeeColor);
  Series2.SetNull(10);  // Null point example
end;

procedure EnablePointMarkers(Series: TLineSeries);
begin
  // Enable point markers
  Series.Pointer.Visible := True;
  
  // Customize pointer appearance
  Series.Pointer.Style := psCircle;
  Series.Pointer.HorizSize := 4;
  Series.Pointer.VertSize := 4;
  Series.Pointer.Pen.Visible := True;
  Series.Pointer.Brush.Color := clWhite;
end;

procedure EnableStairsMode(Series1, Series2: TLineSeries);
begin
  // Display as stepped lines
  Series1.Stairs := True;
  Series2.Stairs := True;
end;

procedure EnableSmoothing(Series: TLineSeries);
begin
  {$IFNDEF TEELITEEMB}
  // Apply Bezier curve smoothing
  Series.Smoothed := True;
  {$ENDIF}
end;

procedure StackLines(Series1, Series2: TLineSeries);
begin
  // Enable stacking
  Series1.Stacked := cssStack;
  Series2.Stacked := cssStack;
  
  // Or disable stacking
  // Series1.Stacked := cssNone;
end;

procedure AddOutlineEffect(Series: TLineSeries);
begin
  Series.OutLine.Visible := True;
  Series.OutLine.Color := clBlack;
  Series.OutLine.Width := 3;
  
  // Main line width
  Series.LinePen.Width := 2;
end;

uses
  TeEngine, Series;

var
  FastLine: TFastLineSeries;
  
procedure SetupRealtimeLine;
begin
  FastLine := TFastLineSeries.Create(Chart1);
  Chart1.AddSeries(FastLine);
  
  // Optimize for real-time performance
  FastLine.DrawAllPoints := True;
  Chart1.AutoRepaint := False;  // Manual repaint for better performance
end;

procedure AddRealtimePoint(YValue: Double);
begin
  FastLine.Add(YValue);
  
  // Limit points to last 1000
  if FastLine.Count > 1000 then
    FastLine.Delete(0);
  
  Chart1.Invalidate;  // Manual repaint
end;

procedure ApplyLineGradient(Series: TLineSeries);
begin
  Series.LinePen.Width := 10;
  
  with Series.LinePen.Gradient do
  begin
    Visible := True;
    StartColor := clYellow;
    EndColor := clRed;
    Direction := gdTopBottom;
  end;
end;

// Line width and color
Series.LinePen.Width := 2;
Series.LinePen.Color := clBlue;

// Line style
Series.LinePen.Style := psDot;  // psSolid, psDash, psDot, psDashDot, etc.

// Transparency
Series.Transparency := 50;  // 0-100

with Series.Pointer do
begin
  Visible := True;
  Style := psCircle;  // psRectangle, psTriangle, psCross, etc.
  HorizSize := 5;
  VertSize := 5;
  Brush.Color := clRed;
  Pen.Color := clBlack;
  Pen.Width := 1;
end;

// Set null values
Series.SetNull(5);  // Set point at index 5 as null

// Configure how to treat nulls
Series.TreatNulls := tnDontPaint;  // Don't draw line through nulls
// Other options: tnSkip (skip nulls), tnIgnore (treat as zero)

procedure ColorEachSegment(Series: TLineSeries);
begin
  Series.ColorEachLine := True;
  
  // Set color for each point (affects line segment to that point)
  Series.Add(10, 'A', clRed);
  Series.Add(20, 'B', clBlue);
  Series.Add(15, 'C', clGreen);
end;

procedure ApplyLinePattern(Series: TLineSeries);
begin
  // Use custom dash pattern
  Series.LinePen.Style := psDash;
  
  // Or use brush pattern (requires wider line)
  Series.LinePen.Width := 10;
  Series.LinePen.Brush.Style := bsHorizontal;  // bsCross, bsDiagCross, etc.
end;

// Enable 3D view
Chart1.View3D := True;
Chart1.Chart3DPercent := 20;

// 3D line depth
Series.Depth := 10;

procedure TForm1.Chart1ClickSeries(Sender: TCustomChart; 
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Handle click on line point
  Series.Pointer.Visible := True;
  ShowMessage('Clicked point: ' + IntToStr(ValueIndex));
end;

procedure InterpolateMissingValues(Series: TLineSeries);
begin
  // TeeChart automatically interpolates between points
  // For custom interpolation:
  Series.Smoothed := True;  // Bezier interpolation
end;

uses
  TeEngine, Series;

var
  HorizLine: THorizLineSeries;
begin
  HorizLine := THorizLineSeries.Create(Chart1);
  Chart1.AddSeries(HorizLine);
  HorizLine.FillSampleValues();
end;

var
  FastLine: TFastLineSeries;
begin
  FastLine := TFastLineSeries.Create(Chart1);
  
  // Performance settings
  FastLine.DrawAllPoints := False;  // Skip points when zoomed out
  Chart1.AutoRepaint := False;
  Chart1.Axes.FastCalc := True;
end;

procedure OptimizeForRealtime;
begin
  Chart1.AutoRepaint := False;
  Chart1.BufferedDisplay := True;
  
  // Disable automatic axis scaling
  Chart1.LeftAxis.Automatic := False;
  Chart1.LeftAxis.SetMinMax(0, 100);
end;