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

* Fix bug #0033489

Browse Source 
git-svn-id: trunk@57559 -
This commit is contained in:
michael 2018-03-23 10:57:05 +00:00
parent 49785542af
commit cc6780a8d2
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -384,7 +384,7 @@ begin
exit;
if Source is TMemoDragDrop then
begin
E:=TFPReportMemo.Create(ABand);
E:=TFPReportMemo.Create(ABand.Report);
C:=(Source as TMemoDragDrop).Content;
TFPReportMemo(E).Text:=C;
R:=Default(TRect);

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

@ -310,6 +310,7 @@ type
procedure SetFileCaption(const AFileName: String);
procedure SetModified(AValue: Boolean);
procedure SetModifiedStatus;
procedure SetPageCaption(ASheet: TTabSheet);
Protected
procedure MRUMenuManager1RecentFile(Sender: TObject; const AFileName: String);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@ -632,6 +633,24 @@ begin
SBreport.Panels[2].text:=StateNames[CurrentDesigner.DesignerState];
end;
Procedure TFPReportDesignerForm.SetPageCaption(ASheet : TTabSheet);
Var
TS : TPageTabSheet;
PageNo : Integer;
begin
if Not (Asheet is TPageTabSheet) then
exit;
TS:=ASheet as TPageTabSheet;
PageNo:=TS.TabIndex+1;
if (TS.Page.Name<>'') then
TS.Caption:=Format('Page %d (%s)',[PageNo,TS.Page.Name])
else
TS.Caption:=Format('Page %d',[PageNo]);
end;
function TFPReportDesignerForm.AddPageDesign(aPageNo: Integer;
APage: TFPReportCustomPage): TTabSheet;
@ -644,8 +663,7 @@ begin
TS:=TPageTabSheet.Create(Self);
TS.FPage:=APage;
TS.Parent:=PCReport;
TS.Caption:=Format('Page %d',[aPageNo]);
SetPageCaption(TS);
D:=TFPReportDesignerControl.Create(Self);
SB:=TScrollBox.Create(TS);
SB.Parent:=TS;
@ -799,6 +817,7 @@ Var
begin
P:=CreateNewPage;
FReport.AddPage(P);
P.Name:='Page'+IntToStr(FReport.PageCount);
FOI.RefreshReportTree;
PCReport.ActivePage:=AddPageDesign(FReport.PageCount,P);
Modified:=True;
@ -963,7 +982,8 @@ begin
begin
CurrentDesigner.UpdatePageParams;
CurrentDesigner.Reset;
CurrentDesigner.Objects.SelectElement(CurrentDesigner.Page)
CurrentDesigner.Objects.SelectElement(CurrentDesigner.Page);
SetPageCaption(PCReport.ActivePage);
end
else
CurrentDesigner.Invalidate;
@ -1044,6 +1064,7 @@ begin
begin
p:=CreateNewPage;
FReport.AddPage(P);
P.Name:='Page'+IntToStr(FReport.PageCount);
end;
end;