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

IDE: Hide border and make button wider in ViewUnit dialog. Issue #28049, patch from Alexey Torgashin

Browse Source 
git-svn-id: trunk@48982 -
This commit is contained in:
juha 2015-05-10 07:59:53 +00:00
parent 6ebf07e5d9
commit 61b261d14e
1 changed files with 22 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
ide/viewunit_dlg.lfm
View File

@ -15,11 +15,11 @@ object ViewUnitDialog: TViewUnitDialog
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.3' LCLVersion = '1.5'
object Listbox: TListBox object Listbox: TListBox
Left = 6 Left = 6
Height = 278 Height = 279
Top = 34 Top = 35
Width = 366 Width = 366
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -32,12 +32,11 @@ object ViewUnitDialog: TViewUnitDialog
ScrollWidth = 364 ScrollWidth = 364
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 36 Height = 34
Top = 344 Top = 346
Width = 366 Width = 366
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -55,23 +54,24 @@ object ViewUnitDialog: TViewUnitDialog
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 6
Height = 28 Height = 23
Top = 0 Top = 6
Width = 378 Width = 366
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 28 BorderSpacing.Around = 6
ClientWidth = 378 BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 366
TabOrder = 2 TabOrder = 2
object SortAlphabeticallySpeedButton: TSpeedButton object SortAlphabeticallySpeedButton: TSpeedButton
Left = 1 Left = 0
Height = 26 Height = 23
Top = 1 Top = 0
Width = 15 Width = 25
Align = alLeft Align = alLeft
AllowAllUp = True AllowAllUp = True
AutoSize = True
Constraints.MinHeight = 15 Constraints.MinHeight = 15
Constraints.MinWidth = 15 Constraints.MinWidth = 15
GroupIndex = 2 GroupIndex = 2
@ -80,20 +80,14 @@ object ViewUnitDialog: TViewUnitDialog
ParentShowHint = False ParentShowHint = False
end end
object FilterEdit: TListFilterEdit object FilterEdit: TListFilterEdit
AnchorSideLeft.Control = SortAlphabeticallySpeedButton Left = 31
AnchorSideLeft.Side = asrBottom Height = 23
AnchorSideTop.Control = SortAlphabeticallySpeedButton
AnchorSideTop.Side = asrCenter
Left = 22
Height = 28
Top = 0 Top = 0
Width = 349 Width = 335
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Align = alClient
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
@ -103,7 +97,7 @@ object ViewUnitDialog: TViewUnitDialog
object ProgressBar1: TProgressBar object ProgressBar1: TProgressBar
Left = 6 Left = 6
Height = 20 Height = 20
Top = 318 Top = 320
Width = 366 Width = 366
Align = alBottom Align = alBottom
BorderSpacing.Left = 6 BorderSpacing.Left = 6