pascal-TeeGrid-VCL-FMX-Samples：跨平台数据网格解决方案

icy 今天 6 抢沙发

默认

摘要： TeeGrid-VCL-FMX-Samples：跨平台数据网格解决方案项目概述 TeeGrid-VCL-FMX-Samples 是 Steema Software 官方提供的示例...

TeeGrid-VCL-FMX-Samples：跨平台数据网格解决方案

项目概述

TeeGrid-VCL-FMX-Samples 是 Steema Software 官方提供的示例项目，展示了如何在 Delphi 和 C++ Builder 中使用 TeeGrid 组件库。该项目针对 VCL（Windows）和 FMX（跨平台）框架提供了丰富的使用示例，帮助开发者快速掌握这一强大的数据网格控件。

核心特性

1. 跨平台支持

VCL框架：专为 Windows 桌面应用程序设计
FMX框架：支持 Windows、macOS、iOS、Android 和 Linux 等多平台
统一的 API 设计，简化跨平台开发

2. 丰富的数据展示功能

支持多种数据源（数据集、数组、对象列表等）
灵活的列配置和格式化选项
分组、排序和过滤功能
单元格合并和自定义绘制

3. 高性能渲染

优化的内存管理
流畅的滚动体验
大数据集支持

项目结构

text

TeeGrid-VCL-FMX-Samples/
├── VCL/              # Windows VCL 示例
├── FMX/              # 跨平台 FMX 示例
├── Common/           # 共享代码和资源
└── README.md         # 项目说明文档

使用示例

示例1：基本网格设置

text

// 创建并配置 TeeGrid
procedure TForm1.FormCreate(Sender: TObject);
var
  Grid : TGrid;
begin
  // 创建网格实例
  Grid := TGrid.Create(Self);
  Grid.Parent := Self;
  Grid.Align := TAlignLayout.Client;
  
  // 设置数据源
  Grid.Data := MyDataSet;
  
  // 配置列
  Grid.Columns.Clear;
  
  // 添加列
  with Grid.Columns.Add('ID') do
  begin
    Header.Text := '编号';
    Width := 80;
  end;
  
  with Grid.Columns.Add('Name') do
  begin
    Header.Text := '姓名';
    Width := 150;
  end;
  
  with Grid.Columns.Add('Salary') do
  begin
    Header.Text := '薪资';
    Format.Float := '#,##0.00';
    Width := 100;
  end;
end;

示例2：自定义单元格绘制

text

// 自定义单元格外观
procedure TForm1.GridGetCellColor(Sender: TObject; AColumn, ARow: Integer;
  var AColor: TAlphaColor);
begin
  // 根据条件设置单元格背景色
  if (AColumn = 2) and (ARow > 0) then // 薪资列
  begin
    if Grid.Cell[2, ARow].AsFloat > 5000 then
      AColor := TAlphaColors.Lightgreen
    else
      AColor := TAlphaColors.Lightpink;
  end;
end;

示例3：数据分组

text

// 按部门分组显示
procedure TForm1.SetupGrouping;
begin
  // 清除现有分组
  Grid.Rows.GroupBy.Clear;
  
  // 添加分组
  with Grid.Rows.GroupBy.Add('Department') do
  begin
    Header.Text := '部门';
    Expanded := True; // 默认展开
  end;
  
  // 刷新显示
  Grid.DataChanged;
end;

示例4：数据过滤

text

// 实现实时过滤
procedure TForm1.EditFilterChange(Sender: TObject);
begin
  // 设置过滤条件
  Grid.Rows.Filter.Clear;
  
  if EditFilter.Text <> '' then
  begin
    Grid.Rows.Filter.Add('Name', TFilter.Contains, EditFilter.Text);
    Grid.Rows.Filter.Add('Department', TFilter.Contains, EditFilter.Text, TLogical.Or);
  end;
  
  Grid.Repaint;
end;

高级功能示例

主从关系展示

text

// 设置主从网格
procedure TForm1.SetupMasterDetail;
var
  MasterGrid, DetailGrid: TGrid;
begin
  // 主网格
  MasterGrid := TGrid.Create(Self);
  MasterGrid.Parent := Panel1;
  MasterGrid.Align := TAlignLayout.Client;
  MasterGrid.Data := CustomersDataSet;
  
  // 详细网格
  DetailGrid := TGrid.Create(Self);
  DetailGrid.Parent := Panel2;
  DetailGrid.Align := TAlignLayout.Client;
  
  // 关联主从关系
  MasterGrid.Selected.OnChange := procedure
  begin
    if MasterGrid.Selected.Row > 0 then
    begin
      // 根据主表选择过滤从表数据
      OrdersDataSet.Filter := 'CustomerID=' + 
        MasterGrid.Cell[0, MasterGrid.Selected.Row].Text;
      OrdersDataSet.Filtered := True;
      DetailGrid.Data := OrdersDataSet;
    end;
  end;
end;

导出功能

text

// 导出数据到 CSV
procedure TForm1.ExportToCSV;
var
  CSV: TStrings;
  I, J: Integer;
begin
  CSV := TStringList.Create;
  try
    // 添加标题行
    var Header: string := '';
    for I := 0 to Grid.Columns.Count - 1 do
      Header := Header + Grid.Columns[I].Header.Text + ',';
    CSV.Add(Header);
    
    // 添加数据行
    for I := 1 to Grid.Rows.Count do
    begin
      var RowData: string := '';
      for J := 0 to Grid.Columns.Count - 1 do
        RowData := RowData + Grid.Cell[J, I].Text + ',';
      CSV.Add(RowData);
    end;
    
    // 保存文件
    CSV.SaveToFile('Export.csv');
    ShowMessage('数据已导出到 Export.csv');
  finally
    CSV.Free;
  end;
end;