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

Packager: CleanPkgDeps dialog tweak. Issue #28241, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49263 -
This commit is contained in:
juha 2015-06-04 11:17:49 +00:00
parent a6dbef7f80
commit 3fab105924
2 changed files with 24 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
packager/cleanpkgdeps.lfm
View File

@ -11,41 +11,6 @@ object CleanPkgDepsDlg: TCleanPkgDepsDlg
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.5'
object TransitivityGroupBox: TGroupBox
Left = 6
Height = 330
Top = 6
Width = 510
Align = alClient
BorderSpacing.Around = 6
Caption = 'TransitivityGroupBox'
ClientHeight = 310
ClientWidth = 506
TabOrder = 0
object TransitivityTreeView: TTreeView
Left = 3
Height = 289
Top = 18
Width = 500
Align = alClient
BorderSpacing.Around = 3
DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnMouseDown = TransitivityTreeViewMouseDown
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object TransitivityLabel: TLabel
Left = 0
Height = 15
Top = 0
Width = 506
Align = alTop
Caption = 'TransitivityLabel'
ParentColor = False
WordWrap = True
end
end
object BtnPanel: TPanel
Left = 0
Height = 38
@ -108,4 +73,28 @@ object CleanPkgDepsDlg: TCleanPkgDepsDlg
TabOrder = 0
end
end
object TransitivityLabel: TLabel
Left = 6
Height = 15
Top = 6
Width = 510
Align = alTop
BorderSpacing.Around = 6
Caption = 'TransitivityLabel'
ParentColor = False
WordWrap = True
end
object TransitivityTreeView: TTreeView
Left = 6
Height = 309
Top = 27
Width = 510
Align = alClient
BorderSpacing.Around = 6
DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnMouseDown = TransitivityTreeViewMouseDown
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
end

2
packager/cleanpkgdeps.pas
View File

@ -56,7 +56,6 @@ type
BtnPanel: TPanel;
SelectAllBitBtn: TBitBtn;
SelectNoneBitBtn: TBitBtn;
TransitivityGroupBox: TGroupBox;
TransitivityLabel: TLabel;
TransitivityTreeView: TTreeView;
procedure FormCreate(Sender: TObject);
@ -148,7 +147,6 @@ begin
ImgIndexKeep := IDEImages.LoadImage(16, 'menu_run');
Caption:=lisPkgCleanUpPackageDependencies;
TransitivityGroupBox.Caption:=lisPkgTransitivity;
TransitivityLabel.Caption:=
lisPkgTheFollowingDependenciesAreNotNeededBecauseOfTheAu;
TransitivityTreeView.Images:=IDEImages.Images_16;