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

Converter: Preserve .dpr suffix of main project file when target is Lazarus/Delphi. Fixes #17982.

Browse Source 
git-svn-id: trunk@28383 -
This commit is contained in:
juha 2010-11-22 00:00:25 +00:00
parent 9944d63b2a
commit c018cdeda0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
converter/convertdelphi.pas
View File

@ -1400,19 +1400,21 @@ end;
function TConvertDelphiProject.CreateMainSourceFile: TModalResult;
// if .lpr does not exists, copy the .dpr file to the .lpr
// adds the .lpr as main unit to the project, if not already done
const
LprExt='.lpr';
var
MainUnitInfo: TUnitInfo;
begin
// Converter for main LPR file.
fMainUnitConverter:=TConvertDelphiUnit.Create(Self,fOrigPFilename,[]);
fMainUnitConverter.LazFileExt:=LprExt;
if fSettings.Target in [ctLazarusDelphi, ctLazarusDelphiSameDfm] then
fMainUnitConverter.LazFileExt:=ExtractFileExt(fOrigPFilename)
else
fMainUnitConverter.LazFileExt:='.lpr';
fMainUnitConverter.CopyAndLoadFile;
if LazProject.MainUnitInfo=nil then begin
// add .lpr file to project as main unit
MainUnitInfo:=TUnitInfo.Create(fMainUnitConverter.fPascalBuffer);
MainUnitInfo.DefaultSyntaxHighlighter:=ExtensionToLazSyntaxHighlighter(LprExt);
MainUnitInfo.DefaultSyntaxHighlighter:=
ExtensionToLazSyntaxHighlighter(fMainUnitConverter.LazFileExt);
MainUnitInfo.IsPartOfProject:=true;
LazProject.AddFile(MainUnitInfo,false);
LazProject.MainFileID:=0;