paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Formatting.

Browse Source 
git-svn-id: trunk@52834 -
This commit is contained in:
juha 2016-08-18 20:51:04 +00:00
parent fcc2649c3b
commit 4bbf24e69f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -4441,11 +4441,9 @@ begin
//debugln('TLazSourceFileManager.CreateNewForm START ',NewUnitInfo.Filename,' ',AncestorType.ClassName,' ',dbgs(ResourceCode<>nil));
// create a buffer for the new resource file and for the LFM file
if ResourceCode=nil then begin
ResourceCode:=
CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,
ResourceFileExt));
end;
if ResourceCode=nil then
ResourceCode:=CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,
ResourceFileExt));
//debugln('TLazSourceFileManager.CreateNewForm B ',ResourceCode.Filename);
ResourceCode.Source:='{ '+LRSComment+' }';
CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,'.lfm'));