I am using Delphi 11 and TcxGrid component and I was able to get same text from Group Header to Group Footer. But I did not do the same when I use TdxComponentPrinter and TdxGridReportLink. May you help me how to get Group Header Text in Group Summary Footer ?

I tried this but it doesnt work:

  private
    { Private declarations }
    strGroupHeaderText: String;

procedure TForm.xcpBaseReportsLink1CustomDrawFooterCell(
  Sender: TdxGridReportLink; ACanvas: TCanvas; AView: TcxGridTableView;
  ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; ALevel: Integer;
  AnItem: TdxReportCellString; var ADone: Boolean);
begin
  inherited;
  if ALevel = 0 then begin
    ACanvas.TextOut(AnItem.BoundsRect.Left + 10, AnItem.BoundsRect.Top + 5, strGroupHeaderText);
    Adone := True;
  end;
end;

procedure TForm.xcpBaseReportsLink1InitializeLevelCaption(
  Sender: TdxGridReportLink; AView: TcxCustomGridView;
  AnItem: TdxReportCellString);
begin
  inherited;
  strGroupHeaderText := AnItem.Text;
end;