From 251e7ff407ece0a7da4acc19a1a5b39514f02962 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 25 Mar 2012 19:01:35 +0000
Subject: [PATCH] IDE: env files: only warn if something changed

git-svn-id: trunk@36327 -
---
 ide/frames/files_options.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ide/frames/files_options.pas b/ide/frames/files_options.pas
index 0ed1a9ca62..03a24e1c6e 100644
--- a/ide/frames/files_options.pas
+++ b/ide/frames/files_options.pas
@@ -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,