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

IDE: Fix taborder, hide 2 borders in EditorFilemanager dlg. Issue #28026, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@48939 -
This commit is contained in:
juha 2015-05-05 20:42:58 +00:00
parent f26e6ca27f
commit 8c8cab2420
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/editorfilemanager.lfm
View File

@ -11,7 +11,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.3' LCLVersion = '1.5'
object CheckListBox1: TCheckListBox object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -30,7 +30,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
OnKeyPress = CheckListBox1KeyPress OnKeyPress = CheckListBox1KeyPress
OnKeyDown = CheckListBox1KeyDown OnKeyDown = CheckListBox1KeyDown
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 1
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
@ -47,7 +47,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
CloseButton.OnClick = CloseButtonClick CloseButton.OnClick = CloseButtonClick
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
TabOrder = 1 TabOrder = 3
ShowButtons = [pbClose, pbHelp] ShowButtons = [pbClose, pbHelp]
end end
object Panel1: TPanel object Panel1: TPanel
@ -60,6 +60,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
Width = 186 Width = 186
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ClientHeight = 328 ClientHeight = 328
BevelOuter = bvNone
ClientWidth = 186 ClientWidth = 186
TabOrder = 2 TabOrder = 2
object CheckAllCheckBox: TCheckBox object CheckAllCheckBox: TCheckBox
@ -160,9 +161,10 @@ object EditorFileManagerForm: TEditorFileManagerForm
Top = 0 Top = 0
Width = 536 Width = 536
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BevelOuter = bvNone
ClientHeight = 28 ClientHeight = 28
ClientWidth = 536 ClientWidth = 536
TabOrder = 3 TabOrder = 0
object FilterEdit: TListFilterEdit object FilterEdit: TListFilterEdit
AnchorSideLeft.Control = SortAlphabeticallyButton AnchorSideLeft.Control = SortAlphabeticallyButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -175,7 +177,6 @@ object EditorFileManagerForm: TEditorFileManagerForm
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
BorderSpacing.Left = 11 BorderSpacing.Left = 11
Font.Color = clBtnShadow
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0