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

1
packager/packageeditor.pas
View File

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