|
@@ -88,6 +88,7 @@ type
|
|
|
TFPReportCustomMemo = class;
|
|
TFPReportCustomMemo = class;
|
|
|
TFPReportChildBand = class;
|
|
TFPReportChildBand = class;
|
|
|
TFPReportCustomDataBand = class;
|
|
TFPReportCustomDataBand = class;
|
|
|
|
|
+ TFPReportCustomChildBand = Class;
|
|
|
TFPReportCustomDataHeaderBand = class;
|
|
TFPReportCustomDataHeaderBand = class;
|
|
|
TFPReportCustomDataFooterBand = class;
|
|
TFPReportCustomDataFooterBand = class;
|
|
|
TFPReportCustomGroupHeaderBand = class;
|
|
TFPReportCustomGroupHeaderBand = class;
|
|
@@ -878,7 +879,7 @@ type
|
|
|
|
|
|
|
|
TFPReportCustomBand = class(TFPReportElementWithChildren)
|
|
TFPReportCustomBand = class(TFPReportElementWithChildren)
|
|
|
private
|
|
private
|
|
|
- FChildBand: TFPReportChildBand;
|
|
|
|
|
|
|
+ FChildBand: TFPReportCustomChildBand;
|
|
|
FParentBand,
|
|
FParentBand,
|
|
|
FMainBand: TFPReportCustomBand;
|
|
FMainBand: TFPReportCustomBand;
|
|
|
FKeepTogetherWithChildren: Boolean;
|
|
FKeepTogetherWithChildren: Boolean;
|
|
@@ -890,7 +891,7 @@ type
|
|
|
FBandPosition: TFPReportBandPosition;
|
|
FBandPosition: TFPReportBandPosition;
|
|
|
function GetFont: TFPReportFont;
|
|
function GetFont: TFPReportFont;
|
|
|
procedure SetBandPosition(pBandPosition: TFPReportBandPosition); virtual;
|
|
procedure SetBandPosition(pBandPosition: TFPReportBandPosition); virtual;
|
|
|
- procedure SetChildBand(AValue: TFPReportChildBand);
|
|
|
|
|
|
|
+ procedure SetChildBand(AValue: TFPReportCustomChildBand);
|
|
|
procedure ApplyStretchMode;
|
|
procedure ApplyStretchMode;
|
|
|
procedure SetFont(AValue: TFPReportFont);
|
|
procedure SetFont(AValue: TFPReportFont);
|
|
|
procedure SetKeepTogetherWithChildren(pKeepTogetherWithChildren: Boolean); virtual;
|
|
procedure SetKeepTogetherWithChildren(pKeepTogetherWithChildren: Boolean); virtual;
|
|
@@ -932,7 +933,7 @@ type
|
|
|
procedure ReadElement(AReader: TFPReportStreamer); override;
|
|
procedure ReadElement(AReader: TFPReportStreamer); override;
|
|
|
property VisibleOnPage: TFPReportVisibleOnPage read FVisibleOnPage write SetVisibleOnPage;
|
|
property VisibleOnPage: TFPReportVisibleOnPage read FVisibleOnPage write SetVisibleOnPage;
|
|
|
function EvaluateVisibility: boolean; override;
|
|
function EvaluateVisibility: boolean; override;
|
|
|
- property ChildBand: TFPReportChildBand read FChildBand write SetChildBand;
|
|
|
|
|
|
|
+ property ChildBand: TFPReportCustomChildBand read FChildBand write SetChildBand;
|
|
|
property ParentBand: TFPReportCustomBand read FParentBand;
|
|
property ParentBand: TFPReportCustomBand read FParentBand;
|
|
|
property MainBand: TFPReportCustomBand read FMainBand;
|
|
property MainBand: TFPReportCustomBand read FMainBand;
|
|
|
property Page : TFPReportCustomPage read GetReportPage;
|
|
property Page : TFPReportCustomPage read GetReportPage;
|
|
@@ -7885,7 +7886,7 @@ begin
|
|
|
FBandPosition := pBandPosition;
|
|
FBandPosition := pBandPosition;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-procedure TFPReportCustomBand.SetChildBand(AValue: TFPReportChildBand);
|
|
|
|
|
|
|
+procedure TFPReportCustomBand.SetChildBand(AValue: TFPReportCustomChildBand);
|
|
|
var
|
|
var
|
|
|
b: TFPReportCustomBand;
|
|
b: TFPReportCustomBand;
|
|
|
begin
|
|
begin
|
michael