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

fixed renaming a TDataModule

Browse Source 
git-svn-id: trunk@4393 -
This commit is contained in:
mattias 2003-07-11 11:56:44 +00:00
parent 2d244346ef
commit dc7a82ecd3
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/main.pp
View File

@ -8503,6 +8503,7 @@ var
end; end;
begin begin
writeln('TMainIDE.OnDesignerRenameComponent Old=',AComponent.Name,':',AComponent.ClassName,' New=',NewName);
if (not IsValidIdent(NewName)) or (NewName='') then if (not IsValidIdent(NewName)) or (NewName='') then
raise Exception.Create(Format(lisComponentNameIsNotAValidIdentifier, ['"', raise Exception.Create(Format(lisComponentNameIsNotAValidIdentifier, ['"',
Newname, '"'])); Newname, '"']));
@ -8515,14 +8516,8 @@ begin
if CodeToolBoss.IsKeyWord(ActiveUnitInfo.Source,NewName) then if CodeToolBoss.IsKeyWord(ActiveUnitInfo.Source,NewName) then
raise Exception.Create(Format(lisComponentNameIsKeyword, ['"', Newname, '"'] raise Exception.Create(Format(lisComponentNameIsKeyword, ['"', Newname, '"']
)); ));
if ADesigner.LookupRoot<>nil then begin
// rename published variable in form source if AComponent=ADesigner.LookupRoot then begin
BossResult:=CodeToolBoss.RenamePublishedVariable(ActiveUnitInfo.Source,
ADesigner.LookupRoot.ClassName,
AComponent.Name,NewName,AComponent.ClassName);
ApplyBossResult(Format(lisUnableToRenameVariableInSourceSeeMessages, [#13])
);
end else if AComponent=ADesigner.LookupRoot then begin
// rename owner component (e.g. the form) // rename owner component (e.g. the form)
// ToDo: // ToDo:
// rename form in source // rename form in source
@ -8560,7 +8555,13 @@ begin
DoJumpToCodeToolBossError; DoJumpToCodeToolBossError;
end; end;
end; end;
end else if ADesigner.LookupRoot<>nil then begin
// rename published variable in form source
BossResult:=CodeToolBoss.RenamePublishedVariable(ActiveUnitInfo.Source,
ADesigner.LookupRoot.ClassName,
AComponent.Name,NewName,AComponent.ClassName);
ApplyBossResult(Format(lisUnableToRenameVariableInSourceSeeMessages, [#13])
);
end else begin end else begin
RaiseException('TMainIDE.OnDesignerRenameComponent internal error:'+AComponent.Name+':'+AComponent.ClassName); RaiseException('TMainIDE.OnDesignerRenameComponent internal error:'+AComponent.Name+':'+AComponent.ClassName);
end; end;
@ -9354,6 +9355,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.622 2003/07/11 11:56:44 mattias
fixed renaming a TDataModule
Revision 1.621 2003/07/09 00:35:38 mattias Revision 1.621 2003/07/09 00:35:38 mattias
fixed da_IF and find record case variable fixed da_IF and find record case variable