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

* Add AllocateName

Browse Source 
git-svn-id: trunk@38362 -
This commit is contained in:
michael 2018-02-27 16:16:38 +00:00
parent 1568e68c95
commit 72bbfe34e9
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-report/src/fpreport.pp
View File

@ -321,6 +321,7 @@ type
procedure EndRender; virtual; procedure EndRender; virtual;
public public
Function AllocateName : String;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); virtual; procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); virtual;
procedure ReadElement(AReader: TFPReportStreamer); virtual; procedure ReadElement(AReader: TFPReportStreamer); virtual;
// called when the designer starts editing this component . // called when the designer starts editing this component .
@ -5497,6 +5498,21 @@ begin
FReportState := rsDesign; FReportState := rsDesign;
end; end;
function TFPReportComponent.AllocateName: String;
Var
BaseName : String;
I : Integer;
begin
BaseName:=ClassName;
I:=1;
Repeat
Result:=BaseName+IntToStr(I);
Inc(I);
Until (Owner=Nil) or (Owner.FindComponent(Result)=Nil);
end;
procedure TFPReportComponent.StartDesigning; procedure TFPReportComponent.StartDesigning;
begin begin
SetDesigning(True,True); SetDesigning(True,True);