diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-18 11:35:36 +0000 |
---|---|---|
committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 00:42:48 -0700 |
commit | 507a6918397b500e8e03c3849c172b3768f8c50a (patch) | |
tree | 3ccd21387d0e273cf57aa0022ce723c5ffadb957 | |
parent | 2ef3523c98abd0f4114c173f19ce6cf00bb89d21 (diff) | |
download | fpGUI-507a6918397b500e8e03c3849c172b3768f8c50a.tar.xz |
ide: set current directory as we load a project file.
This means relative paths, used throughout the project, will be correct
-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', ''); |