paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 06:50:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add StartDesigning/EndDesigning calls, needed for OI to work correctly

Browse Source 
git-svn-id: trunk@38361 -
This commit is contained in:
michael 2018-02-27 16:07:26 +00:00
parent 11bda89833
commit 1568e68c95
1 changed files with 70 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
packages/fcl-report/src/fpreport.pp
View File

@ -120,6 +120,7 @@ type
// For color coding
TFPReportBandType = (btUnknown,btPageHeader,btReportTitle,btColumnHeader,btDataHeader,btGroupHeader,btDataband,btGroupFooter,
btDataFooter,btColumnFooter,btReportSummary,btPageFooter,btChild);
TFPReportBandTypes = Set of TFPReportBandType;
TFPReportMemoOption = (
moSuppressRepeated,
moHideZeros,
@ -304,6 +305,8 @@ type
end;
{ TFPReportComponent }
TFPReportComponent = class(TComponent)
private
FReportState: TFPReportState;
@ -316,9 +319,14 @@ type
procedure StartRender; virtual;
// called when the renderer ends its job on the report.
procedure EndRender; virtual;
public
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); virtual;
procedure ReadElement(AReader: TFPReportStreamer); virtual;
// called when the designer starts editing this component .
Procedure StartDesigning; virtual;
// called when the designer ends editing this component .
Procedure EndDesigning; virtual;
property ReportState: TFPReportState read FReportState;
end;
@ -715,6 +723,10 @@ type
procedure RecalcLayout; override;
public
destructor Destroy; override;
// called when the designer starts editing this component .
Procedure StartDesigning; override;
// called when the designer ends editing this component .
Procedure EndDesigning; override;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure ReadElement(AReader: TFPReportStreamer); override;
function Equals(AElement: TFPReportElement): boolean; override;
@ -1522,6 +1534,8 @@ type
procedure RemovePage(APage: TFPReportCustomPage);
function FindRecursive(const AName: string): TFPReportElement;
procedure RunReport;
Procedure StartDesigning; virtual;
Procedure EndDesigning; virtual;
procedure RenderReport(const AExporter: TFPReportExporter);
Property Variables : TFPReportVariables Read FVariables Write SetVariables;
{$IFDEF gdebug}
@ -5483,6 +5497,18 @@ begin
FReportState := rsDesign;
end;
procedure TFPReportComponent.StartDesigning;
begin
SetDesigning(True,True);
FReportState:=rsDesign;
end;
procedure TFPReportComponent.EndDesigning;
begin
SetDesigning(False,True);
FReportState:=rsDesign;
end;
procedure TFPReportComponent.WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement);
begin
AWriter.WriteString('Name', Name);
@ -6451,6 +6477,28 @@ begin
inherited Destroy;
end;
procedure TFPReportElementWithChildren.StartDesigning;
Var
I : Integer;
begin
inherited StartDesigning;
For I:=0 to ChildCount-1 do
Child[I].StartDesigning;
end;
procedure TFPReportElementWithChildren.EndDesigning;
Var
I : Integer;
begin
inherited EndDesigning;
For I:=0 to ChildCount-1 do
Child[I].EndDesigning;
end;
procedure TFPReportElementWithChildren.WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement);
var
i: integer;
@ -7576,6 +7624,28 @@ begin
DoAfterRenderReport;
end;
procedure TFPCustomReport.StartDesigning;
Var
I : Integer;
begin
SetDesigning(True,True);
For I:=0 to PageCount-1 do
Pages[i].StartDesigning;
end;
procedure TFPCustomReport.EndDesigning;
Var
I : Integer;
begin
SetDesigning(False,True);
For I:=0 to PageCount-1 do
Pages[i].EndDesigning;
end;
function TFPCustomReport.FindRecursive(const AName: string): TFPReportElement;
var
p, b, c: integer;