paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 00:23:53 +02:00
Code Issues Packages Projects Releases Wiki Activity
357feec170
lazarus/ide/frames/idecoolbar_options.lfm

413 lines
11 KiB
Plaintext
Raw Blame History

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 = 264
Top = 187
Width = 520
Align = alClient
BorderSpacing.Top = 6
BevelOuter = bvNone
ClientHeight = 264
ClientWidth = 520
Constraints.MinHeight = 115
TabOrder = 1
object pnButtons: TPanel
AnchorSideLeft.Control = pnBottom
AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblNoAutoSaveActiveDesktop
Left = 0
Height = 35
Top = 210
Width = 520
Anchors = [akLeft, akRight, akBottom]
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 = 23
Top = 6
Width = 45
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 = 120
Height = 23
Top = 6
Width = 57
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 = 57
Height = 23
Top = 6
Width = 57
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 = 453
Height = 23
Top = 6
Width = 61
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Default'
OnClick = bDefaultToolbarClick
TabOrder = 3
end
end
object sbCoolBar: TScrollBox
AnchorSideLeft.Control = pnBottom
AnchorSideTop.Control = pnBottom
AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnButtons
Left = 0
Height = 198
Top = 0
Width = 520
HorzScrollBar.Page = 75
VertScrollBar.Page = 25
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 12
BorderStyle = bsNone
ClientHeight = 198
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
object lblNoAutoSaveActiveDesktop: TLabel
AnchorSideLeft.Control = pnBottom
AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 13
Top = 245
Width = 520
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6
Caption = 'lblNoAutoSaveActiveDesktop'
Font.Color = clInactiveCaption
ParentColor = False
ParentFont = False
WordWrap = True
end
end
object pnTop: TPanel
Left = 0
Height = 168
Top = 0
Width = 520
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 168
ClientWidth = 520
Constraints.MinWidth = 350
TabOrder = 0
object dbGeneralSettings: TDividerBevel
Left = 0
Height = 13
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 = 78
Top = 55
Width = 257
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 3
Caption = 'Grab Style'
ClientHeight = 60
ClientWidth = 253
TabOrder = 1
object lbGrabWidth: TLabel
AnchorSideTop.Control = spGrabWidth
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = spGrabWidth
Left = 107
Height = 13
Top = 37
Width = 58
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 = 171
Height = 21
Top = 33
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 = 21
Top = 6
Width = 241
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 13
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 = 453
Height = 23
Top = 139
Width = 61
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 = 17
Top = 30
Width = 97
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 = 78
Top = 55
Width = 257
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'Band Border Style'
ClientHeight = 60
ClientWidth = 253
TabOrder = 2
object cbBorderStyle: TComboBox
AnchorSideLeft.Control = gbBorderStyle
AnchorSideTop.Control = gbBorderStyle
AnchorSideRight.Control = gbBorderStyle
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 6
Width = 241
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 13
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 = 129
Height = 13
Top = 32
Width = 66
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 = 201
Height = 21
Top = 28
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 = 13
Top = 168
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
Reference in New Issue View Git Blame Copy Permalink