paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 16:33:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed showing broken dependencies

Browse Source 
git-svn-id: trunk@40628 -
This commit is contained in:
mattias 2013-03-24 10:51:18 +00:00
parent d8b0df8e4d
commit 78ab6ea5d0
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packager/brokendependenciesdlg.pas
View File

@ -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;