mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 06:26:07 +02:00
389 lines
10 KiB
Plaintext
389 lines
10 KiB
Plaintext
object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
|
|
Left = 0
|
|
Height = 451
|
|
Top = 0
|
|
Width = 520
|
|
ClientHeight = 451
|
|
ClientWidth = 520
|
|
TabOrder = 0
|
|
DesignLeft = 744
|
|
DesignTop = 282
|
|
object pnBottom: TPanel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = dbAddConfigDelete
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 251
|
|
Top = 200
|
|
Width = 520
|
|
Align = alClient
|
|
BorderSpacing.Top = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 251
|
|
ClientWidth = 520
|
|
Constraints.MinHeight = 115
|
|
TabOrder = 1
|
|
object pnButtons: TPanel
|
|
AnchorSideRight.Control = pnBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 35
|
|
Top = 216
|
|
Width = 520
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 35
|
|
ClientWidth = 520
|
|
Constraints.MinHeight = 35
|
|
TabOrder = 1
|
|
object bAdd: TBitBtn
|
|
AnchorSideLeft.Control = pnButtons
|
|
AnchorSideBottom.Control = pnButtons
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 27
|
|
Top = 2
|
|
Width = 36
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Add'
|
|
OnClick = bAddClick
|
|
TabOrder = 0
|
|
end
|
|
object bDelete: TBitBtn
|
|
AnchorSideLeft.Control = bConfig
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideBottom.Control = pnButtons
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 105
|
|
Height = 27
|
|
Top = 2
|
|
Width = 50
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Delete'
|
|
OnClick = bDeleteClick
|
|
TabOrder = 2
|
|
end
|
|
object bConfig: TBitBtn
|
|
AnchorSideLeft.Control = bAdd
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideBottom.Control = pnButtons
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 48
|
|
Height = 27
|
|
Top = 2
|
|
Width = 51
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Config'
|
|
OnClick = bConfigClick
|
|
TabOrder = 1
|
|
end
|
|
object bDefaultToolbar: TBitBtn
|
|
AnchorSideRight.Control = pnButtons
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnButtons
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 459
|
|
Height = 27
|
|
Top = 2
|
|
Width = 55
|
|
Anchors = [akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Default'
|
|
OnClick = bDefaultToolbarClick
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object sbCoolBar: TScrollBox
|
|
Left = 0
|
|
Height = 188
|
|
Top = 0
|
|
Width = 520
|
|
HorzScrollBar.Page = 75
|
|
VertScrollBar.Page = 22
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderStyle = bsNone
|
|
ClientHeight = 188
|
|
ClientWidth = 520
|
|
Constraints.MinHeight = 75
|
|
TabOrder = 0
|
|
object Coolbar: TCoolBar
|
|
Left = 0
|
|
Height = 25
|
|
Top = 0
|
|
Width = 520
|
|
AutoSize = True
|
|
Bands = <
|
|
item
|
|
end>
|
|
EdgeBorders = [ebRight]
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
FixedSize = True
|
|
GrabStyle = gsGripper
|
|
GrabWidth = 5
|
|
HorizontalSpacing = 1
|
|
ShowText = False
|
|
OnChange = CoolbarChange
|
|
OnMouseDown = CoolbarMouseDown
|
|
OnResize = CoolbarResize
|
|
end
|
|
end
|
|
end
|
|
object pnTop: TPanel
|
|
Left = 0
|
|
Height = 179
|
|
Top = 0
|
|
Width = 520
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 179
|
|
ClientWidth = 520
|
|
Constraints.MinWidth = 350
|
|
TabOrder = 0
|
|
object dbGeneralSettings: TDividerBevel
|
|
Left = 0
|
|
Height = 15
|
|
Top = 5
|
|
Width = 520
|
|
Caption = 'General Coolbars Settings'
|
|
Align = alTop
|
|
BorderSpacing.Top = 5
|
|
BorderSpacing.Bottom = 5
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object gbGrabStyle: TGroupBox
|
|
AnchorSideLeft.Control = pnTop
|
|
AnchorSideTop.Control = spCoolBarWidth
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = pnTopCenterLabel
|
|
Left = 0
|
|
Height = 80
|
|
Top = 60
|
|
Width = 257
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 3
|
|
Caption = 'Grab Style'
|
|
ClientHeight = 64
|
|
ClientWidth = 255
|
|
TabOrder = 1
|
|
object lbGrabWidth: TLabel
|
|
AnchorSideTop.Control = spGrabWidth
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = spGrabWidth
|
|
Left = 94
|
|
Height = 15
|
|
Top = 40
|
|
Width = 73
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Grab Width:'
|
|
ParentColor = False
|
|
end
|
|
object spGrabWidth: TSpinEdit
|
|
AnchorSideTop.Control = cbGrabStyle
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbGrabStyle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 173
|
|
Height = 21
|
|
Top = 37
|
|
Width = 76
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Around = 6
|
|
MaxValue = 50
|
|
MinValue = 1
|
|
OnChange = spGrabWidthChange
|
|
TabOrder = 1
|
|
Value = 5
|
|
end
|
|
object cbGrabStyle: TComboBox
|
|
AnchorSideLeft.Control = gbGrabStyle
|
|
AnchorSideTop.Control = gbGrabStyle
|
|
AnchorSideRight.Control = gbGrabStyle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 6
|
|
Width = 243
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'gsSimple'
|
|
'gsDouble'
|
|
'gsHorLines'
|
|
'gsVerLines'
|
|
'gsGripper'
|
|
'gsButton'
|
|
)
|
|
OnChange = cbGrabStyleChange
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
Text = 'gsDouble'
|
|
end
|
|
end
|
|
object bDefaultGeneral: TBitBtn
|
|
AnchorSideTop.Control = gbBorderStyle
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = pnTop
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnTop
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 459
|
|
Height = 27
|
|
Top = 146
|
|
Width = 55
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Default'
|
|
OnClick = bDefaultGeneralClick
|
|
TabOrder = 3
|
|
end
|
|
object cbCoolBarVisible: TCheckBox
|
|
AnchorSideLeft.Control = pnTop
|
|
AnchorSideTop.Control = dbGeneralSettings
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 0
|
|
Height = 22
|
|
Top = 32
|
|
Width = 123
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Coolbar is visible'
|
|
OnClick = cbCoolBarVisibleClick
|
|
TabOrder = 0
|
|
end
|
|
object gbBorderStyle: TGroupBox
|
|
AnchorSideLeft.Control = gbGrabStyle
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = gbGrabStyle
|
|
AnchorSideRight.Control = pnTop
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = gbGrabStyle
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 263
|
|
Height = 80
|
|
Top = 60
|
|
Width = 257
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Band Border Style'
|
|
ClientHeight = 64
|
|
ClientWidth = 255
|
|
TabOrder = 2
|
|
object cbBorderStyle: TComboBox
|
|
AnchorSideLeft.Control = gbBorderStyle
|
|
AnchorSideTop.Control = gbBorderStyle
|
|
AnchorSideRight.Control = gbBorderStyle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 6
|
|
Width = 243
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'None'
|
|
'Single'
|
|
)
|
|
OnChange = cbBorderStyleChange
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
Text = 'Single'
|
|
end
|
|
end
|
|
object lbCoolBarWidth: TLabel
|
|
AnchorSideLeft.Control = cbCoolBarVisible
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = cbCoolBarVisible
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 155
|
|
Height = 15
|
|
Top = 36
|
|
Width = 83
|
|
Alignment = taRightJustify
|
|
BorderSpacing.Left = 32
|
|
Caption = 'Coolbar width'
|
|
ParentColor = False
|
|
end
|
|
object spCoolBarWidth: TSpinEdit
|
|
AnchorSideLeft.Control = lbCoolBarWidth
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lbCoolBarWidth
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 244
|
|
Height = 21
|
|
Top = 33
|
|
Width = 64
|
|
BorderSpacing.Left = 6
|
|
MaxValue = 5000
|
|
OnChange = spCoolBarWidthChange
|
|
TabOrder = 4
|
|
Value = 230
|
|
end
|
|
object pnTopCenterLabel: TLabel
|
|
AnchorSideLeft.Control = pnTop
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = pnTop
|
|
Left = 260
|
|
Height = 1
|
|
Top = 0
|
|
Width = 1
|
|
ParentColor = False
|
|
end
|
|
end
|
|
object dbAddConfigDelete: TDividerBevel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = pnTop
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 15
|
|
Top = 179
|
|
Width = 520
|
|
Caption = 'Add/Config/Delete Toolbar(s)'
|
|
Align = alTop
|
|
BorderSpacing.Bottom = 6
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object imButtons: TImageList
|
|
left = 472
|
|
end
|
|
object tmWait: TTimer
|
|
Enabled = False
|
|
Interval = 100
|
|
OnTimer = tmWaitTimer
|
|
left = 408
|
|
end
|
|
end
|