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

EditorToolbar: add a splitter between panes.

Browse Source 
git-svn-id: trunk@45951 -
This commit is contained in:
juha 2014-07-21 11:50:00 +00:00
parent a794bd27bc
commit d34fb6598f
2 changed files with 79 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

134
components/editortoolbar/edttbconfigfrm.lfm
View File

@ -1,29 +1,28 @@
object EdtTbConfigForm: TEdtTbConfigForm object EdtTbConfigForm: TEdtTbConfigForm
Left = 375 Left = 375
Height = 437 Height = 457
Top = 200 Top = 200
Width = 651 Width = 722
Caption = 'EdtTbConfigForm' Caption = 'EdtTbConfigForm'
ClientHeight = 437 ClientHeight = 457
ClientWidth = 651 ClientWidth = 722
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.3' LCLVersion = '1.3'
object lblMenuTree: TLabel object lblMenuTree: TLabel
Left = 16 Left = 16
Height = 17 Height = 20
Top = 14 Top = 14
Width = 80 Width = 83
Caption = 'lblMenuTree' Caption = 'lblMenuTree'
ParentColor = False ParentColor = False
end end
object lblToolbar: TLabel object lblToolbar: TLabel
AnchorSideLeft.Control = btnAdd AnchorSideLeft.Control = lbToolbar
AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblpos
Left = 456 Left = 443
Height = 17 Height = 20
Top = 14 Top = 14
Width = 61 Width = 69
BorderSpacing.Left = 13
Caption = 'lblToolbar' Caption = 'lblToolbar'
ParentColor = False ParentColor = False
end end
@ -31,9 +30,9 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideLeft.Control = btnAdd AnchorSideLeft.Control = btnAdd
AnchorSideTop.Control = btnAdd AnchorSideTop.Control = btnAdd
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 421 Left = 415
Height = 26 Height = 26
Top = 101 Top = 126
Width = 22 Width = 22
BorderSpacing.Top = 1 BorderSpacing.Top = 1
Enabled = False Enabled = False
@ -42,15 +41,15 @@ object EdtTbConfigForm: TEdtTbConfigForm
ParentShowHint = False ParentShowHint = False
end end
object btnAdd: TSpeedButton object btnAdd: TSpeedButton
AnchorSideLeft.Control = TV AnchorSideLeft.Control = Splitter1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom AnchorSideTop.Control = TV
Left = 421 Left = 415
Height = 26 Height = 26
Top = 74 Top = 99
Width = 22 Width = 22
BorderSpacing.Left = 13 BorderSpacing.Left = 6
BorderSpacing.Top = 1 BorderSpacing.Top = 25
Enabled = False Enabled = False
OnClick = btnAddClick OnClick = btnAddClick
ShowHint = True ShowHint = True
@ -58,10 +57,13 @@ object EdtTbConfigForm: TEdtTbConfigForm
end end
object btnMoveUp: TSpeedButton object btnMoveUp: TSpeedButton
AnchorSideLeft.Control = btnRemove AnchorSideLeft.Control = btnRemove
Left = 421 AnchorSideTop.Control = btnRemove
AnchorSideTop.Side = asrBottom
Left = 415
Height = 26 Height = 26
Top = 157 Top = 177
Width = 22 Width = 22
BorderSpacing.Top = 25
Enabled = False Enabled = False
OnClick = btnMoveUpClick OnClick = btnMoveUpClick
ShowHint = True ShowHint = True
@ -71,9 +73,9 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideLeft.Control = btnMoveUp AnchorSideLeft.Control = btnMoveUp
AnchorSideTop.Control = btnMoveUp AnchorSideTop.Control = btnMoveUp
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 421 Left = 415
Height = 26 Height = 26
Top = 184 Top = 204
Width = 22 Width = 22
BorderSpacing.Top = 1 BorderSpacing.Top = 1
Enabled = False Enabled = False
@ -84,12 +86,12 @@ object EdtTbConfigForm: TEdtTbConfigForm
object pnlButtons: TPanel object pnlButtons: TPanel
Left = 0 Left = 0
Height = 42 Height = 42
Top = 395 Top = 415
Width = 651 Width = 722
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 42 ClientHeight = 42
ClientWidth = 651 ClientWidth = 722
Color = clGreen Color = clGreen
ParentColor = False ParentColor = False
TabOrder = 4 TabOrder = 4
@ -97,17 +99,17 @@ object EdtTbConfigForm: TEdtTbConfigForm
Left = 0 Left = 0
Height = 2 Height = 2
Top = 0 Top = 0
Width = 651 Width = 722
Align = alTop Align = alTop
end end
object btnOK: TButton object btnOK: TButton
AnchorSideRight.Control = btnCancel AnchorSideRight.Control = btnCancel
AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 474 Left = 534
Height = 25 Height = 25
Top = 11 Top = 11
Width = 75 Width = 76
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -126,10 +128,10 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 555 Left = 616
Height = 25 Height = 25
Top = 11 Top = 11
Width = 90 Width = 100
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -146,14 +148,15 @@ object EdtTbConfigForm: TEdtTbConfigForm
end end
end end
object btnAddDivider: TButton object btnAddDivider: TButton
AnchorSideLeft.Control = lblToolbar
AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Control = pnlButtons
Left = 484 Left = 443
Height = 25 Height = 25
Top = 364 Top = 384
Width = 116 Width = 132
Anchors = [akRight, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'btnAddDivider' Caption = 'btnAddDivider'
Constraints.MaxHeight = 25 Constraints.MaxHeight = 25
@ -163,14 +166,16 @@ object EdtTbConfigForm: TEdtTbConfigForm
TabOrder = 3 TabOrder = 3
end end
object lbToolbar: TListBox object lbToolbar: TListBox
AnchorSideLeft.Control = lblToolbar AnchorSideLeft.Control = btnAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TV AnchorSideTop.Control = TV
AnchorSideBottom.Control = btnAddDivider AnchorSideBottom.Control = btnAddDivider
Left = 456 Left = 443
Height = 288 Height = 304
Top = 70 Top = 74
Width = 183 Width = 268
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = lbToolbarSelectionChange OnSelectionChange = lbToolbarSelectionChange
@ -180,14 +185,17 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideLeft.Control = lblMenuTree AnchorSideLeft.Control = lblMenuTree
AnchorSideTop.Control = FilterEdit AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Splitter1
AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Control = pnlButtons
Left = 16 Left = 16
Height = 319 Height = 335
Top = 70 Top = 74
Width = 392 Width = 381
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
DefaultItemHeight = 22
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 1 TabOrder = 1
@ -199,8 +207,8 @@ object EdtTbConfigForm: TEdtTbConfigForm
AnchorSideTop.Control = lblMenuTree AnchorSideTop.Control = lblMenuTree
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 16 Left = 16
Height = 27 Height = 28
Top = 37 Top = 40
Width = 192 Width = 192
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
@ -213,11 +221,11 @@ object EdtTbConfigForm: TEdtTbConfigForm
ExpandAllInitially = True ExpandAllInitially = True
end end
object cbPos: TComboBox object cbPos: TComboBox
Left = 312 Left = 293
Height = 27 Height = 28
Top = 10 Top = 10
Width = 100 Width = 100
ItemHeight = 0 ItemHeight = 20
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Top' 'Top'
@ -230,22 +238,36 @@ object EdtTbConfigForm: TEdtTbConfigForm
Text = 'Top' Text = 'Top'
end end
object lblpos: TLabel object lblpos: TLabel
Left = 240 AnchorSideTop.Control = lblMenuTree
Height = 17 Left = 232
Height = 20
Top = 14 Top = 14
Width = 37 Width = 41
Caption = 'lblpos' Caption = 'lblpos'
ParentColor = False ParentColor = False
end end
object cbVisible: TCheckBox object cbVisible: TCheckBox
Left = 316 Left = 316
Height = 23 Height = 24
Top = 45 Top = 45
Width = 69 Width = 68
Caption = 'Visible' Caption = 'Visible'
OnChange = cbVisibleChange OnChange = cbVisibleChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 6 TabOrder = 6
end end
object Splitter1: TSplitter
AnchorSideLeft.Control = TV
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TV
AnchorSideBottom.Control = TV
AnchorSideBottom.Side = asrBottom
Left = 400
Height = 335
Top = 74
Width = 9
Align = alNone
Anchors = [akTop, akBottom]
end
end end

1
components/editortoolbar/edttbconfigfrm.pas
View File

@ -47,6 +47,7 @@ type
lbToolbar: TListBox; lbToolbar: TListBox;
pnlButtons: TPanel; pnlButtons: TPanel;
FilterEdit: TTreeFilterEdit; FilterEdit: TTreeFilterEdit;
Splitter1: TSplitter;
TV: TTreeView; TV: TTreeView;
procedure btnCancelClick(Sender: TObject); procedure btnCancelClick(Sender: TObject);
procedure cbPosChange(Sender: TObject); procedure cbPosChange(Sender: TObject);