paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 09:38:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33321, OI not updated when properties changed.

Browse Source 
git-svn-id: trunk@57447 -
This commit is contained in:
michael 2018-03-05 12:51:52 +00:00
parent 911835c03e
commit 95b16c02a9
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpreport/design/fpreportdesignobjectlist.pp
View File

@ -307,8 +307,6 @@ procedure TReportObjectList.SetModified(AValue: Boolean);
begin
if FModified=AValue then Exit;
FModified:=AValue;
if AValue and Assigned(OnReportChange) then
OnReportChange(Self);
end;
procedure TReportObjectList.SelectionChanged;
@ -320,6 +318,8 @@ end;
procedure TReportObjectList.ReportChanged;
begin
SetModified(True);
if Assigned(OnReportChange) then
OnReportChange(Self);
end;
procedure TReportObjectList.BeginSelectionUpdate;

6
components/fpreport/design/frareportobjectinspector.pp
View File

@ -55,6 +55,7 @@ type
public
Procedure UpdateSelection;
procedure RefreshReportTree;
Procedure RefreshOI;
Procedure SelectControls(AList : TReportObjectList);
Property Objectlist : TReportObjectList Read FList;
Property ShowReportTree : Boolean Read GetSRT Write SetSRT;
@ -225,6 +226,11 @@ begin
end;
end;
procedure TObjectInspectorFrame.RefreshOI;
begin
PGReport.RefreshPropertyValues;
end;
procedure TObjectInspectorFrame.SetReport(AValue: TFPReport);
begin
if FReport=AValue then Exit;

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

@ -944,6 +944,7 @@ end;
procedure TFPReportDesignerForm.DoReportChangedByDesigner(Sender: TObject);
begin
FOI.RefreshOI;
Modified:=True;
end;