mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 04:19:19 +02:00
* Fix bug #33256, clear filename on new report
git-svn-id: trunk@57408 -
This commit is contained in:
parent
8ba7fdba64
commit
b3dfb935dd
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user