Chart Visualization

uses
  VCLBI.Chart;  // or FMXBI.Chart for FireMonkey

var
  Chart: TBIChart;
begin
  Chart := TBIChart.Create(Owner);
  Chart.Parent := Self;
  Chart.Align := alClient;
  
  // Assign data - chart type selected automatically
  Chart.Data := SalesData;
end;

// Numeric with categories -> Bar chart
Chart.Data := DataWithCategories;

// Time series -> Line chart  
Chart.Data := TimeSeriesData;

// Geographic names -> Map
Chart.Data := CountryData;

// Force specific 2D chart type
Chart.Options.Series2D := TBarSeries;
Chart.Options.Series2D := TLineSeries;
Chart.Options.Series2D := TPieSeries;

// Force specific 3D type
Chart.Options.Series3D := TSurfaceSeries;

type
  TBIChartMode = (Automatic, XY, ThreeD, Financial, Geographic);

Chart.Options.Mode := TBIChartMode.XY;
Chart.Data := Data;

Chart.Options.Mode := TBIChartMode.ThreeD;
Chart.Options.XYZMode := TBIChart3DMode.Grid;  // or Table, XYZ
Chart.Data := Data;

Chart.Options.Mode := TBIChartMode.Financial;
Chart.Data := StockData;  // Requires Open, High, Low, Close

Chart.Options.Mode := TBIChartMode.Geographic;
Chart.Data := CountryData;

Chart.Options.Dimensions := TBIChartDimensions.View3D;  
// Automatic, View2D, Orthogonal, View3D

Chart.Options.Legend := TBIChartLegend.Show;  
// Automatic, Show, Hide

Chart.Options.Marks := TBIChartMarks.Show;  
// Automatic, Show, Hide

Chart.Options.Stacked := TBIChartStacked.Yes;
// Automatic, No, Yes, Stacked100, Side, SideAll, SelfStack

Chart.Options.Direction := TBIChartDirection.Rows;
// Automatic, Rows, Columns

var
  Items: TBIChartItems;
begin
  Items := Chart.Options.Items;
  
  // Manually assign fields
  Items.X := Data['Month'];       // Horizontal axis
  Items.Y.Add(Data['Sales']);     // Values (can be multiple)
  Items.Z := Data['Quantity'];    // Z-axis for 3D
  Items.Text := Data['Category']; // Labels
  Items.Colors := Data['Status']; // Color mapping
end;

var
  Data: TDataArray;
begin
  SetLength(Data, 3);
  Data[0] := Sales['Product A'];
  Data[1] := Sales['Product B'];
  Data[2] := Sales['Product C'];
  
  Chart.Fill(Data);
end;

// Use two Y axes
Chart.SetTwoAxes;

// Split into multiple vertical axes
Chart.SplitAxes(True);  // Vertical split

// Split into multiple horizontal axes
Chart.SplitAxes(False); // Horizontal split

var
  Series: TChartSeries;
begin
  // Access TeeChart control
  Chart.Chart.Title.Text := 'Sales Report';
  Chart.Chart.Legend.Visible := True;
  
  // Customize series
  Series := Chart.Chart[0];
  Series.Color := clRed;
  
  // Add tools
  Chart.Chart.Tools.Add(TColorLineTool.Create(Chart));
end;

Chart.ExchangeXY;  // Horizontal <-> Vertical
Chart.ExchangeXZ;  // X <-> Z for 3D
Chart.ExchangeYZ;  // Y <-> Z for 3D

uses
  VCLBI.Chart, BI.DataItem, BI.Summary;

procedure CreateSalesChart;
var
  Chart: TBIChart;
  Summary: TSummary;
  Data: TDataItem;
begin
  // Create chart
  Chart := TBIChart.Create(Self);
  Chart.Parent := Self;
  Chart.Align := alClient;
  
  // Configure options
  with Chart.Options do
  begin
    Mode := TBIChartMode.XY;
    Legend := TBIChartLegend.Show;
    Marks := TBIChartMarks.Hide;
    Stacked := TBIChartStacked.No;
  end;
  
  // Create pivot summary
  Summary := TSummary.Create(nil);
  try
    Data := LoadSalesData;
    
    Summary.AddGroupBy(Data['Region']);
    Summary.AddGroupBy(Data['Quarter']);
    Summary.AddMeasure(Data['Amount'], TAggregate.Sum);
    
    // Display in chart
    Chart.Fill(Summary);
  finally
    Summary.Free;
  end;
  
  // Customize TeeChart
  Chart.Chart.Title.Text := 'Quarterly Sales by Region';
  Chart.Chart.BottomAxis.Title.Caption := 'Region';
  Chart.Chart.LeftAxis.Title.Caption := 'Sales ($)';
end;