paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:01:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added BringToFont/SendToBack

Browse Source 
git-svn-id: trunk@38802 -
This commit is contained in:
michael 2018-04-21 16:54:01 +00:00
parent 4a273db4d7
commit fa928fda1c
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -970,6 +970,8 @@ type
Procedure Validate(aErrors : TStrings); override;
procedure Assign(Source: TPersistent); override;
procedure FixupReference(PN, PV: String; C: TFPReportElement); override;
Procedure SendToBack(El : TFPReportElement);
Procedure BringToFront(El : TFPReportElement);
Class Function ReportBandType : TFPReportBandType; virtual;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure ReadElement(AReader: TFPReportStreamer); override;
@ -9079,6 +9081,27 @@ begin
inherited FixupReference(PN, PV, C);
end;
procedure TFPReportCustomBand.SendToBack(El: TFPReportElement);
Var
I : integer;
begin
I:=FChildren.IndexOf(El);
If I>0 then
FChildren.Move(I,0);
end;
procedure TFPReportCustomBand.BringToFront(El: TFPReportElement);
Var
I : integer;
begin
I:=FChildren.IndexOf(El);
If (I>=0) and (I<FChildren.Count-1) then
FChildren.Move(I,FChildren.Count-1);
end;
class function TFPReportCustomBand.ReportBandType: TFPReportBandType;
begin
Result:=btUnknown;