paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-22 07:32:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add requirement dialog: nicer layout

Browse Source 
git-svn-id: trunk@56608 -
This commit is contained in:
mattias 2017-12-04 11:40:06 +00:00
parent d5b7b913fd
commit 999cb1e071
2 changed files with 42 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
packager/addpkgdependencydlg.lfm
View File

@ -13,12 +13,13 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object DependPkgNameLabel: TLabel
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = DependPkgNameFilter
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DependPkgNameFilter
Left = 34
Height = 15
Top = 11
Width = 121
Left = 37
Height = 13
Top = 12
Width = 125
Anchors = [akTop, akRight]
BorderSpacing.Top = 3
BorderSpacing.Right = 6
@ -32,10 +33,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 161
Left = 168
Height = 23
Top = 7
Width = 280
Width = 273
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
@ -52,10 +53,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideRight.Control = DependPkgNameFilter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DependMinVersionEdit
Left = 161
Height = 239
Top = 62
Width = 280
Left = 168
Height = 234
Top = 67
Width = 273
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
@ -64,19 +65,20 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
OnDrawItem = DependPkgNameListBoxDrawItem
OnSelectionChange = DependPkgNameListBoxSelectionChange
Options = []
ScrollWidth = 282
ScrollWidth = 271
Style = lbOwnerDrawVariable
TabOrder = 3
TopIndex = -1
end
object DependMinVersionEdit: TEdit
AnchorSideLeft.Control = DependMaxVersionEdit
AnchorSideRight.Control = DependPkgNameListBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DependMaxVersionEdit
Left = 161
Left = 168
Height = 23
Top = 307
Width = 280
Width = 273
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 6
TabOrder = 4
@ -89,10 +91,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideRight.Control = DependPkgNameListBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BP
Left = 161
Left = 168
Height = 23
Top = 333
Width = 280
Width = 273
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3
TabOrder = 5
@ -103,9 +105,9 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideTop.Control = DependMinVersionEdit
AnchorSideTop.Side = asrCenter
Left = 24
Height = 15
Top = 311
Width = 128
Height = 13
Top = 312
Width = 134
BorderSpacing.Left = 24
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
@ -117,9 +119,9 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideTop.Control = DependMaxVersionEdit
AnchorSideTop.Side = asrCenter
Left = 24
Height = 15
Top = 337
Width = 129
Height = 13
Top = 338
Width = 136
Alignment = taRightJustify
BorderSpacing.Left = 24
BorderSpacing.Right = 8
@ -151,23 +153,23 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideLeft.Control = DependPkgNameListBox
AnchorSideTop.Control = DependPkgNameFilter
AnchorSideTop.Side = asrBottom
Left = 161
Height = 19
Left = 168
Height = 24
Top = 37
Width = 48
Width = 54
AutoSize = True
BorderSpacing.Top = 7
BevelOuter = bvNone
ClientHeight = 19
ClientWidth = 48
ClientHeight = 24
ClientWidth = 54
Color = 15138790
ParentColor = False
TabOrder = 1
object cbLocalPkg: TCheckBox
Left = 0
Height = 19
Height = 24
Top = 0
Width = 48
Width = 54
Caption = 'Local'
Checked = True
Color = clDefault
@ -182,24 +184,24 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DependPkgNameFilter
AnchorSideTop.Side = asrBottom
Left = 216
Height = 19
Left = 229
Height = 24
Top = 37
Width = 55
Width = 62
AutoSize = True
BorderSpacing.Left = 7
BorderSpacing.Top = 7
BevelOuter = bvNone
ClientHeight = 19
ClientWidth = 55
ClientHeight = 24
ClientWidth = 62
Color = 14017529
ParentColor = False
TabOrder = 2
object cbOnlinePkg: TCheckBox
Left = 0
Height = 19
Height = 24
Top = 0
Width = 55
Width = 62
Caption = 'Online'
Checked = True
OnChange = cbLocalPkgChange
@ -210,10 +212,10 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
object DependPkgTypeLabel: TLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DependPkgNameFilter
Left = 41
Height = 15
Left = 42
Height = 13
Top = 39
Width = 114
Width = 120
Anchors = [akTop, akRight]
BorderSpacing.Top = 3
BorderSpacing.Right = 6

1
packager/addpkgdependencydlg.pas
View File

@ -182,6 +182,7 @@ begin
FillRect(ARect);
ItemText := (Control as TListBox).Items[Index];
InflateRect(ARect, -1, -1);
inc(ARect.Left,3);
DrawText(Handle, PChar(ItemText), Length(ItemText), ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end;
end;