paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-17 13:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: fix anchors in the AddPkgDependencyDialog. Patch from Ondrej.

Browse Source 
git-svn-id: trunk@53425 -
This commit is contained in:
juha 2016-11-23 15:06:28 +00:00
parent 5cd4772404
commit f68693281e
2 changed files with 33 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
packager/addpkgdependencydlg.lfm
View File

@ -2,20 +2,21 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
Left = 466
Height = 373
Top = 122
Width = 570
Width = 495
BorderIcons = [biSystemMenu]
Caption = 'AddPkgDependencyDialog'
ClientHeight = 373
ClientWidth = 570
ClientWidth = 495
OnClose = FormClose
LCLVersion = '1.7'
object DependPkgNameLabel: TLabel
AnchorSideTop.Control = DependPkgNameFilter
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DependPkgNameFilter
Left = 141
Left = 61
Height = 18
Top = 23
Width = 141
Top = 19
Width = 138
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaLeftTop
@ -25,14 +26,13 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
end
object DependPkgNameFilter: TListFilterEdit
AnchorSideRight.Side = asrBottom
Left = 288
Height = 32
Left = 205
Height = 24
Top = 16
Width = 256
Width = 284
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop]
AutoSize = False
Anchors = [akTop, akLeft, akRight]
MaxLength = 0
TabOrder = 0
FilteredListbox = DependPkgNameListBox
@ -44,28 +44,29 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideRight.Control = DependPkgNameFilter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DependMinVersionEdit
Left = 288
Height = 197
Top = 54
Width = 256
Left = 205
Height = 224
Top = 46
Width = 284
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
MultiSelect = True
ScrollWidth = 282
TabOrder = 1
TopIndex = -1
end
object DependMinVersionEdit: TEdit
AnchorSideLeft.Control = DependPkgNameListBox
AnchorSideRight.Control = DependPkgNameListBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DependMaxVersionEdit
Left = 288
Height = 32
Top = 257
Width = 256
Left = 205
Height = 24
Top = 276
Width = 284
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Top = 6
TabOrder = 2
Text = 'DependMinVersionEdit'
@ -76,12 +77,11 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideRight.Control = DependPkgNameListBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 288
Height = 32
Top = 292
Width = 256
Left = 205
Height = 24
Top = 303
Width = 284
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Top = 3
TabOrder = 3
Text = 'DependMaxVersionEdit'
@ -90,10 +90,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideTop.Control = DependMinVersionEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DependMinVersionEdit
Left = 132
Left = 52
Height = 18
Top = 264
Width = 150
Top = 279
Width = 147
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaLeftTop
@ -106,10 +106,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideTop.Control = DependMaxVersionEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DependMaxVersionEdit
Left = 129
Left = 49
Height = 18
Top = 299
Width = 153
Top = 306
Width = 150
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
BorderSpacing.CellAlignHorizontal = ccaLeftTop
@ -119,9 +119,9 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 37
Top = 330
Width = 558
Height = 34
Top = 333
Width = 483
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick

1
packager/packageeditor.pas
View File

@ -2245,7 +2245,6 @@ begin
exit(mrCancel);
end;
Result:=ShowAddPkgDependencyDlg(LazPackage, Deps);
DebugLn(['TPackageEditorForm.ShowAddDepDialog: Deps.Count=', Deps.Count]);
try
if (Result<>mrOk) or (Deps.Count=0) then exit;
PackageGraph.BeginUpdate(false);