From 624af549f839c99794aab2595d9ebc048cad7af1 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 31 May 2014 22:27:06 +0000
Subject: [PATCH] IDE: cleanup

git-svn-id: trunk@45266 -
---
 ide/sourcefilemanager.pas | 26 --------------------------
 1 file changed, 26 deletions(-)

diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index b9832da511..830ffd7f1f 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -66,7 +66,6 @@ type
       SearchFlags: TProjectFileSearchFlags): boolean;
     procedure RemovePathFromBuildModes(ObsoletePaths: String; pcos: TParsedCompilerOptString);
     function ShowCheckListBuildModes(DlgMsg: String): Boolean;
-    function ShowListedBuildModes(DlgMsg: String; AList: TStringList): Boolean;
   public
     constructor Create;
     destructor Destroy; override;
@@ -2680,31 +2679,6 @@ begin
   Result:=FListForm.ShowModal=mrOK;
 end;
 
-function TLazSourceFileManager.ShowListedBuildModes(DlgMsg: String; AList: TStringList): Boolean;
-var
-  i: Integer;
-begin
-  if Assigned(FListForm) then
-    FListForm.CheckListBox1.Clear
-  else begin
-    FListForm:=TGenericCheckListForm.Create(Nil);
-    FListForm.Caption:=lisAvailableProjectBuildModes;
-    FListForm.InfoLabel.Caption:=DlgMsg;
-  end;
-  // Fill the CheckListBox with items from AList
-  for i:=0 to AList.Count-1 do begin
-    FListForm.CheckListBox1.Items.Add(AList[i]);
-    FListForm.CheckListBox1.Checked[i]:=True;
-  end;
-  Result:=FListForm.ShowModal=mrOK;
-  AList.Clear;
-  // Copy only checked items back to AList
-  if Result then
-    for i := 0 to FListForm.CheckListBox1.Count-1 do
-      if FListForm.CheckListBox1.Checked[i] then
-        AList.Add(FListForm.CheckListBox1.Items[i]);
-end;
-
 function TLazSourceFileManager.AddPathToBuildModes(aPath, CurDirectory: string;
   IsIncludeFile: Boolean): Boolean;
 var