paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33484

Browse Source 
git-svn-id: trunk@57558 -
This commit is contained in:
michael 2018-03-23 10:18:55 +00:00
parent 7b837567c3
commit 49785542af
1 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -273,6 +273,7 @@ type
procedure VResizeExecute(Sender: TObject);
private
FLoadModified : Boolean;
FStopDesigning: Boolean;
MRUMenuManager1: TMRUMenuManager;
FAutoSaveOnClose: Boolean;
FDesignOptions: TFPReportDesignOptions;
@ -1228,7 +1229,8 @@ end;
procedure TFPReportDesignerForm.PCReportChange(Sender: TObject);
begin
ResetObjectInspector;
if not FStopDesigning then
ResetObjectInspector;
end;
procedure TFPReportDesignerForm.ResetObjectInspector;
@ -1383,20 +1385,26 @@ Var
I : integer;
begin
if Assigned(FReport) then
Report.EndDesigning;
For I:=ComponentCount-1 downto 0 do
if Components[I] is TFPReportDesignerControl then
Components[I].Free;
While PCReport.ControlCount>0 do
PCReport.Controls[PCReport.ControlCount-1].Free;
// Give LCL time to clean up.
Application.ProcessMessages;
FReportData.Report:=Nil;
FReportDesignData.RemoveFromReport(FReport);
FReportDesignData.DataDefinitions.Clear;
FOI.Report:=Nil;
FOI.SelectControls(Nil);
FStopDesigning:=True;
try
if Assigned(FReport) then
Report.EndDesigning;
For I:=ComponentCount-1 downto 0 do
if Components[I] is TFPReportDesignerControl then
Components[I].Free;
While PCReport.ControlCount>0 do
PCReport.Controls[PCReport.ControlCount-1].Free;
// Give LCL time to clean up.
Application.ProcessMessages;
FReportData.Report:=Nil;
FReportDesignData.RemoveFromReport(FReport);
FReportDesignData.DataDefinitions.Clear;
FOI.Report:=Nil;
FOI.SelectControls(Nil);
Finally
FStopDesigning:=False;
end;
end;
procedure TFPReportDesignerForm.VAlignExecute(Sender: TObject);