TBIChart

property Data: TDataItem;

property Chart: TBITChart;

property Options: TBIChartOptions;

property Mode: TBIChartMode default Automatic;

property Items: TBIChartItems;

BIChart1.Options.Items.X := MyXColumn;  // Horizontal axis
BIChart1.Options.Items.Y.Add(MyYColumn);  // Series values
BIChart1.Options.Items.Z := MyZColumn;  // 3D depth
BIChart1.Options.Items.Text := MyLabels;  // Point labels

property Direction: TBIChartDirection default Automatic;

property Dimensions: TBIChartDimensions default Automatic;

property Legend: TBIChartLegend default Automatic;

property Marks: TBIChartMarks default Automatic;

property Title: TBIChartTitle default Automatic;

property Stacked: TBIChartStacked default Automatic;

property Series2D: TChartSeriesClass;

property Series3D: TChartSeriesClass;

procedure Fill(const AData: TDataArray);
procedure Fill(const AItems: TDataItems);
procedure Fill(const ASummary: TSummary);
procedure Fill(const AHistogram: THistogram; const ASource: TDataItem);
procedure Fill(const ACursor: TDataCursor);

procedure Clear;

procedure ExchangeXY;
procedure ExchangeYZ;
procedure ExchangeXZ;

procedure SetTwoAxes;

procedure SplitAxes(const Vertical: Boolean);

var
  Data: TDataItem;
begin
  Data := TBICSV.FromFile('sales.csv');
  BIChart1.Data := Data;  // Automatically creates appropriate chart
end;

uses VCLTee.Series;

begin
  BIChart1.Data := MyData;
  
  // Force bar chart
  BIChart1.Options.Series2D := TBarSeries;
end;

begin
  BIChart1.Data := My3DData;
  BIChart1.Options.Mode := TBIChartMode.ThreeD;
  BIChart1.Options.Dimensions := TBIChartDimensions.View3D;
end;

begin
  BIChart1.Data := MyData;
  
  with BIChart1.Options do
  begin
    Items.X := MyData.Items['Date'];
    Items.Y.Add(MyData.Items['Sales']);
    Items.Y.Add(MyData.Items['Profit']);
    
    Direction := TBIChartDirection.Rows;
    Legend := TBIChartLegend.Show;
    Stacked := TBIChartStacked.Yes;
    Title := TBIChartTitle.Custom;
  end;
  
  BIChart1.Chart.Title.Text.Text := 'Sales vs Profit';
end;

var
  Summary: TSummary;
  Data: TDataItem;
begin
  Summary := TSummary.Create(nil);
  try
    Summary.Measures.Add(SalesData.Items['Amount'], TAggregate.Sum);
    Summary.By.Add(SalesData.Items['Category']);
    
    BIChart1.Fill(Summary);
    BIChart1.Options.Series2D := TPieSeries;
  finally
    Summary.Free;
  end;
end;

var
  StockData: TDataItem;
begin
  // Data with Open, High, Low, Close columns
  StockData := LoadStockPrices;
  
  BIChart1.Data := StockData;
  BIChart1.Options.Mode := TBIChartMode.Financial;
end;

var
  Hist: THistogram;
begin
  Hist := THistogram.Create(nil);
  try
    Hist.NumBins := 10;
    BIChart1.Fill(Hist, MyData.Items['Age']);
  finally
    Hist.Free;
  end;
end;

begin
  // Add series with very different scales
  BIChart1.Data := MyData;
  BIChart1.SetTwoAxes;  // Use left & right axes
  
  // Or split into separate axes
  BIChart1.SplitAxes(True);  // Vertical split
end;

uses VCLTee.TeEngine;

var
  Series: TChartSeries;
begin
  BIChart1.Data := MyData;
  
  // Customize first series
  Series := BIChart1.Chart[0];
  Series.Marks.Visible := True;
  Series.Marks.Style := smsValue;
  
  // Customize chart
  BIChart1.Chart.Legend.Alignment := laBottom;
  BIChart1.Chart.Title.Font.Size := 14;
end;

uses VCLTee.Series;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: BIChart1.Options.Series2D := TBarSeries;
    1: BIChart1.Options.Series2D := TLineSeries;
    2: BIChart1.Options.Series2D := TAreaSeries;
    3: BIChart1.Options.Series2D := TPieSeries;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BIChart1.Chart.OnClickSeries := ChartClickSeries;
end;

procedure TForm1.ChartClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('Clicked: ' + Series.Labels[ValueIndex]);
end;