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

IDE: rename unit: fix resource directive only if lfm exists

Browse Source 
git-svn-id: trunk@36487 -
This commit is contained in:
mattias 2012-03-31 17:24:37 +00:00
parent 3e852e27be
commit 11f34a7ec5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -6289,13 +6289,13 @@ begin
LFMCode:=CodeToolBoss.LoadFile(NewLFMFilename,true,false);
if LFMCode<>nil then
NewLFMFilename:=LFMCode.Filename;
end;
ConvTool:=TConvDelphiCodeTool.Create(NewSource);
try
if not ConvTool.RenameResourceDirectives then
debugln(['TMainIDE.DoRenameUnit WARNING: unable to rename resource directive in "',NewSource.Filename,'"']);
finally
ConvTool.Free;
ConvTool:=TConvDelphiCodeTool.Create(NewSource);
try
if not ConvTool.RenameResourceDirectives then
debugln(['TMainIDE.DoRenameUnit WARNING: unable to rename resource directive in "',NewSource.Filename,'"']);
finally
ConvTool.Free;
end;
end;
end;