keyTMS ALL-ACCESS
local_offerOne money and time saving bundle
mouseCross Platform UI
bar_chartReporting
languageWeb
swap_horizCommunication
storageData
mouseWindows UI
  •  
  •  
  •  
  1. Home
  2. Products
  3. VCL Components
  4. TAdvStringGrid
  5. Example 63

TAdvStringGrid

Example 63 : Using subgrouping with TAdvStringGrid

vcl grid subgrouping vcl grid subgrouping

With the TAdvStringGrid method grid.Group(column) it is possible to let the grid perform an automatic grouping on a column in the grid. In addition to the Group() function, it is possible to let the grid automatically add sub groups with the method grid.SubGroup(column). This subgrouping can be done for multiple columns but it is important that the successive columns for subgroups are right from the last subgroup. To ungroup groups or subgroups, the methods grid.UnGroup() and grid.SubUnGroup() can be used respectively. This code snippet demonstrates how grouping and one subgroup is applied to a grid that loads a CSV file: 

procedure TForm1.InitGrid;
begin
  advstringgrid1.Grouping.MergeHeader := true;
  advstringgrid1.Grouping.HeaderColor := clWhite;
  advstringgrid1.Grouping.HeaderColorTo := clInfoBk;
  advstringgrid1.SaveFixedCells := false;
  advstringgrid1.LoadFromCSV('.\cargroups.csv');

  advstringgrid1.Group(1);
  advstringgrid1.SubGroup(1);
  advstringgrid1.ContractAll;
  advstringgrid1.Cells[1,0] :='Brand';
  advstringgrid1.Cells[2,0] :='Type';
  advstringgrid1.Cells[3,0] :='Cyl';
end;


Delphi project & source files for downloading included in the main demos distribution for Delphi.