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

only do a case insensitive name check, if the component is initialized (issue )

Browse Source 
git-svn-id: trunk@9060 -
This commit is contained in:
vincents 2006-04-01 19:32:44 +00:00
parent 4b0d47d1c7
commit 6e2aedbb9a
1 changed files with 5 additions and 4 deletions

9
designer/designer.pp
View File

@ -1978,6 +1978,11 @@ var
i: Integer;
CurComponent: TComponent;
begin
// check if component is initialized
if (CurName='') or (NewName='')
or ((AComponent<>nil) and (csDestroying in AComponent.ComponentState)) then
exit;
// check, if there is already such a component
for i:=0 to FLookupRoot.ComponentCount-1 do begin
CurComponent:=FLookupRoot.Components[i];
@ -1988,10 +1993,6 @@ begin
end;
end;
// check if component is initialized
if (CurName='') or (NewName='')
or ((AComponent<>nil) and (csDestroying in AComponent.ComponentState)) then
exit;
// check if component is the LookupRoot
if AComponent=nil then AComponent:=FLookupRoot;
// consistency check