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

IDE: improve 'Options'->'Editor'->'Tabs and Windows' tab layout to save some horizontal space

Browse Source 
git-svn-id: trunk@28489 -
This commit is contained in:
maxim 2010-11-26 00:25:08 +00:00
parent a20584c04e
commit 02b1933463
2 changed files with 70 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
ide/frames/editor_multiwindow_options.lfm
View File

@ -2,8 +2,11 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
Height = 415 Height = 415
Width = 521 Width = 521
Anchors = [akTop] Anchors = [akTop]
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 2
ClientHeight = 415 ClientHeight = 415
ClientWidth = 521 ClientWidth = 521
TabOrder = 0
Visible = False Visible = False
DesignLeft = 929 DesignLeft = 929
DesignTop = 308 DesignTop = 308
@ -16,15 +19,15 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 214 Height = 232
Top = 201 Top = 183
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 214 ClientHeight = 232
ClientWidth = 509 ClientWidth = 509
TabOrder = 0 TabOrder = 0
object listAccessType: TCheckListBox object listAccessType: TCheckListBox
@ -46,18 +49,18 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 50 Height = 67
Top = 165 Top = 165
Width = 509 Width = 509
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 50 ClientHeight = 67
ClientWidth = 509 ClientWidth = 509
Constraints.MinHeight = 50 Constraints.MinHeight = 50
TabOrder = 1 TabOrder = 1
object lblAccessTypeDesc: TLabel object lblAccessTypeDesc: TLabel
Left = 0 Left = 0
Height = 16 Height = 14
Top = 0 Top = 0
Width = 509 Width = 509
Align = alTop Align = alTop
@ -84,7 +87,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 3 Height = 3
Top = 92 Top = 83
Width = 60 Width = 60
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
end end
@ -94,8 +97,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideTop.Control = pnlNBTabs AnchorSideTop.Control = pnlNBTabs
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 16 Height = 14
Top = 85 Top = 77
Width = 167 Width = 167
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -113,7 +116,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 247 Left = 247
Height = 3 Height = 3
Top = 92 Top = 83
Width = 274 Width = 274
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
@ -125,8 +128,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 66 Height = 60
Top = 107 Top = 97
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -134,12 +137,12 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 66 ClientHeight = 60
ClientWidth = 509 ClientWidth = 509
TabOrder = 1 TabOrder = 1
object lblAccessOrder: TLabel object lblAccessOrder: TLabel
Left = 0 Left = 0
Height = 16 Height = 14
Top = 0 Top = 0
Width = 509 Width = 509
Align = alTop Align = alTop
@ -155,8 +158,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 19 Height = 17
Top = 22 Top = 20
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'radioAccessOrderEdit' Caption = 'radioAccessOrderEdit'
@ -172,8 +175,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 19 Height = 17
Top = 41 Top = 37
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -189,8 +192,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 16 Height = 14
Top = 179 Top = 163
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'lblAccessType' Caption = 'lblAccessType'
@ -204,7 +207,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 3 Height = 3
Top = 7 Top = 6
Width = 60 Width = 60
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
end end
@ -213,9 +216,9 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 70 Left = 70
Height = 16 Height = 14
Top = 0 Top = 0
Width = 127 Width = 126
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'lblMultiWinTabSection' Caption = 'lblMultiWinTabSection'
@ -230,10 +233,10 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 207 Left = 206
Height = 3 Height = 3
Top = 7 Top = 6
Width = 314 Width = 315
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
end end
@ -244,8 +247,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 57 Height = 51
Top = 22 Top = 20
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -253,26 +256,28 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 57 ClientHeight = 51
ClientWidth = 509 ClientWidth = 509
TabOrder = 2 TabOrder = 2
object chkShowCloseBtn: TCheckBox object chkShowCloseBtn: TCheckBox
Left = 0 Left = 0
Height = 19 Height = 17
Top = 0 Top = 0
Width = 293 Width = 102
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkShowCloseBtn' Caption = 'chkShowCloseBtn'
TabOrder = 0 TabOrder = 0
end end
object chkShowNumbers: TCheckBox object chkShowNumbers: TCheckBox
Left = 293 AnchorSideLeft.Control = CenterLabel
Height = 19 Left = 254
Height = 17
Top = 0 Top = 0
Width = 216 Width = 102
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkShowNumbers' Caption = 'chkShowNumbers'
TabOrder = 1 TabOrder = 1
end end
@ -280,27 +285,44 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 19 Height = 17
Top = 19 Top = 17
Width = 293 Width = 101
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkHideSingleTab' Caption = 'chkHideSingleTab'
TabOrder = 2 TabOrder = 2
end end
object chkUseTabHistory: TCheckBox object chkUseTabHistory: TCheckBox
Left = 293 AnchorSideLeft.Control = chkShowNumbers
Height = 19 Left = 254
Top = 19 Height = 17
Width = 216 Top = 17
Width = 104
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkUseTabHistory' Caption = 'chkUseTabHistory'
TabOrder = 3 TabOrder = 3
end end
object chkCtrlMiddleCloseOthers: TCheckBox object chkCtrlMiddleCloseOthers: TCheckBox
Left = 0 Left = 0
Height = 19 Height = 17
Top = 38 Top = 34
Width = 293 Width = 140
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkCtrlMiddleCloseOthers' Caption = 'chkCtrlMiddleCloseOthers'
TabOrder = 4 TabOrder = 4
end end
object CenterLabel: TLabel
AnchorSideLeft.Control = pnlNBTabs
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = pnlNBTabs
Left = 254
Height = 1
Top = 0
Width = 1
ParentColor = False
end
end end
end end

1
ide/frames/editor_multiwindow_options.pas
View File

@ -37,6 +37,7 @@ type
Bevel1a: TBevel; Bevel1a: TBevel;
Bevel2a: TBevel; Bevel2a: TBevel;
Bevel2: TBevel; Bevel2: TBevel;
CenterLabel: TLabel;
chkCtrlMiddleCloseOthers: TCheckBox; chkCtrlMiddleCloseOthers: TCheckBox;
chkUseTabHistory: TCheckBox; chkUseTabHistory: TCheckBox;
chkShowCloseBtn: TCheckBox; chkShowCloseBtn: TCheckBox;