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

MG: open project now only opens lpi files

Browse Source 
git-svn-id: trunk@439 -
This commit is contained in:
lazarus 2001-11-20 15:09:21 +00:00
parent 52b63a6362
commit 18db0afb36
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/main.pp
View File

@ -3181,11 +3181,15 @@ CheckHeap(IntToStr(GetMem_Cnt));
if ExtractFileNameOnly(AFileName)='' then exit;
AFilename:=ExpandFileName(AFilename);
Ext:=lowercase(ExtractFileExt(AFilename));
if (Ext='.lpr') and (FileExists(ChangeFileExt(AFileName,'.lpi'))) then begin
if (FileExists(ChangeFileExt(AFileName,'.lpi'))) then begin
// load instead of lazarus program file the project info file
AFileName:=ChangeFileExt(AFileName,'.lpi');
Ext:='.lpi';
end;
if Ext<>'.lpi' then begin
Result:=DoOpenEditorFile(AFilename,false);
exit;
end;
repeat
if not FileExists(AFilename) then begin
ACaption:='File not found';
@ -3295,7 +3299,7 @@ var NewProjectType:TProjectType;
ProgramTitle, Ext: string;
MainUnitInfo: TUnitInfo;
begin
//writeln('[TMainIDE.DoCreateProjectForProgram] A');
writeln('[TMainIDE.DoCreateProjectForProgram] A ',ProgramBuf.Filename);
Result:=mrCancel;
if SomethingOfProjectIsModified then begin
@ -3347,7 +3351,7 @@ begin
UpdateCaption;
//writeln('[TMainIDE.DoCreateProjectForProgram] END');
writeln('[TMainIDE.DoCreateProjectForProgram] END');
Result:=mrOk;
end;
@ -4751,6 +4755,9 @@ end.
{ =============================================================================
$Log$
Revision 1.151 2001/11/20 15:09:21 lazarus
MG: open project now only opens lpi files
Revision 1.150 2001/11/19 22:01:25 lazarus
MG: run button and menu run now builds+runs