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

IDE: create project for program file: set TargetFilename to source filenme, bug #23379

Browse Source 
git-svn-id: trunk@41846 -
This commit is contained in:
mattias 2013-06-23 18:06:19 +00:00
parent 9e0d1a452a
commit e02311e159
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/sourcefilemanager.pas
View File

@ -1474,7 +1474,8 @@ begin
if ([ofRegularFile,ofRevert,ofProjectLoading]*Flags=[])
and FilenameIsAbsolute(AFilename) and FileExistsUTF8(AFilename) then begin
// check if file is a lazarus project (.lpi)
if (CompareFileExt(AFilename,'.lpi',false)=0) then begin
if (CompareFileExt(AFilename,'.lpi',false)=0) then
begin
case
IDEQuestionDialog(
lisOpenProject, Format(lisOpenTheProject, [AFilename]), mtConfirmation,
@ -1487,10 +1488,11 @@ begin
mrNoToAll: include(Flags, ofRegularFile);
mrCancel: exit(mrCancel);
end;
end;
// check if file is a lazarus package (.lpk)
if (CompareFileExt(AFilename,'.lpk',false)=0) then begin
if (CompareFileExt(AFilename,'.lpk',false)=0) then
begin
case
IDEQuestionDialog(
lisOpenPackage, Format(lisOpenThePackage, [AFilename]), mtConfirmation,
@ -2163,6 +2165,7 @@ begin
MainUnitInfo:=Project1.MainUnitInfo;
MainUnitInfo.Source:=ProgramBuf;
Project1.ProjectInfoFile:=ChangeFileExt(ProgramBuf.Filename,'.lpi');
Project1.CompilerOptions.TargetFilename:=ExtractFileNameOnly(ProgramBuf.Filename);
MainIDE.DoMergeDefaultProjectOptions(Project1);
MainIDE.UpdateCaption;
IncreaseCompilerParseStamp;