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

IDE: initial setup dialog: se environment vars FPCDIR and PP, patch from Maciej

Browse Source 
git-svn-id: trunk@50901 -
This commit is contained in:
mattias 2015-12-18 10:27:06 +00:00
parent 540bd3a671
commit d57608b610
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/initialsetupproc.pas
View File

@ -467,6 +467,10 @@ begin
'EnvironmentOptions/CompilerFilename/Value');
if CheckFile(AFilename,Result) then exit;
// check environment variable PP
AFileName := GetEnvironmentVariableUTF8('PP');
if CheckFile(AFilename,Result) then exit;
// search fpc(.exe) in PATH
if CheckFile('fpc'+ExeExt,Result) then exit;
@ -730,6 +734,10 @@ begin
'EnvironmentOptions/FPCSourceDirectory/Value');
if Check(AFilename,Result) then exit;
// check environment variable FPCDIR
AFileName := GetEnvironmentVariableUTF8('FPCDIR');
if Check(AFilename,Result) then exit;
// check history
Dirs:=EnvironmentOptions.FPCSourceDirHistory;
if Dirs<>nil then