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

Designer: Rename component: fix limitation when renaming the form itself

Browse Source 
git-svn-id: trunk@62775 -
This commit is contained in:
ondrej 2020-03-19 08:18:38 +00:00
parent 5a0a107a61
commit c0484a52e0
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/askcompnamedlg.pas
View File

@ -286,13 +286,16 @@ begin
ErrorMsg:=lisThereIsAlreadyAComponentWithThisName; ErrorMsg:=lisThereIsAlreadyAComponentWithThisName;
exit; exit;
end; end;
if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin if FLookupRoot<>FNewComponent then
ErrorMsg:=lisTheOwnerHasThisName; begin
exit; if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin
end; ErrorMsg:=lisTheOwnerHasThisName;
if SysUtils.CompareText(AName,FLookupRoot.ClassName)=0 then begin exit;
ErrorMsg:=lisTheOwnerClassHasThisName; end;
exit; if SysUtils.CompareText(AName,FLookupRoot.ClassName)=0 then begin
ErrorMsg:=lisTheOwnerClassHasThisName;
exit;
end;
end; end;
if SysUtils.CompareText(AName,GetClassUnitName(FLookupRoot.ClassType))=0 then begin if SysUtils.CompareText(AName,GetClassUnitName(FLookupRoot.ClassType))=0 then begin
ErrorMsg:=lisTheUnitHasThisName; ErrorMsg:=lisTheUnitHasThisName;