From afd9191244a747b3facbb855dfc2bb2f0ed1ffb9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Mar 2015 15:12:17 +0000
Subject: [PATCH] IDE: checked compiler warnings, clean up

git-svn-id: trunk@48224 -
---
 converter/convertertypes.pas | 4 ++--
 ide/codetoolsdefines.pas     | 8 +++-----
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/converter/convertertypes.pas b/converter/convertertypes.pas
index d9d604d3de..d3d2b6ca91 100644
--- a/converter/convertertypes.pas
+++ b/converter/convertertypes.pas
@@ -61,7 +61,7 @@ type
   public
     constructor Create;
     destructor Destroy; override;
-    function Find(aParentType: string; var Index: Integer): Boolean;
+    function Find(aParentType: string; out Index: Integer): Boolean;
     function AddVisualOffset(const aParentType: string; aTop, aLeft: Integer): integer;
     property Items[Index: Integer]: TVisualOffset read GetVisualOffset
                                                  write SetVisualOffset; default;
@@ -152,7 +152,7 @@ begin
   inherited Destroy;
 end;
 
-function TVisualOffsets.Find(aParentType: string; var Index: Integer): Boolean;
+function TVisualOffsets.Find(aParentType: string; out Index: Integer): Boolean;
 var
   i: Integer;
 begin
diff --git a/ide/codetoolsdefines.pas b/ide/codetoolsdefines.pas
index 7b573e37b5..939ea5f668 100644
--- a/ide/codetoolsdefines.pas
+++ b/ide/codetoolsdefines.pas
@@ -237,8 +237,7 @@ type
     function ConsistencyCheck: integer;
     procedure SetValuesEditable(AValue: boolean);
   public
-    procedure SetOptions(ACodeToolBoss: TCodeToolManager;
-      Options: TCodeToolsOptions);
+    procedure SetOptions(ACodeToolBoss: TCodeToolManager);
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
     property DefineTree: TDefineTree read FDefineTree;
@@ -260,7 +259,7 @@ function ShowCodeToolsDefinesEditor(ACodeToolBoss: TCodeToolManager;
 var CodeToolsDefinesEditor: TCodeToolsDefinesEditor;
 begin
   CodeToolsDefinesEditor:=TCodeToolsDefinesEditor.Create(nil);
-  CodeToolsDefinesEditor.SetOptions(ACodeToolBoss,Options);
+  CodeToolsDefinesEditor.SetOptions(ACodeToolBoss);
   CodeToolsDefinesEditor.Macros:=Macros;
   Result:=CodeToolsDefinesEditor.ShowModal;
   if Result=mrOk then begin
@@ -1390,8 +1389,7 @@ begin
   InsertFilePathBitBtn.Enabled:=AValue;
 end;
 
-procedure TCodeToolsDefinesEditor.SetOptions(ACodeToolBoss: TCodeToolManager;
-  Options: TCodeToolsOptions);
+procedure TCodeToolsDefinesEditor.SetOptions(ACodeToolBoss: TCodeToolManager);
 begin
   FLastSelectedNode:=nil;
   FBoss:=ACodeToolBoss;