mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 05:07:53 +02:00
478 lines
10 KiB
Plaintext
478 lines
10 KiB
Plaintext
object CoolBarDemo: TCoolBarDemo
|
|
Left = 505
|
|
Height = 490
|
|
Top = 205
|
|
Width = 647
|
|
Caption = 'CoolBarDemo'
|
|
ClientHeight = 465
|
|
ClientWidth = 647
|
|
Menu = MainMenu1
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '1.3'
|
|
object CoolBar1: TCoolBar
|
|
Left = 0
|
|
Height = 152
|
|
Top = 0
|
|
Width = 646
|
|
Align = alNone
|
|
AutoSize = True
|
|
Bands = <
|
|
item
|
|
Control = ToolBar1
|
|
FixedSize = True
|
|
Width = 179
|
|
end
|
|
item
|
|
Control = ToolBar2
|
|
FixedSize = True
|
|
Width = 179
|
|
end
|
|
item
|
|
Control = ToolBar3
|
|
FixedSize = True
|
|
Width = 179
|
|
end
|
|
item
|
|
Control = ToolBar4
|
|
FixedSize = True
|
|
Width = 179
|
|
end
|
|
item
|
|
Control = ToolBar5
|
|
FixedSize = True
|
|
Width = 179
|
|
end>
|
|
PopupMenu = PopupMenu1
|
|
object ToolBar1: TToolBar
|
|
AnchorSideLeft.Control = CoolBar1
|
|
AnchorSideTop.Control = CoolBar1
|
|
Left = 24
|
|
Height = 22
|
|
Top = 5
|
|
Width = 69
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 22
|
|
BorderSpacing.Top = 3
|
|
ButtonWidth = 22
|
|
Caption = 'ToolBar1'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = False
|
|
Indent = 0
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object TBtn11: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '11'
|
|
end
|
|
object TBtn12: TToolButton
|
|
Left = 23
|
|
Top = 0
|
|
Caption = '12'
|
|
end
|
|
object TBtn13: TToolButton
|
|
Left = 46
|
|
Top = 0
|
|
Caption = '13'
|
|
end
|
|
end
|
|
object ToolBar2: TToolBar
|
|
AnchorSideLeft.Control = CoolBar1
|
|
AnchorSideTop.Control = CoolBar1
|
|
Left = 24
|
|
Height = 22
|
|
Top = 35
|
|
Width = 92
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 22
|
|
BorderSpacing.Top = 33
|
|
ButtonWidth = 22
|
|
Caption = 'ToolBar2'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = False
|
|
Indent = 0
|
|
ShowCaptions = True
|
|
TabOrder = 1
|
|
object TBtn21: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '21'
|
|
end
|
|
object TBtn22: TToolButton
|
|
Left = 23
|
|
Top = 0
|
|
Caption = '22'
|
|
end
|
|
object TBtn23: TToolButton
|
|
Left = 46
|
|
Top = 0
|
|
Caption = '23'
|
|
end
|
|
object TBtn24: TToolButton
|
|
Left = 69
|
|
Top = 0
|
|
Caption = '24'
|
|
end
|
|
end
|
|
object ToolBar3: TToolBar
|
|
AnchorSideLeft.Control = CoolBar1
|
|
AnchorSideTop.Control = CoolBar1
|
|
Left = 24
|
|
Height = 22
|
|
Top = 65
|
|
Width = 115
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 22
|
|
BorderSpacing.Top = 63
|
|
ButtonWidth = 22
|
|
Caption = 'ToolBar3'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = False
|
|
Indent = 0
|
|
ShowCaptions = True
|
|
TabOrder = 2
|
|
object TBtn31: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '31'
|
|
end
|
|
object TBtn32: TToolButton
|
|
Left = 23
|
|
Top = 0
|
|
Caption = '32'
|
|
end
|
|
object TBtn33: TToolButton
|
|
Left = 46
|
|
Top = 0
|
|
Caption = '33'
|
|
end
|
|
object TBtn34: TToolButton
|
|
Left = 69
|
|
Top = 0
|
|
Caption = '34'
|
|
end
|
|
object TBtn35: TToolButton
|
|
Left = 92
|
|
Top = 0
|
|
Caption = '35'
|
|
end
|
|
end
|
|
object ToolBar4: TToolBar
|
|
AnchorSideLeft.Control = CoolBar1
|
|
AnchorSideTop.Control = CoolBar1
|
|
Left = 24
|
|
Height = 22
|
|
Top = 95
|
|
Width = 69
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 22
|
|
BorderSpacing.Top = 93
|
|
ButtonWidth = 22
|
|
Caption = 'ToolBar4'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = False
|
|
Indent = 0
|
|
ShowCaptions = True
|
|
TabOrder = 3
|
|
object TBtn41: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '41'
|
|
end
|
|
object TBtn42: TToolButton
|
|
Left = 23
|
|
Top = 0
|
|
Caption = '42'
|
|
end
|
|
object TBtn43: TToolButton
|
|
Left = 46
|
|
Top = 0
|
|
Caption = '43'
|
|
end
|
|
end
|
|
object ToolBar5: TToolBar
|
|
AnchorSideLeft.Control = CoolBar1
|
|
AnchorSideTop.Control = CoolBar1
|
|
Left = 24
|
|
Height = 22
|
|
Top = 125
|
|
Width = 138
|
|
Align = alNone
|
|
AutoSize = True
|
|
BorderSpacing.Left = 22
|
|
BorderSpacing.Top = 123
|
|
ButtonWidth = 22
|
|
Caption = 'ToolBar5'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = False
|
|
Indent = 0
|
|
ShowCaptions = True
|
|
TabOrder = 4
|
|
object TBtn51: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = '51'
|
|
end
|
|
object TBtn52: TToolButton
|
|
Left = 23
|
|
Top = 0
|
|
Caption = '52'
|
|
end
|
|
object TBtn53: TToolButton
|
|
Left = 46
|
|
Top = 0
|
|
Caption = '53'
|
|
end
|
|
object TBtn54: TToolButton
|
|
Left = 69
|
|
Top = 0
|
|
Caption = '54'
|
|
end
|
|
object TBtn55: TToolButton
|
|
Left = 92
|
|
Top = 0
|
|
Caption = '55'
|
|
end
|
|
object TBtn56: TToolButton
|
|
Left = 115
|
|
Top = 0
|
|
Caption = '56'
|
|
end
|
|
end
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 224
|
|
Height = 73
|
|
Top = 176
|
|
Width = 168
|
|
AutoFill = True
|
|
Caption = 'BiDi Mode'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 54
|
|
ClientWidth = 164
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Left to Right'
|
|
'Right to Left'
|
|
)
|
|
OnClick = RadioGroup1Click
|
|
TabOrder = 1
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 224
|
|
Height = 21
|
|
Top = 288
|
|
Width = 168
|
|
ItemHeight = 15
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'gsSimple'
|
|
'gsDouble'
|
|
'gsHorLines'
|
|
'gsVerLines'
|
|
'gsGripper'
|
|
'gsButton'
|
|
)
|
|
OnChange = ComboBox1Change
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
Text = 'gsDouble'
|
|
end
|
|
object Label1: TLabel
|
|
Left = 224
|
|
Height = 15
|
|
Top = 265
|
|
Width = 65
|
|
Caption = 'Grab Style'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 224
|
|
Height = 15
|
|
Top = 328
|
|
Width = 69
|
|
Caption = 'Grab Width'
|
|
ParentColor = False
|
|
end
|
|
object SpinEdit1: TSpinEdit
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 344
|
|
Height = 21
|
|
Top = 325
|
|
Width = 50
|
|
OnChange = SpinEdit1Change
|
|
TabOrder = 3
|
|
Value = 10
|
|
end
|
|
object Button1: TButton
|
|
Left = 232
|
|
Height = 25
|
|
Top = 376
|
|
Width = 123
|
|
Caption = 'Autosize Bands'
|
|
OnClick = Button1Click
|
|
TabOrder = 4
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
left = 552
|
|
top = 168
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'View'
|
|
object MITBSmall: TMenuItem
|
|
Action = AcToolBarSmall
|
|
AutoCheck = True
|
|
GroupIndex = 11
|
|
RadioItem = True
|
|
end
|
|
object MITBMedium: TMenuItem
|
|
Action = AcToolBarMedium
|
|
AutoCheck = True
|
|
GroupIndex = 11
|
|
RadioItem = True
|
|
end
|
|
object MITBLarge: TMenuItem
|
|
Action = AcToolBarLarge
|
|
AutoCheck = True
|
|
GroupIndex = 11
|
|
RadioItem = True
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MITBLeft: TMenuItem
|
|
Action = AcTBLeft
|
|
AutoCheck = True
|
|
GroupIndex = 12
|
|
RadioItem = True
|
|
end
|
|
object MITBTop: TMenuItem
|
|
Action = AcTBTop
|
|
AutoCheck = True
|
|
GroupIndex = 12
|
|
RadioItem = True
|
|
end
|
|
object MITBRight: TMenuItem
|
|
Action = AcTBRight
|
|
AutoCheck = True
|
|
GroupIndex = 12
|
|
RadioItem = True
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MIShowTB1: TMenuItem
|
|
Action = AcTB1Visi
|
|
AutoCheck = True
|
|
end
|
|
object MIShowTB2: TMenuItem
|
|
Action = AcTB2Visi
|
|
AutoCheck = True
|
|
end
|
|
object MIShowTB3: TMenuItem
|
|
Action = AcTB3Visi
|
|
AutoCheck = True
|
|
end
|
|
object MIShowTB4: TMenuItem
|
|
Action = AcTB4Visi
|
|
AutoCheck = True
|
|
end
|
|
object MIShowTB5: TMenuItem
|
|
Action = AcTB5Visi
|
|
AutoCheck = True
|
|
end
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
left = 552
|
|
top = 232
|
|
object AcToolBarSmall: TAction
|
|
AutoCheck = True
|
|
Caption = 'Small Buttons'
|
|
GroupIndex = 11
|
|
OnExecute = AcToolBarSmallExecute
|
|
end
|
|
object AcToolBarMedium: TAction
|
|
AutoCheck = True
|
|
Caption = 'Medium Buttons'
|
|
GroupIndex = 11
|
|
OnExecute = AcToolBarMediumExecute
|
|
end
|
|
object AcToolBarLarge: TAction
|
|
AutoCheck = True
|
|
Caption = 'Large Buttons'
|
|
GroupIndex = 11
|
|
OnExecute = AcToolBarLargeExecute
|
|
end
|
|
object AcTBLeft: TAction
|
|
AutoCheck = True
|
|
Caption = 'Toolbar Left'
|
|
GroupIndex = 12
|
|
OnExecute = AcTBLeftExecute
|
|
end
|
|
object AcTBTop: TAction
|
|
AutoCheck = True
|
|
Caption = 'Toolbar Top'
|
|
GroupIndex = 12
|
|
OnExecute = AcTBTopExecute
|
|
end
|
|
object AcTBRight: TAction
|
|
AutoCheck = True
|
|
Caption = 'Toolbar Right'
|
|
GroupIndex = 12
|
|
OnExecute = AcTBRightExecute
|
|
end
|
|
object AcTB1Visi: TAction
|
|
AutoCheck = True
|
|
Caption = 'Show Toolbar1'
|
|
OnExecute = AcTB1VisiExecute
|
|
end
|
|
object AcTB2Visi: TAction
|
|
AutoCheck = True
|
|
Caption = 'Show Toolbar2'
|
|
OnExecute = AcTB2VisiExecute
|
|
end
|
|
object AcTB3Visi: TAction
|
|
AutoCheck = True
|
|
Caption = 'Show Toolbar3'
|
|
OnExecute = AcTB3VisiExecute
|
|
end
|
|
object AcTB4Visi: TAction
|
|
AutoCheck = True
|
|
Caption = 'Show Toolbar4'
|
|
OnExecute = AcTB4VisiExecute
|
|
end
|
|
object AcTB5Visi: TAction
|
|
AutoCheck = True
|
|
Caption = 'Show Toolbar5'
|
|
OnExecute = AcTB5VisiExecute
|
|
end
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
left = 552
|
|
top = 296
|
|
end
|
|
end
|