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

IDE: fixed Create project from file if file was open in editor

Browse Source 
git-svn-id: trunk@21718 -
This commit is contained in:
mattias 2009-09-15 21:50:42 +00:00
parent 3d9c73bf02
commit 2cd6fe9f38
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -9087,6 +9087,9 @@ begin
end; end;
end; end;
// reload file (if the file was open in the IDE, closeproject unloaded it)
ProgramBuf.Reload;
// switch codetools to new project directory // switch codetools to new project directory
CodeToolBoss.GlobalValues.Variables[ExternalMacroStart+'ProjPath']:= CodeToolBoss.GlobalValues.Variables[ExternalMacroStart+'ProjPath']:=
ExpandFileNameUTF8(ExtractFilePath(ProgramBuf.Filename)); ExpandFileNameUTF8(ExtractFilePath(ProgramBuf.Filename));