paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 06:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: use local config dir to store lazarus settings, so the lazarus directory settings can be readonly on windows too (bug #9448)

Browse Source 
git-svn-id: trunk@15021 -
This commit is contained in:
vincents 2008-04-30 19:49:44 +00:00
parent b35fdf9df9
commit deab575d99
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/include/win/lazbaseconf.inc
View File

@ -180,10 +180,13 @@ begin
DefaultDrive := ExtractFileDrive(ProgramDirectory);
DefaultFPCTarget:= {$I %FPCTARGET%};
DefaultFPCVersion:= {$I %FPCVERSION%};
PrimaryConfigPath := ChompPathDelim(ExtractFilePath(Paramstr(0)));
SecondaryConfigPath := SysUtils.GetEnvironmentVariable('WINDIR');
If SecondaryConfigPath = '' Then
SecondaryConfigPath := DefaultDrive + '\windows';
{$ifndef ver2_2_0}
PrimaryConfigPath:=GetAppConfigDir(False);
{$else}
// fpc 2.2.0 cannot handle spaces in path in some circumstances
PrimaryConfigPath:=ChompPathDelim(ProgramDirectory);
{$endif}
SecondaryConfigPath:=ChompPathDelim(ProgramDirectory);
DefaultFPCSrcDirs[1] := AppendPathDelim(ProgramDirectory) + 'fpcsrc';
DefaultLazarusSrcDirs[1] := DefaultDrive + '\lazarus';
end;