From 78ab6ea5d001794af9b87be0553935abe021ed3d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 24 Mar 2013 10:51:18 +0000
Subject: [PATCH] IDE: fixed showing broken dependencies

git-svn-id: trunk@40628 -
---
 packager/brokendependenciesdlg.pas | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/packager/brokendependenciesdlg.pas b/packager/brokendependenciesdlg.pas
index cd43a51c00..4007e26a93 100644
--- a/packager/brokendependenciesdlg.pas
+++ b/packager/brokendependenciesdlg.pas
@@ -44,6 +44,9 @@ uses
   IDEWindowIntf, LazarusIDEStrConsts, Project, PackageDefs, PackageSystem;
 
 type
+
+  { TBrokenDependenciesDialog }
+
   TBrokenDependenciesDialog = class(TForm)
     NoteLabel: TLabel;
     DependencyListView: TListView;
@@ -51,14 +54,14 @@ type
       var CloseAction: TCloseAction);
     procedure BrokenDependenciesDialogResize(Sender: TObject);
   private
-    fButtons: TList; // list of TBitBtn
+    fButtons: TFPList; // list of TBitBtn
     fButtonSet: TMsgDlgButtons;
     function GetButtons(Btn: TMsgDlgBtn): TBitBtn;
     procedure SetupComponents;
     procedure ClearButtons;
   public
     DependencyList: TFPList;
-    constructor Create(TheOwner: TComponent); override;
+    constructor CreateNew(TheOwner: TComponent; Num: Integer = 0); override;
     destructor Destroy; override;
     property Buttons[Btn: TMsgDlgBtn]: TBitBtn read GetButtons;
     procedure CreateButtons(BtnSet: TMsgDlgButtons);
@@ -81,7 +84,7 @@ function ShowBrokenDependencies(DependencyList: TFPList;
 var
   BrokenDependenciesDialog: TBrokenDependenciesDialog;
 begin
-  BrokenDependenciesDialog:=TBrokenDependenciesDialog.Create(nil);
+  BrokenDependenciesDialog:=TBrokenDependenciesDialog.CreateNew(nil);
   BrokenDependenciesDialog.DependencyList:=DependencyList;
   with BrokenDependenciesDialog do begin
     CreateButtons(BtnSet);
@@ -168,16 +171,18 @@ procedure TBrokenDependenciesDialog.ClearButtons;
 var
   i: Integer;
 begin
-  for i:=0 to fButtons.Count-1 do TBitBtn(fButtons[i]).Free;
+  for i:=0 to fButtons.Count-1 do
+    TBitBtn(fButtons[i]).Free;
   fButtons.Clear;
 end;
 
-constructor TBrokenDependenciesDialog.Create(TheOwner: TComponent);
+constructor TBrokenDependenciesDialog.CreateNew(TheOwner: TComponent;
+  Num: Integer);
 begin
-  inherited Create(TheOwner);
+  inherited CreateNew(TheOwner,Num);
   Name:='BrokenDependenciesDialog';
   Caption:=lisA2PBrokenDependencies;
-  fButtons:=TList.Create;
+  fButtons:=TFPList.Create;
   SetupComponents;
   OnResize:=@BrokenDependenciesDialogResize;
   Position:=poScreenCenter;
@@ -189,7 +194,7 @@ end;
 destructor TBrokenDependenciesDialog.Destroy;
 begin
   ClearButtons;
-  fButtons.Free;
+  FreeAndNil(fButtons);
   inherited Destroy;
 end;