Cosmetics, add custom font and background color to the sub-sub-grid

Author: davidberneda

demos/FireMonkey/Database/Master_Detail_FireDAC/Master_Detail_FireDAC.pas

@@ -40,6 +40,7 @@   TMasterDetail = class(TForm)
     { Private declarations }
 
     procedure DetailNewGroup(const Sender,NewGroup:TRowGroup);
+    procedure SubDetailNewGroup(const Sender,NewGroup:TRowGroup);
 
     procedure EnableDisableSubGrid(const AGroup:TRowGroup; const AEvent:TExpanderGetDataEvent);
 
@@ -135,6 +136,9 @@ procedure TMasterDetail.DetailNewGroup(const Sender,NewGroup:TRowGroup);
 begin
   EnableDisableSubGrid(NewGroup,GetOrderItems);
 
+    // Optional:
+  NewGroup.OnNewDetail:=SubDetailNewGroup;
+
   // Create a Totals band
   tmpTot:=TColumnTotals.Create(NewGroup.Footer); // <--- set to Footer
 
@@ -152,6 +156,15 @@ procedure TMasterDetail.DetailNewGroup(const Sender,NewGroup:TRowGroup);
   NewGroup.Cells.Format.Font.Color:=TAlphaColors.Darkblue;
 end;
 
+procedure TMasterDetail.SubDetailNewGroup(const Sender,NewGroup:TRowGroup);
+begin
+  // Cosmetics on the sub-sub-grid
+  NewGroup.Rows.Back.Brush.Color:=TAlphaColors.Lavender;
+  NewGroup.Rows.Back.Brush.Visible:=True;
+
+  NewGroup.Cells.Format.Font.Color:=TAlphaColors.Blueviolet;
+end;
+
 // Called when a new sub-grid has been created, to obtain the sub-grid Data
 // The "Orders" for the current "Customer"