← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to packager/brokendependenciesdlg.pas

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2013-06-22 13:31:45 UTC
  • mfrom: (1.1.10)
  • Revision ID: package-import@ubuntu.com-20130622133145-kf2awlf322usnrfv
Tags: 1.0.10+dfsg-1
http://bugs.debian.org/712834
[ Abou Al Montacir ]
* New upstream maintenance release offering many fixes improving the IDE and
  the LCL stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch#Fixes_for_1.0.10
* Use compiler configuration file to pass debian custom compiler flags.
* Recover FTBFS on arm machines fix, dropped unintentionally when upgrading
  to 1.0.8. QT4 based LCL WS could not use QTOPIA. (Closes: Bug#712834)
* Update copyright notice to highlight that upstream source where repacked.

[ Paul Gevers ]
* Update Standard to 3.9.4 (no changes needed)
* Remove obsolete DM-Upload-Allowed
* Update lintian overrides
* Add myself to uploaders
* Update Vsc-Browser URL to the browse interface

Show diffs side-by-side

added added

removed removed

Lines of Context:
packager/brokendependenciesdlg.pas
1
 
{  $Id: brokendependenciesdlg.pas 9815 2006-09-05 11:36:29Z mattias $  }
 
1
{  $Id: brokendependenciesdlg.pas 40629 2013-03-24 10:52:25Z mattias $  }
2
2
{
3
3
 /***************************************************************************
4
4
                          brokendependenciesdlg.pas
44
44
  IDEWindowIntf, LazarusIDEStrConsts, Project, PackageDefs, PackageSystem;
45
45
 
46
46
type
 
47
 
 
48
  { TBrokenDependenciesDialog }
 
49
 
47
50
  TBrokenDependenciesDialog = class(TForm)
48
51
    NoteLabel: TLabel;
49
52
    DependencyListView: TListView;
51
54
      var CloseAction: TCloseAction);
52
55
    procedure BrokenDependenciesDialogResize(Sender: TObject);
53
56
  private
54
 
    fButtons: TList; // list of TBitBtn
 
57
    fButtons: TFPList; // list of TBitBtn
55
58
    fButtonSet: TMsgDlgButtons;
56
59
    function GetButtons(Btn: TMsgDlgBtn): TBitBtn;
57
60
    procedure SetupComponents;
58
61
    procedure ClearButtons;
59
62
  public
60
63
    DependencyList: TFPList;
61
 
    constructor Create(TheOwner: TComponent); override;
 
64
    constructor CreateNew(TheOwner: TComponent; Num: Integer = 0); override;
62
65
    destructor Destroy; override;
63
66
    property Buttons[Btn: TMsgDlgBtn]: TBitBtn read GetButtons;
64
67
    procedure CreateButtons(BtnSet: TMsgDlgButtons);
81
84
var
82
85
  BrokenDependenciesDialog: TBrokenDependenciesDialog;
83
86
begin
84
 
  BrokenDependenciesDialog:=TBrokenDependenciesDialog.Create(nil);
 
87
  BrokenDependenciesDialog:=TBrokenDependenciesDialog.CreateNew(nil);
85
88
  BrokenDependenciesDialog.DependencyList:=DependencyList;
86
89
  with BrokenDependenciesDialog do begin
87
90
    CreateButtons(BtnSet);
168
171
var
169
172
  i: Integer;
170
173
begin
171
 
  for i:=0 to fButtons.Count-1 do TBitBtn(fButtons[i]).Free;
 
174
  for i:=0 to fButtons.Count-1 do
 
175
    TBitBtn(fButtons[i]).Free;
172
176
  fButtons.Clear;
173
177
end;
174
178
 
175
 
constructor TBrokenDependenciesDialog.Create(TheOwner: TComponent);
 
179
constructor TBrokenDependenciesDialog.CreateNew(TheOwner: TComponent;
 
180
  Num: Integer);
176
181
begin
177
 
  inherited Create(TheOwner);
 
182
  inherited CreateNew(TheOwner,Num);
178
183
  Name:='BrokenDependenciesDialog';
179
184
  Caption:=lisA2PBrokenDependencies;
180
 
  fButtons:=TList.Create;
 
185
  fButtons:=TFPList.Create;
181
186
  SetupComponents;
182
187
  OnResize:=@BrokenDependenciesDialogResize;
183
188
  Position:=poScreenCenter;
189
194
destructor TBrokenDependenciesDialog.Destroy;
190
195
begin
191
196
  ClearButtons;
192
 
  fButtons.Free;
 
197
  FreeAndNil(fButtons);
193
198
  inherited Destroy;
194
199
end;
195
200