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