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

IDE: env files: only warn if something changed

Browse Source 
git-svn-id: trunk@36327 -
This commit is contained in:
mattias 2012-03-25 19:01:35 +00:00
parent aaf6c91f65
commit 251e7ff407
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/files_options.pas
View File

@ -406,6 +406,7 @@ var
Quality: TSDFilenameQuality;
Note: string;
begin
if EnvironmentOptions.LazarusDirectory=FOldLazarusDir then exit(true);
Result := False;
EnvironmentOptions.LazarusDirectory:=LazarusDirComboBox.Text;
NewLazarusDir := EnvironmentOptions.GetParsedLazarusDirectory;
@ -430,6 +431,7 @@ var
CfgCache: TFPCTargetConfigCache;
FPCVer: String;
begin
if EnvironmentOptions.FPCSourceDirectory=FOldFPCSourceDir then exit(true);
Result:=false;
CfgCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
EnvironmentOptions.GetParsedCompilerFilename,'','','',true);
@ -455,6 +457,7 @@ var
Note: string;
Quality: TSDFilenameQuality;
begin
if EnvironmentOptions.CompilerFilename=FOldCompilerFilename then exit(true);
Result:=false;
EnvironmentOptions.CompilerFilename:=CompilerPathComboBox.Text;
NewCompilerFilename:=EnvironmentOptions.GetParsedCompilerFilename;
@ -477,17 +480,18 @@ var
NewTestDir: string;
StopChecking: boolean;
begin
if EnvironmentOptions.TestBuildDirectory=FOldTestDir then exit(true);
EnvironmentOptions.TestBuildDirectory:=TestBuildDirComboBox.Text;
NewTestDir:=EnvironmentOptions.GetParsedTestBuildDirectory;
Result:=SimpleDirectoryCheck(FOldRealTestDir,NewTestDir,
lisEnvOptDlgTestDirNotFoundMsg,StopChecking);
if (not Result) or StopChecking then exit;
end;
function TFilesOptionsFrame.CheckMake: boolean;
var
NewMakeFilename: String;
begin
if EnvironmentOptions.MakeFilename=FOldMakeFilename then exit(true);
EnvironmentOptions.MakeFilename:=MakePathComboBox.Text;
NewMakeFilename:=EnvironmentOptions.GetParsedMakeFilename;
Result:=CheckExecutable(FOldRealMakeFilename,NewMakeFilename,