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

IDE: reading path of LazarusDirectory: if relative, expand with pcp

Browse Source 
git-svn-id: trunk@31296 -
This commit is contained in:
mattias 2011-06-20 13:15:59 +00:00
parent 47d34594f7
commit da6d0edaad
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/environmentopts.pp
View File

@ -969,6 +969,7 @@ var
Cfg: TXMLOptionsStorage;
EventType: TDBGEventType;
NodeName: String;
s: String;
begin
Cfg:=nil;
try
@ -1076,15 +1077,17 @@ begin
if not OnlyDesktop then begin
// files
LazarusDirectory:=XMLConfig.GetValue(
Path+'LazarusDirectory/Value',FLazarusDirectory);
s:=TrimFilename(
XMLConfig.GetValue(Path+'LazarusDirectory/Value',FLazarusDirectory));
if not FilenameIsAbsolute(s) then
s:=TrimFilename(AppendPathDelim(GetPrimaryConfigPath)+s);
LazarusDirectory:=s;
LoadRecentList(XMLConfig,FLazarusDirsHistory,
Path+'LazarusDirectory/History/');
if FLazarusDirsHistory.Count=0 then begin
if FLazarusDirsHistory.Count=0 then
FLazarusDirsHistory.Add(ProgramDirectory(true));
end;
CompilerFilename:=TrimFilename(XMLConfig.GetValue(
Path+'CompilerFilename/Value',FCompilerFilename));
Path+'CompilerFilename/Value',FCompilerFilename));
LoadRecentList(XMLConfig,FCompilerFileHistory,
Path+'CompilerFilename/History/');
if FCompilerFileHistory.Count=0 then