Closing FrxDesigner programmatically (after Save Report)

Serge Girard

Hello,

Is there a way to close frxdesigner after report is saved (or saved as) ?

in my application

function TMainForm.frxDesigner1SaveReport(Report: TfrxReport;
  SaveAs: Boolean): Boolean;
var AForm : TFormInformationGabarit;
begin
// need to have some description  in a formatted way
AForm:=TFormInformationGabarit.Create(Self);
try
  AForm.EtatDescription:=Etat.ReportOptions.Description;
  if AForm.ShowModal=mrok then  Report.ReportOptions.Description.Text:=AForm.EtatDescription.Text;
finally
  AForm.Free;
end;
// -------------------------------------------------
SaveFastReport.DefaultFolder:=DirDA;
SaveFastReport.ClientGUID:=GUID; // const
SaveFastReport.FileName:=Report.FileName;
if Length(Trim(Report.FileName))=0 then SaveFastReport.FileName:='brand*.fr3';
if SauverFastReport.Execute then
  begin
     Report.SaveToFile(SaveFastReport.FileName);
/// not sure this is needed
//     if SaveAs then
//      begin
//       FRFileName.FileName:=SauverFastReport.FileName;
//       Report.FileName:=ExtractFileName(SauverFastReport.FileName);
//      end;
  end;
result:=True;  // 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Here i want to close designer  
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ReloadLoadTest(Report);  // reload report.filename 
end;

Serge Girard

Hello,

I found my way in the russian forum https://www.fastreport.ru/ru/forum/index.php?showtopic=4431

Quick response is : frxReport1.Designer.Close

but this post show me also how to use the way to detect the Close Action of the designer