From b3dfb935dd37137b921290d5e331b177ccac9c12 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Wed, 28 Feb 2018 08:03:49 +0000
Subject: [PATCH] * Fix bug #33256, clear filename on new report

git-svn-id: trunk@57408 -
---
 components/fpreport/design/frmfpreportdesignermain.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/fpreport/design/frmfpreportdesignermain.pp b/components/fpreport/design/frmfpreportdesignermain.pp
index bead9514c1..d479f3b606 100644
--- a/components/fpreport/design/frmfpreportdesignermain.pp
+++ b/components/fpreport/design/frmfpreportdesignermain.pp
@@ -951,8 +951,10 @@ begin
     FReport.AddPage(P);
     Report.StartDesigning;
     FOI.RefreshReportTree;
-    Result:=True
+    Result:=True;
     end;
+  if Result then
+    FFileName:='';
 end;
 
 procedure TFPReportDesignerForm.APreviewExecute(Sender: TObject);