IDE: cleanup

git-svn-id: trunk@33610 -

ide/checkcompileropts.lfm

@@ -9,7 +9,7 @@ object CheckCompilerOptsDlg: TCheckCompilerOptsDlg
   ClientHeight = 307
   ClientWidth = 624
   Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.31'
   object OutputGroupBox: TGroupBox
     Left = 6
     Height = 153
@@ -74,6 +74,14 @@ object CheckCompilerOptsDlg: TCheckCompilerOptsDlg
     Height = 26
     Top = 275
     Width = 612
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
     TabOrder = 3
     ShowButtons = [pbClose]
     ShowBevel = False

ide/checkcompileropts.pas

@@ -209,16 +209,6 @@ end;
 
 function TCheckCompilerOptsDlg.CheckSpecialCharsInPath(const Title, ExpandedPath: string
   ): TModalResult;
-  
-  procedure AddStr(var s: string; const Addition: string);
-  begin
-    if s='' then
-      s:=lisCCOContains
-    else
-      s:=s+', ';
-    s:=s+Addition;
-  end;
-  
 var
   Warning: String;
   ErrorMsg: String;
@@ -865,9 +855,8 @@ begin
     for cp:=Low(TParsedCompilerOptString) to High(TParsedCompilerOptString) do
     begin
       if cp in ParsedCompilerSearchPaths then begin
-        Result:=CheckSpecialCharsInPath(
-          copy(EnumToStr(cp),5,100),
-          Options.ParsedOpts.GetParsedValue(cp));
+        Result:=CheckSpecialCharsInPath(copy(EnumToStr(cp),5,100),
+                                        Options.ParsedOpts.GetParsedValue(cp));
         if not (Result in [mrOk,mrIgnore]) then exit;
       end;
     end;