paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 13:47:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: DoOpenFileAndJumpToPos: do not open project

Browse Source 
git-svn-id: trunk@53213 -
This commit is contained in:
mattias 2016-10-26 07:45:23 +00:00
parent 85e2468d35
commit c7f7b34cac
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

@ -6101,7 +6101,7 @@ var
ActiveSrcEdit, OldActiveSrcEdit: TSourceEditor; ActiveSrcEdit, OldActiveSrcEdit: TSourceEditor;
begin begin
GetCurrentUnit(OldActiveSrcEdit,OldActiveUnitInfo); GetCurrentUnit(OldActiveSrcEdit,OldActiveUnitInfo);
Result:=DoOpenEditorFile(AFilename, PageIndex, WindowIndex, Flags); Result:=DoOpenEditorFile(AFilename, PageIndex, WindowIndex, Flags+[ofRegularFile]);
if Result<>mrOk then exit; if Result<>mrOk then exit;
GetCurrentUnit(ActiveSrcEdit,ActiveUnitInfo); GetCurrentUnit(ActiveSrcEdit,ActiveUnitInfo);
if ActiveUnitInfo<>nil then begin if ActiveUnitInfo<>nil then begin