TBIGrid

uses
  VCLBI.Grid, VCLBI.Grid.DBGrid;  // or VCLBI.Grid.TeeGrid
  
initialization
  TBIGrid.Engine := TBIDBGridPlugin;  // Default VCL grid
end.

property Data: TDataItem;

property DataSource: TDataSource;

property ReadOnly: Boolean default True;

property CurrentRow: Integer;

property Alternate: TAlternateColor;

property RowNumbers: TRowNumbers;

BIGrid1.RowNumbers.Enabled := True;

property Filters: TGridFilters;

BIGrid1.Filters.Enabled := True;

property Search: TGridSearch;

BIGrid1.Search.Enabled := True;

property ShowItems: TGridShowItems default Automatic;

property Totals: Boolean default False;

procedure BindTo(const AData: TDataItem);

procedure FocusCell(const ARow: Integer; const AData: TDataItem);

procedure Colorize(const AItems: TDataColorizers);

procedure Duplicates(const AData: TDataItem; const Hide: Boolean);

property OnDataChange: TNotifyEvent;

procedure TForm1.BIGrid1DataChange(Sender: TObject);
begin
  // Current row changed
  Label1.Caption := 'Row: ' + IntToStr(BIGrid1.CurrentRow);
end;

property OnUpdateData: TNotifyEvent;

procedure TForm1.BIGrid1UpdateData(Sender: TObject);
begin
  // Data was modified
  SaveChanges;
end;

var
  Data: TDataItem;
begin
  Data := TBICSV.FromFile('data.csv');
  BIGrid1.Data := Data;
end;

begin
  BIGrid1.Data := MyData;
  BIGrid1.ReadOnly := False;
  BIGrid1.OnUpdateData := Grid1UpdateData;
end;

procedure TForm1.Grid1UpdateData(Sender: TObject);
begin
  // Save changes
  TPersistence.Save(BIGrid1.Data, 'updated.bi');
end;

begin
  BIGrid1.Data := MyData;
  
  // Enable features
  BIGrid1.RowNumbers.Enabled := True;
  BIGrid1.Filters.Enabled := True;
  BIGrid1.Search.Enabled := True;
  BIGrid1.Totals := True;
  
  // Styling
  BIGrid1.Alternate.Enabled := True;
  BIGrid1.Alternate.Color := clMoneyGreen;
end;

var
  Master, Detail: TDataItem;
begin
  // Master grid
  Master := LoadOrders;
  BIGrid1.Data := Master;
  
  // Detail shows items for selected order
  BIGrid1.OnDataChange := 
    procedure(Sender: TObject)
    begin
      Detail := Master.Items[BIGrid1.CurrentRow];
      BIGrid2.Data := Detail;
    end;
end;

var
  Colorizers: TDataColorizers;
  Col: TDataColorizer;
begin
  Colorizers := TDataColorizers.Create;
  try
    // Highlight high salaries in red
    Col := Colorizers.Add(MySalaryColumn);
    Col.Condition := TCondition.GreaterThan;
    Col.Value := 50000;
    Col.BackColor := clRed;
    Col.FontColor := clWhite;
    
    BIGrid1.Colorize(Colorizers);
  finally
    Colorizers.Free;
  end;
end;

var
  Row: Integer;
begin
  // Find row where Name = 'Alice'
  Row := MyData.Items[0].Find('Alice');
  
  if Row <> -1 then
  begin
    BIGrid1.CurrentRow := Row;
    BIGrid1.FocusCell(Row, MyData.Items[0]);
  end;
end;

uses VCLBI.Grid.DBGrid;

TBIGrid.Engine := TBIDBGridPlugin;

uses VCLBI.Grid.TeeGrid;

TBIGrid.Engine := TBITeeGridPlugin;

var
  Filter: TExpression;
begin
  // Show only rows where Age > 25
  Filter := TExpression.Create('Age > 25');
  BIGrid1.Filter := Filter;
end;

var
  Plugin: TBIGridPlugin;
begin
  Plugin := BIGrid1.Plugin;
  // Access plugin-specific features
end;