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

IDE: fixed loading default unit when no lps exists

Browse Source 
git-svn-id: trunk@46778 -
This commit is contained in:
mattias 2014-11-07 14:59:42 +00:00
parent 001b440270
commit ba6f0da620
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/project.pp
View File

@ -1030,7 +1030,7 @@ type
function GetCompileSourceFilename: string;
procedure AutoAddOutputDirToIncPath;
// state file
// compile state file
function LoadStateFile(IgnoreErrors: boolean): TModalResult;
function SaveStateFile(const CompilerFilename, CompilerParams: string;
Complete: boolean): TModalResult;
@ -5684,7 +5684,10 @@ var
AnUnitInfo: TUnitInfo;
BestUnitInfo: TUnitInfo;
begin
if FirstUnitWithEditorIndex<>nil then exit;
BestUnitInfo:=FirstUnitWithEditorIndex;
if (BestUnitInfo<>nil) and (BestUnitInfo.Loaded)
and FileExistsCached(BestUnitInfo.Filename) then
exit;
BestUnitInfo:=nil;
if (MainUnitID>=0) then begin