object ToolPanelSetupForm: TToolPanelSetupForm Left = 383 Height = 487 Top = 176 Width = 657 ActiveControl = PageControl1 Caption = 'Tool panel setup' ClientHeight = 487 ClientWidth = 657 FormStyle = fsStayOnTop OnClose = FormClose OnDestroy = FormDestroy OnResize = FormResize Position = poScreenCenter LCLVersion = '1.7' object PageControl1: TPageControl Left = 0 Height = 433 Top = 0 Width = 657 ActivePage = TabSheet1 Align = alClient TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Visible buttons' ClientHeight = 395 ClientWidth = 651 object Label1: TLabel AnchorSideLeft.Control = BitBtn3 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TabSheet1 Left = 347 Height = 20 Top = 6 Width = 112 BorderSpacing.Around = 6 Caption = 'Avaliable buttons' FocusControl = ListBtnAvaliable ParentColor = False end object Label2: TLabel AnchorSideTop.Control = TabSheet1 Left = 8 Height = 20 Top = 6 Width = 97 BorderSpacing.Around = 6 Caption = 'Visible buttons' FocusControl = ListBtnVisible ParentColor = False end object BitBtn3: TBitBtn AnchorSideLeft.Control = BitBtn6 AnchorSideTop.Control = BitBtn4 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = BitBtn6 AnchorSideRight.Side = asrBottom Left = 309 Height = 30 Top = 160 Width = 32 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 2 Caption = '<<' OnClick = BitBtn3Click TabOrder = 0 end object BitBtn4: TBitBtn AnchorSideLeft.Control = BitBtn6 AnchorSideTop.Control = BitBtn5 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = BitBtn6 AnchorSideRight.Side = asrBottom Left = 309 Height = 36 Top = 118 Width = 32 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 2 Caption = '<' OnClick = BitBtn4Click TabOrder = 1 end object BitBtn5: TBitBtn AnchorSideLeft.Control = BitBtn6 AnchorSideTop.Control = BitBtn6 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = BitBtn6 AnchorSideRight.Side = asrBottom Left = 309 Height = 38 Top = 74 Width = 32 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 2 Caption = '>' OnClick = BitBtn5Click TabOrder = 2 end object BitBtn6: TBitBtn AnchorSideLeft.Control = TabSheet1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = ListBtnAvaliable Left = 309 Height = 36 Top = 32 Width = 32 AutoSize = True BorderSpacing.InnerBorder = 2 Caption = '>>' OnClick = BitBtn6Click TabOrder = 3 end object ListBtnAvaliable: TListBox AnchorSideLeft.Control = BitBtn3 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = TabSheet1 AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = cbShowCaption Left = 347 Height = 259 Top = 32 Width = 298 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 IntegralHeight = True Items.Strings = ( '111' '222' '333' '44' '555' '666' '777' ) ItemHeight = 0 OnClick = ListBtnAvaliableClick OnDblClick = ListBtnVisibleDblClick OnDrawItem = ListBox1DrawItem ScrollWidth = 296 Style = lbOwnerDrawFixed TabOrder = 4 end object ListBtnVisible: TListBox AnchorSideLeft.Control = Label2 AnchorSideTop.Control = Label2 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = BitBtn6 AnchorSideBottom.Control = cbShowCaption Left = 14 Height = 259 Top = 32 Width = 289 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 ItemHeight = 0 OnClick = ListBtnAvaliableClick OnDblClick = ListBtnVisibleDblClick OnDrawItem = ListBox1DrawItem ScrollWidth = 287 Style = lbOwnerDrawFixed TabOrder = 5 TopIndex = -1 end object Panel1: TPanel AnchorSideBottom.Control = TabSheet1 AnchorSideBottom.Side = asrBottom Left = 3 Height = 62 Top = 327 Width = 639 Alignment = taLeftJustify Anchors = [akLeft, akRight, akBottom] BorderSpacing.Around = 6 BevelOuter = bvLowered FullRepaint = False TabOrder = 6 end object cbShowCaption: TCheckBox AnchorSideLeft.Control = TabSheet1 AnchorSideBottom.Control = Panel1 Left = 6 Height = 24 Top = 297 Width = 112 Anchors = [akLeft, akBottom] BorderSpacing.Around = 6 Caption = 'Show caption' OnChange = cbShowCaptionChange TabOrder = 7 end end object TabSheet2: TTabSheet Caption = 'Options' ClientHeight = 395 ClientWidth = 651 object cbShowHint: TCheckBox AnchorSideLeft.Control = TabSheet2 AnchorSideTop.Control = cbTransp AnchorSideTop.Side = asrBottom Left = 6 Height = 24 Top = 178 Width = 90 BorderSpacing.Around = 6 Caption = 'Show hint' TabOrder = 0 end object cbTransp: TCheckBox AnchorSideLeft.Control = TabSheet2 AnchorSideTop.Control = cbFlatBtn AnchorSideTop.Side = asrBottom Left = 6 Height = 24 Top = 148 Width = 101 BorderSpacing.Around = 6 Caption = 'Transparent' TabOrder = 1 end object cbFlatBtn: TCheckBox AnchorSideLeft.Control = TabSheet2 AnchorSideTop.Control = RadioGroup1 AnchorSideTop.Side = asrBottom Left = 6 Height = 24 Top = 118 Width = 104 BorderSpacing.Around = 6 Caption = 'Flat buttons' TabOrder = 2 end object RadioGroup1: TRadioGroup AnchorSideLeft.Control = Panel2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TabSheet2 AnchorSideRight.Control = TabSheet2 AnchorSideRight.Side = asrBottom Left = 333 Height = 106 Top = 6 Width = 312 Anchors = [akTop, akLeft, akRight] AutoFill = False AutoSize = True BorderSpacing.Around = 6 Caption = 'Button align' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 84 ClientWidth = 308 Items.Strings = ( 'None' 'Left' 'Rignt' ) TabOrder = 3 TabStop = True end object RadioGroup2: TRadioGroup AnchorSideLeft.Control = TabSheet2 AnchorSideTop.Control = TabSheet2 AnchorSideRight.Control = Panel2 Left = 6 Height = 106 Top = 6 Width = 312 Anchors = [akTop, akLeft, akRight] AutoFill = True AutoSize = True BorderSpacing.Around = 6 Caption = 'Tool bar style' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 84 ClientWidth = 308 Items.Strings = ( 'Standart' 'Windows XP' 'Native' ) TabOrder = 4 TabStop = True end object Panel2: TPanel AnchorSideLeft.Control = TabSheet2 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = TabSheet2 AnchorSideBottom.Control = TabSheet2 AnchorSideBottom.Side = asrBottom Left = 324 Height = 383 Top = 6 Width = 3 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Around = 6 TabOrder = 5 end end end object ButtonPanel1: TButtonPanel Left = 6 Height = 42 Top = 439 Width = 645 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 1 ShowButtons = [pbClose, pbHelp] end end