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

fixed using old name on pasting components

Browse Source 
git-svn-id: trunk@9187 -
This commit is contained in:
mattias 2006-04-25 19:31:03 +00:00
parent d05b7c6e0e
commit 932a652c95
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
designer/jitforms.pp
View File

@ -1239,22 +1239,11 @@ end;
procedure TJITComponentList.ReaderSetName(Reader: TReader; procedure TJITComponentList.ReaderSetName(Reader: TReader;
Component: TComponent; var NewName: Ansistring); Component: TComponent; var NewName: Ansistring);
var
CurName: String;
i: Integer;
begin begin
// writeln('[TJITComponentList.ReaderSetName] OldName="'+Component.Name+'" NewName="'+NewName+'"'); // writeln('[TJITComponentList.ReaderSetName] OldName="'+Component.Name+'" NewName="'+NewName+'"');
if jclAutoRenameComponents in FFlags then begin if jclAutoRenameComponents in FFlags then begin
while (NewName<>'') and (NewName[length(NewName)] in ['0'..'9']) do while FCurReadJITComponent.FindComponent(NewName)<>nil do
System.Delete(NewName,length(NewName),1); NewName:=CreateNextIdentifier(NewName);
if NewName='' then
NewName:=Component.ClassName;
i:=0;
repeat
inc(i);
CurName:=NewName+IntToStr(i);
until FCurReadJITComponent.FindComponent(CurName)=nil;
NewName:=CurName;
end; end;
end; end;