From c77c7e8c69ce1a589541a90b65217d3e19ae7ae6 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Apr 2010 15:23:18 +0000 Subject: [PATCH] IDE: rename unit: rename unit of jit class even if no lrs code exists, bug #16276 git-svn-id: trunk@24666 - --- ide/main.pp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ide/main.pp b/ide/main.pp index 213ee5c2de..5db422eae6 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -5542,20 +5542,21 @@ begin then DebugLn(['TMainIDE.DoRenameUnit CodeToolBoss.SaveBufferAs failed: NewResFilename="',NewResFilename,'"']); end; - if (AnUnitInfo.Component<>nil) then - FormEditor1.RenameJITComponentUnitname(AnUnitInfo.Component,NewUnitName); {$IFDEF IDE_DEBUG} debugln(['TMainIDE.DoRenameUnit C ',ResourceCode<>nil]); debugln([' NewResFilePath="',NewResFilePath,'" NewResFilename="',NewResFilename,'"']); if ResourceCode<>nil then debugln('*** ResourceFileName ',ResourceCode.Filename); - if AnUnitInfo.Component<>nil then debugln('*** AnUnitInfo.Component ',dbgsName(AnUnitInfo.Component),' ClassUnitname=',GetClassUnitName(AnUnitInfo.Component.ClassType)); {$ENDIF} end else begin NewResFilename:=''; end; + // rename unit name of jit class + if (AnUnitInfo.Component<>nil) then + FormEditor1.RenameJITComponentUnitname(AnUnitInfo.Component,NewUnitName); {$IFDEF IDE_DEBUG} - writeln('TMainIDE.DoRenameUnit D ',ResourceCode<>nil); + if AnUnitInfo.Component<>nil then debugln('*** AnUnitInfo.Component ',dbgsName(AnUnitInfo.Component),' ClassUnitname=',GetClassUnitName(AnUnitInfo.Component.ClassType)); + debugln(['TMainIDE.DoRenameUnit D ',ResourceCode<>nil]); {$ENDIF} // save new lfm