mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-08 02:55:55 +02:00
* Band factory no longer exists
git-svn-id: trunk@57987 -
This commit is contained in:
parent
362d5edb4f
commit
394f279d8e
@ -1058,7 +1058,7 @@ end;
|
|||||||
Function TFPReportDesignerForm.CreateNewPage: TFPReportCustomPage;
|
Function TFPReportDesignerForm.CreateNewPage: TFPReportCustomPage;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Result:=gBandFactory.PageClass.Create(FReport);
|
Result:=gElementFactory.PageClass.Create(FReport);
|
||||||
Result.PageSize.PaperName := 'A4';
|
Result.PageSize.PaperName := 'A4';
|
||||||
{ page margins }
|
{ page margins }
|
||||||
Result.Margins.Left := 30;
|
Result.Margins.Left := 30;
|
||||||
@ -1370,7 +1370,7 @@ begin
|
|||||||
exit;
|
exit;
|
||||||
if (CurrentDesigner=Nil) then
|
if (CurrentDesigner=Nil) then
|
||||||
Exit;
|
Exit;
|
||||||
CurrentDesigner.AddBand(gBandFactory.BandClasses[TFPReportBandType(T)]);
|
CurrentDesigner.AddBand(gElementFactory.BandClasses[TFPReportBandType(T)]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TFPReportDesignerForm.AAddBandUpdate(Sender: TObject);
|
procedure TFPReportDesignerForm.AAddBandUpdate(Sender: TObject);
|
||||||
|
Loading…
Reference in New Issue
Block a user