paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 12:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enable scrollbars when paper size is bigger than available space. (Bug ID #32482)

Browse Source 
git-svn-id: trunk@57397 -
This commit is contained in:
michael 2018-02-27 16:56:39 +00:00
parent fa64cfae8b
commit 3d6ae4ccb4
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpreport/design/fpreportdesignctrl.pp
View File

@ -80,6 +80,7 @@ Type
procedure DoneMoveSelection;
procedure DoneResizeSelection;
procedure DoneSelectRectangle(Extend: Boolean);
procedure DoPagesizeChange(Sender: TObject);
procedure DoReportChanged(Sender: TObject);
procedure ExtendAddRectangle;
procedure ExtendSelectRectangle;
@ -319,6 +320,7 @@ procedure TFPReportDesignerControl.SetPage(AValue: TFPReportCustomPage);
begin
If AValue=FPage then exit;
FPage:=AValue;
FPage.OnPageSizeChange:=@DoPagesizeChange;
UpdatePageParams;
FObjects.LoadFromPage(AValue);
FObjects.OrderBands(Canvas,CurrentDPI);
@ -1019,6 +1021,12 @@ begin
SetDesignerState(dsNeutral);
end;
procedure TFPReportDesignerControl.DoPagesizeChange(Sender: TObject);
begin
UpdatePageParams;
Invalidate;
end;
procedure TFPReportDesignerControl.DoReportChanged(Sender: TObject);
begin
Invalidate;

8
components/fpreport/design/frmfpreportdesignermain.pp
View File

@ -598,17 +598,21 @@ function TFPReportDesignerForm.AddPageDesign(aPageNo: Integer;
Var
TS : TPageTabSheet;
SB : TScrollBox;
D : TFPReportDesignerControl;
begin
TS:=TPageTabSheet.Create(Self);
TS.FPage:=APage;
TS.Parent:=PCReport;
// TS.AutoScroll:=True;
TS.Caption:=Format('Page %d',[aPageNo]);
D:=TFPReportDesignerControl.Create(Self);
SB:=TScrollBox.Create(TS);
SB.Parent:=TS;
SB.Align:=alClient;
TS.FDesigner:=D;
D.Parent:=TS;
D.Parent:=SB;
// FDesign.Align:=alClient;
// fdesign.SetBounds(0,0,ClientWidth,ClientHeight);
D.Top:=0;