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

IDE: open project: fixed taking ext after choosing symlink

Browse Source 
git-svn-id: trunk@21078 -
This commit is contained in:
mattias 2009-08-02 21:09:38 +00:00
parent edd5d118b5
commit a25ffb7382
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -8789,7 +8789,6 @@ begin
//debugln('TMainIDE.DoOpenProjectFile A2 "'+AFileName+'"');
if not FilenameIsAbsolute(AFilename) then
RaiseException('TMainIDE.DoOpenProjectFile: buggy ExpandFileNameUTF8');
Ext:=lowercase(ExtractFileExt(AFilename));
// check if file exists
if not FileExistsUTF8(AFilename) then begin
@ -8802,6 +8801,7 @@ begin
// check symbolic link
Result:=ChooseSymlink(AFilename);
if Result<>mrOk then exit;
Ext:=lowercase(ExtractFileExt(AFilename));
// if there is a project info file, load that instead
if (Ext<>'.lpi') and (FileExistsUTF8(ChangeFileExt(AFileName,'.lpi'))) then begin