diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-18 11:35:36 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-18 11:35:36 +0000 |
commit | fec41b17a973b4e4e8d3dba75aef4634a1c72365 (patch) | |
tree | c71438bef5d82d3dc63e4bde734c941cbb57c639 /examples/apps/ide/src/project.pas | |
parent | 3d6095876e7ec0bbd7b37f6f96ba8a6aa749e92d (diff) | |
download | fpGUI-fec41b17a973b4e4e8d3dba75aef4634a1c72365.tar.xz |
ide: set current directory as we load a project file.
This means relative paths, used throughout the project, will be correct
Diffstat (limited to 'examples/apps/ide/src/project.pas')
-rw-r--r-- | examples/apps/ide/src/project.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/apps/ide/src/project.pas b/examples/apps/ide/src/project.pas index a337b81b..a82a23c5 100644 --- a/examples/apps/ide/src/project.pas +++ b/examples/apps/ide/src/project.pas @@ -270,6 +270,7 @@ begin FIniFile := TfpgINIFile.CreateExt(AProjectFile); ProjectDir := fpgExtractFilePath(AProjectFile); + fpgSetCurrentDir(ProjectDir); ProjectName := FIniFile.ReadString(cProjectOptions, 'ProjectName', fpgChangeFileExt(fpgExtractFileName(AProjectFile), '')); MainUnit := FIniFile.ReadString(cProjectOptions, 'MainUnit', ''); TargetFile := FIniFile.ReadString(cProjectOptions, 'TargetFile', ''); |