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

Merged revision(s) 62297 #85fe179abe from trunk:

Browse Source 
IDE: improved 'Add unit to Uses' dialog layout, bug #36344
........

git-svn-id: branches/fixes_2_0@62298 -
This commit is contained in:
maxim 2019-11-25 22:27:58 +00:00
parent 92378adfe6
commit 429779eee9
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/useunitdlg.lfm
View File

@ -13,11 +13,12 @@ object UseUnitDialog: TUseUnitDialog
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 26
Top = 389 Top = 390
Width = 351 Width = 351
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -34,20 +35,19 @@ object UseUnitDialog: TUseUnitDialog
ShowBevel = False ShowBevel = False
end end
object SectionRadioGroup: TRadioGroup object SectionRadioGroup: TRadioGroup
AnchorSideLeft.Control = UnitsListBox AnchorSideLeft.Control = Owner
AnchorSideTop.Control = UnitsListBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = UnitsListBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 6 Left = 6
Height = 49 Height = 51
Top = 334 Top = 333
Width = 351 Width = 351
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
AutoFill = True AutoFill = True
BorderSpacing.Top = 3 AutoSize = True
BorderSpacing.Bottom = 3 BorderSpacing.Around = 6
Caption = 'Insert into Uses Section' Caption = 'Insert into Uses Section'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
@ -57,7 +57,7 @@ object UseUnitDialog: TUseUnitDialog
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 22 ClientHeight = 31
ClientWidth = 347 ClientWidth = 347
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
@ -70,13 +70,14 @@ object UseUnitDialog: TUseUnitDialog
end end
object UnitsListBox: TListBox object UnitsListBox: TListBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AllUnitsCheckBox AnchorSideBottom.Control = AllUnitsCheckBox
Left = 6 Left = 6
Height = 270 Height = 267
Top = 32 Top = 35
Width = 351 Width = 351
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -91,12 +92,11 @@ object UseUnitDialog: TUseUnitDialog
object AllUnitsCheckBox: TCheckBox object AllUnitsCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = SectionRadioGroup AnchorSideBottom.Control = SectionRadioGroup
Left = 12 Left = 6
Height = 20 Height = 19
Top = 308 Top = 308
Width = 115 Width = 93
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show all units' Caption = 'Show all units'
OnChange = AllUnitsCheckBoxChange OnChange = AllUnitsCheckBoxChange
@ -105,15 +105,17 @@ object UseUnitDialog: TUseUnitDialog
object FilterEdit: TListFilterEdit object FilterEdit: TListFilterEdit
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 23
Top = 6 Top = 6
Width = 351 Width = 351
OnAfterFilter = FilterEditAfterFilter OnAfterFilter = FilterEditAfterFilter
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
NumGlyphs = 1
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0