paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 18:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed initial designed control renaming

Browse Source 
git-svn-id: trunk@1650 -
This commit is contained in:
lazarus 2002-04-29 06:42:52 +00:00
parent 91bbcd7a92
commit c4475a2116
1 changed files with 4 additions and 0 deletions

4
designer/designer.pp
View File

@ -809,7 +809,11 @@ end;
procedure TDesigner.ValidateRename(AComponent: TComponent;
const CurName, NewName: string);
Begin
// check if contol is initialized
if CurName='' then exit;
// check if control is the form
if AComponent=nil then AComponent:=FCustomForm;
// consistency check
if CurName<>AComponent.Name then
writeln('WARNING: TDesigner.ValidateRename: OldComponentName="',CurName,'"');
if Assigned(OnRenameComponent) then