Grid Visualization

uses
  VCLBI.Grid;

var
  Grid: TBIGrid;
begin
  Grid := TBIGrid.Create(Owner);
  Grid.Parent := Self;
  Grid.Align := alClient;
  
  // Assign data
  Grid.Data := CustomerData;
end;

uses
  FMXBI.Grid;

var
  Grid: TBIGrid;
begin
  Grid := TBIGrid.Create(Owner);
  Grid.Parent := Self;
  Grid.Align := TAlignLayout.Client;
  
  Grid.Data := CustomerData;
end;

uses
  VCLBI.Grid, VCLBI.Grid.DBGrid;

begin
  TBIGrid.Engine := TBIDBGridPlugin;
end;

uses
  VCLBI.Grid, VCLBI.Grid.TeeGrid;

begin
  TBIGrid.Engine := TBITeeGridPlugin;
end;

Grid.RowNumbers.Enabled := True;

Grid.Filters.Enabled := True;

Grid.Search.Enabled := True;

Grid.ReadOnly := True;  // Default is True

Grid.Totals := True;  // Show totals at bottom

Grid.Alternate.Enabled := True;
Grid.Alternate.Color := clMoneyGreen;

var
  Row: Integer;
begin
  // Get current row
  Row := Grid.CurrentRow;
  
  // Set current row
  Grid.CurrentRow := 10;
end;

Grid.FocusCell(RowIndex, Data['ColumnName']);

// Direct binding
Grid.BindTo(MyData);

// Or use Data property
Grid.Data := MyData;

var
  Filter: TExpression;
begin
  // Create filter expression
  Filter := Data['Amount'] > 1000;
  
  // Apply to grid
  Grid.Filter := Filter;
end;

var
  Colorizers: TDataColorizers;
begin
  // Add colorization rules
  Colorizers.Add(Data['Status']);     // Color by status
  Colorizers.Add(Data['Amount']);     // Gradient by amount
  
  Grid.Colorize(Colorizers);
end;

// Hide duplicate values in column
Grid.Duplicates(Data['Category'], True);

// Show all values
Grid.Duplicates(Data['Category'], False);

Grid.ShowItems := TGridShowItems.Yes;
// Automatic (default), Yes, No

Grid.OnDataChange := procedure(Sender: TObject)
begin
  // Row changed
  ShowMessage('Current row: ' + IntToStr(Grid.CurrentRow));
end;

Grid.OnUpdateData := procedure(Sender: TObject)
begin
  // Data was modified
  SaveChanges(Grid.Data);
end;

var
  DataSource: TDataSource;
begin
  DataSource := Grid.DataSource;
  
  // Work with TDataSet
  if DataSource.DataSet.Active then
    ShowMessage('Row count: ' + IntToStr(DataSource.DataSet.RecordCount));
end;

var
  Plugin: TBIGridPlugin;
begin
  Plugin := Grid.Plugin;
  
  // Plugin provides low-level grid control
  Plugin.BindTo(DataSet);
  Plugin.ReadOnly := True;
  Plugin.Totals := True;
end;

uses
  VCLBI.Grid, BI.DataItem, BI.Expression;

procedure CreateCustomerGrid;
var
  Grid: TBIGrid;
  Data: TDataItem;
  Filter: TExpression;
  Colorizers: TDataColorizers;
begin
  // Create grid
  Grid := TBIGrid.Create(Self);
  Grid.Parent := Self;
  Grid.Align := alClient;
  
  // Configure features
  Grid.RowNumbers.Enabled := True;
  Grid.Filters.Enabled := True;
  Grid.Search.Enabled := True;
  Grid.ReadOnly := False;  // Allow editing
  Grid.Totals := True;
  
  // Alternate row colors
  Grid.Alternate.Enabled := True;
  Grid.Alternate.Color := $F0F0F0;
  
  // Load data
  Data := LoadCustomerData;
  Grid.Data := Data;
  
  // Apply filter
  Filter := Data['Country'] = 'USA';
  Grid.Filter := Filter;
  
  // Colorize by status
  Colorizers.Add(Data['Status']);
  Grid.Colorize(Colorizers);
  
  // Hide duplicate categories
  Grid.Duplicates(Data['Category'], True);
  
  // Handle events
  Grid.OnDataChange := RowChanged;
  Grid.OnUpdateData := DataModified;
end;