paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 20:20:36 +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

3
designer/askcompnamedlg.pas
View File

@ -286,6 +286,8 @@ begin
ErrorMsg:=lisThereIsAlreadyAComponentWithThisName; ErrorMsg:=lisThereIsAlreadyAComponentWithThisName;
exit; exit;
end; end;
if FLookupRoot<>FNewComponent then
begin
if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin
ErrorMsg:=lisTheOwnerHasThisName; ErrorMsg:=lisTheOwnerHasThisName;
exit; exit;
@ -294,6 +296,7 @@ begin
ErrorMsg:=lisTheOwnerClassHasThisName; ErrorMsg:=lisTheOwnerClassHasThisName;
exit; 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;
exit; exit;