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

ide: fix anchors in Options/Editor/Pages frame (issue #0021535)

Browse Source 
git-svn-id: trunk@36245 -
This commit is contained in:
paul 2012-03-23 08:33:47 +00:00
parent e5e9750ca5
commit 60f51e4b06
2 changed files with 78 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
ide/frames/editor_multiwindow_options.lfm
View File

@ -1,5 +1,7 @@
inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
Left = 0
Height = 415 Height = 415
Top = 0
Width = 521 Width = 521
Anchors = [akTop] Anchors = [akTop]
ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.Layout = cclTopToBottomThenLeftToRight
@ -10,7 +12,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
Visible = False Visible = False
DesignLeft = 929 DesignLeft = 929
DesignTop = 308 DesignTop = 308
object AccessTypePanel: TPanel[0] object AccessTypePanel: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAccessType AnchorSideTop.Control = lblAccessType
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -19,15 +21,15 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 232 Height = 214
Top = 183 Top = 201
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 = 232 ClientHeight = 214
ClientWidth = 509 ClientWidth = 509
TabOrder = 0 TabOrder = 0
object listAccessType: TCheckListBox object listAccessType: TCheckListBox
@ -49,18 +51,18 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 67 Height = 50
Top = 165 Top = 165
Width = 509 Width = 509
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 67 ClientHeight = 50
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 = 14 Height = 16
Top = 0 Top = 0
Width = 509 Width = 509
Align = alTop Align = alTop
@ -79,7 +81,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
ResizeAnchor = akTop ResizeAnchor = akTop
end end
end end
object Bevel1a: TBevel[1] object Bevel1a: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblEditActivationOrderSection AnchorSideTop.Control = lblEditActivationOrderSection
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
@ -87,18 +89,18 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 3 Height = 3
Top = 83 Top = 92
Width = 60 Width = 60
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
end end
object lblEditActivationOrderSection: TLabel[2] object lblEditActivationOrderSection: TLabel
AnchorSideLeft.Control = Bevel1a AnchorSideLeft.Control = Bevel1a
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlNBTabs AnchorSideTop.Control = pnlNBTabs
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 14 Height = 16
Top = 77 Top = 85
Width = 167 Width = 167
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -107,7 +109,7 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Bevel1: TBevel[3] object Bevel1: TBevel
AnchorSideLeft.Control = lblEditActivationOrderSection AnchorSideLeft.Control = lblEditActivationOrderSection
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblEditActivationOrderSection AnchorSideTop.Control = lblEditActivationOrderSection
@ -116,20 +118,20 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 247 Left = 247
Height = 3 Height = 3
Top = 83 Top = 92
Width = 274 Width = 274
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
end end
object Panel1: TPanel[4] object Panel1: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblEditActivationOrderSection AnchorSideTop.Control = lblEditActivationOrderSection
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 60 Height = 66
Top = 97 Top = 107
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -137,12 +139,12 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 60 ClientHeight = 66
ClientWidth = 509 ClientWidth = 509
TabOrder = 1 TabOrder = 1
object lblAccessOrder: TLabel object lblAccessOrder: TLabel
Left = 0 Left = 0
Height = 14 Height = 16
Top = 0 Top = 0
Width = 509 Width = 509
Align = alTop Align = alTop
@ -158,8 +160,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 19
Top = 20 Top = 22
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'radioAccessOrderEdit' Caption = 'radioAccessOrderEdit'
@ -175,8 +177,8 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 19
Top = 37 Top = 41
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -185,21 +187,21 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
TabOrder = 1 TabOrder = 1
end end
end end
object lblAccessType: TLabel[5] object lblAccessType: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 14 Height = 16
Top = 163 Top = 179
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'lblAccessType' Caption = 'lblAccessType'
ParentColor = False ParentColor = False
end end
object Bevel2a: TBevel[6] object Bevel2a: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMultiWinTabSection AnchorSideTop.Control = lblMultiWinTabSection
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
@ -207,18 +209,18 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 3 Height = 3
Top = 6 Top = 7
Width = 60 Width = 60
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
end end
object lblMultiWinTabSection: TLabel[7] object lblMultiWinTabSection: TLabel
AnchorSideLeft.Control = Bevel2a AnchorSideLeft.Control = Bevel2a
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 70 Left = 70
Height = 14 Height = 16
Top = 0 Top = 0
Width = 126 Width = 127
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'lblMultiWinTabSection' Caption = 'lblMultiWinTabSection'
@ -226,29 +228,29 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Bevel2: TBevel[8] object Bevel2: TBevel
AnchorSideLeft.Control = lblMultiWinTabSection AnchorSideLeft.Control = lblMultiWinTabSection
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblMultiWinTabSection AnchorSideTop.Control = lblMultiWinTabSection
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 206 Left = 207
Height = 3 Height = 3
Top = 6 Top = 7
Width = 315 Width = 314
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
end end
object pnlNBTabs: TPanel[9] object pnlNBTabs: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMultiWinTabSection AnchorSideTop.Control = lblMultiWinTabSection
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 51 Height = 57
Top = 20 Top = 22
Width = 509 Width = 509
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -257,14 +259,16 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 51 ClientHeight = 57
ClientWidth = 509 ClientWidth = 509
TabOrder = 2 TabOrder = 2
object chkShowCloseBtn: TCheckBox object chkShowCloseBtn: TCheckBox
AnchorSideLeft.Control = pnlNBTabs
AnchorSideTop.Control = pnlNBTabs
Left = 0 Left = 0
Height = 17 Height = 19
Top = 0 Top = 0
Width = 102 Width = 115
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkShowCloseBtn' Caption = 'chkShowCloseBtn'
@ -272,43 +276,53 @@ inherited EditorMultiWindowOptionsFrame: TEditorMultiWindowOptionsFrame
end end
object chkShowNumbers: TCheckBox object chkShowNumbers: TCheckBox
AnchorSideLeft.Control = CenterLabel AnchorSideLeft.Control = CenterLabel
Left = 254 AnchorSideLeft.Side = asrBottom
Height = 17 AnchorSideTop.Control = pnlNBTabs
Left = 255
Height = 19
Top = 0 Top = 0
Width = 102 Width = 117
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkShowNumbers' Caption = 'chkShowNumbers'
TabOrder = 1 TabOrder = 1
end end
object chkHideSingleTab: TCheckBox object chkHideSingleTab: TCheckBox
AnchorSideLeft.Control = pnlNBTabs
AnchorSideTop.Control = chkShowCloseBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 19
Top = 17 Top = 19
Width = 101 Width = 116
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkHideSingleTab' Caption = 'chkHideSingleTab'
TabOrder = 2 TabOrder = 2
end end
object chkUseTabHistory: TCheckBox object chkUseTabHistory: TCheckBox
AnchorSideLeft.Control = chkShowNumbers AnchorSideLeft.Control = CenterLabel
Left = 254 AnchorSideLeft.Side = asrBottom
Height = 17 AnchorSideTop.Control = chkShowNumbers
Top = 17 AnchorSideTop.Side = asrBottom
Width = 104 Left = 255
Height = 19
Top = 19
Width = 116
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkUseTabHistory' Caption = 'chkUseTabHistory'
TabOrder = 3 TabOrder = 3
end end
object chkCtrlMiddleCloseOthers: TCheckBox object chkCtrlMiddleCloseOthers: TCheckBox
AnchorSideLeft.Control = pnlNBTabs
AnchorSideTop.Control = chkHideSingleTab
AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 19
Top = 34 Top = 38
Width = 140 Width = 159
BorderSpacing.CellAlignHorizontal = ccaLeftTop BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaLeftTop BorderSpacing.CellAlignVertical = ccaLeftTop
Caption = 'chkCtrlMiddleCloseOthers' Caption = 'chkCtrlMiddleCloseOthers'

10
ide/lazarus.lpi
View File

@ -63,7 +63,7 @@
<PackageName Value="SynEdit"/> <PackageName Value="SynEdit"/>
</Item6> </Item6>
</RequiredPackages> </RequiredPackages>
<Units Count="89"> <Units Count="90">
<Unit0> <Unit0>
<Filename Value="lazarus.pp"/> <Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -668,6 +668,14 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="MsgView"/> <UnitName Value="MsgView"/>
</Unit88> </Unit88>
<Unit89>
<Filename Value="frames/editor_multiwindow_options.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="EditorMultiWindowOptionsFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="editor_multiwindow_options"/>
</Unit89>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>