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

IDE: rename unit: chekc lm only for pascal files

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

6
ide/main.pp
View File

@ -6209,18 +6209,18 @@ begin
OldFilename:=AnUnitInfo.Filename;
OldFilePath:=ExtractFilePath(OldFilename);
OldLFMFilename:='';
//if FilenameIsPascalUnit(OldFilename) then begin
if FilenameIsPascalUnit(OldFilename) then begin
OldLFMFilename:=ChangeFileExt(OldFilename,'.lfm');
if not FileExistsUTF8(OldLFMFilename) then
OldLFMFilename:=ChangeFileExt(OldFilename,'.dfm');
// end;
end;
if NewUnitName='' then
NewUnitName:=AnUnitInfo.Unit_Name;
debugln(['TMainIDE.DoRenameUnit ',AnUnitInfo.Filename,' NewUnitName=',NewUnitName,' OldUnitName=',AnUnitInfo.Unit_Name,' LFMCode=',LFMCode<>nil,' LRSCode=',LRSCode<>nil,' NewFilename="',NewFilename,'"']);
// check new resource file
NewLFMFilename:='';
//if FilenameIsPascalUnit(NewFilename) then
if FilenameIsPascalUnit(NewFilename) then
NewLFMFilename:=ChangeFileExt(NewFilename,'.lfm');
if AnUnitInfo.ComponentName='' then begin
// unit has no component