paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 19:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Detect name changes when loading (Bug ID #38452)

Browse Source 
git-svn-id: trunk@57464 -
This commit is contained in:
michael 2018-03-08 10:02:50 +00:00
parent 7f15e1c27b
commit 05534b1892
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpreport/design/frmfpreportdesignermain.pp
View File

@ -268,6 +268,7 @@ type
procedure VAlignExecute(Sender: TObject);
procedure VResizeExecute(Sender: TObject);
private
FLoadModified : Boolean;
MRUMenuManager1: TMRUMenuManager;
FAutoSaveOnClose: Boolean;
FDesignOptions: TFPReportDesignOptions;
@ -501,7 +502,13 @@ begin
AddPageDesign(I+1,Report.Pages[I]);
ShowReportData;
ResetObjectInspector;
Modified:=False;
if FLoadModified then
begin
Modified:=True;
FLoadModified:=false;
end
else
Modified:=False;
end;
procedure TFPReportDesignerForm.CreateReportData;
@ -1331,6 +1338,7 @@ end;
function TFPReportDesignerForm.OpenReport: Boolean;
begin
FLoadModified:=False;
Result:=Assigned(OnOpenReport);
if Result then
begin
@ -1446,6 +1454,7 @@ begin
FFilename:=AFileName;
if Errs.Count>0 then
MessageDlg(SErrAccessingData,Format(SErrAccessingDataDetails,[Errs.Text]),mtWarning,[mbOK],'');
FLoadModified:=rs.IsModified;
finally
FreeAndNil(rs);
FreeAndNil(Errs);