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

* Put elements that are not on any band on a null band

Browse Source 
git-svn-id: trunk@38933 -
This commit is contained in:
michael 2018-05-06 10:05:03 +00:00
parent af938981b3
commit d37b1b631e
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-report/src/fplazreport.pp
View File

@ -42,11 +42,12 @@ Type
FOnSetCustomProps: TCustomPropEvent;
FOnSubstituteFont: TFontSubstitutionEvent;
FCounter : Integer;
FNullBand : TFPReportChildBand;
Protected
class function Red(rgb: Integer): BYTE; virtual;
class function Green(rgb: Integer): BYTE; virtual;
class function Blue(rgb: Integer): BYTE; virtual;
class function FindBand(aPage: TFPReportCustomPage; aTop: double): TFPReportCustomBand; virtual;
function FindBand(aPage: TFPReportCustomPage; aTop: double; AElement: TFPReportElement=Nil): TFPReportCustomBand; virtual;
class function GetProperty(aNode: TDOMNode; const aName: String; const aValue: string='Value'): UTF8String; virtual;
function ApplyFrame(aDataNode: TDOMNode; aFrame: TFPReportFrame): Boolean; virtual;
procedure ApplyObjectProperties(ObjNode: TDOMNode; aObj: TFPReportElement); virtual;
@ -95,6 +96,7 @@ Resourcestring
SUnknownBarcodeType = 'Unknown barcode type: "%s"';
SIgnoringAngleOnBarcode = 'Igoring angle on barcode';
SIgnoringShowTextOnBarcode = 'Igoring showtext on barcode';
SLogNullBandAssigned = 'Null (child) band assigned for element of type "%s" at pos %5.3f';
function PixelsToMM(Const Dist: double) : TFPReportUnits;
begin
@ -228,9 +230,11 @@ begin
Result := UTF8Encode(bNode.Attributes.GetNamedItem(aValue).NodeValue);
end;
Class function TFPLazReport.FindBand(aPage : TFPReportCustomPage;aTop : double) : TFPReportCustomBand;
function TFPLazReport.FindBand(aPage : TFPReportCustomPage;aTop : double; AElement : TFPReportElement = Nil) : TFPReportCustomBand;
var
b : Integer;
S : String;
begin
Result := nil;
for b := 0 to aPage.BandCount-1 do
@ -242,6 +246,25 @@ begin
break;
end;
end;
if (Result=Nil) then
begin
if (FNullBand=Nil) then
begin
FNullBand:=TFPReportChildBand.Create(Self);
FNullBand.Name:='NullBand';
FNullBand.Layout.Height:=aPage.Layout.Height;
FNullBand.Parent:=aPage;
end;
Result:=FNullBand;
end;
if (Result=FNullBand) and Assigned(FOnLog) then
begin
if aElement = Nil then
S:='<unknown>'
else
S:=aElement.ClassName;
DoLog(SLogNullBandAssigned,[S,aTop]);
end;
end;
Function TFPLazReport.ConvertBand(aBandNode : TDomNode;aPage: TFPReportCustomPage) : TFPReportCustomBand;