object bcExpandPanelForm1: TbcExpandPanelForm1 Left = 355 Height = 623 Top = 15 Width = 549 Caption = 'bcExpandPanelForm1' ClientHeight = 623 ClientWidth = 549 LCLVersion = '3.99.0.0' OnShow = FormShow object RColl: TRadioGroup Left = 17 Height = 107 Top = 323 Width = 169 AutoFill = True Caption = 'Collapse To' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 87 ClientWidth = 165 Columns = 2 ItemIndex = 0 Items.Strings = ( 'top' 'left' 'right' 'bottom' ) TabOrder = 0 OnClick = RCollClick end object RButt: TRadioGroup Left = 17 Height = 86 Top = 427 Width = 169 AutoFill = True Caption = 'Button Position' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 66 ClientWidth = 165 Columns = 2 ItemIndex = 0 Items.Strings = ( 'top' 'left' 'right' 'bottom' ) TabOrder = 1 OnClick = RButtClick end object RGlyph: TRadioGroup Left = 17 Height = 80 Top = 536 Width = 169 AutoFill = True Caption = 'Glyph Position' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 60 ClientWidth = 165 Columns = 2 ItemIndex = 1 Items.Strings = ( 'Left' 'Right' 'None' ) TabOrder = 2 OnClick = RGlyphClick end object GroupBox1: TGroupBox Left = 193 Height = 152 Top = 323 Width = 169 Caption = 'Caption' ClientHeight = 132 ClientWidth = 165 TabOrder = 3 object Edit1: TEdit Left = 0 Height = 23 Top = 0 Width = 161 TabOrder = 0 Text = 'Click me to Collapse/Expand' OnChange = Edit1Change end object SpeedButton1: TSpeedButton Left = 0 Height = 22 Top = 24 Width = 161 Caption = 'Long Caption...' OnClick = SpeedButton1Click end object RCapt: TRadioGroup Left = 0 Height = 80 Top = 50 Width = 161 AutoFill = True Caption = 'Caption Position' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 60 ClientWidth = 157 Columns = 2 ItemIndex = 0 Items.Strings = ( 'Left' 'Right' 'Center' 'None' ) TabOrder = 1 OnClick = RCaptClick end end object edTabWidth: TSpinEdit Left = 384 Height = 23 Top = 395 Width = 103 MaxValue = 380 MinValue = -90 TabOrder = 4 Value = -50 OnChange = edTabWidthChange end object Label1: TLabel Left = 384 Height = 15 Top = 376 Width = 135 Caption = 'Tab Width (Negative is %)' ParentColor = False end object cbRounded: TCheckBox Left = 368 Height = 19 Top = 426 Width = 109 Caption = 'Rounded Borders' Checked = True State = cbChecked TabOrder = 5 OnClick = cbRoundedClick end object cbFlat: TCheckBox Left = 142 Height = 19 Top = 512 Width = 37 Caption = 'Flat' TabOrder = 6 OnClick = cbFlatClick end object cbBorders: TComboBox Left = 384 Height = 23 Top = 453 Width = 121 ItemHeight = 15 ItemIndex = 2 Items.Strings = ( 'None' 'Lowered' 'Raised' 'Space' ) Style = csDropDownList TabOrder = 7 Text = 'Raised' OnChange = cbBordersChange end object edButtonSize: TSpinEdit Left = 72 Height = 23 Top = 509 Width = 70 TabOrder = 8 OnChange = edButtonSizeChange end object Label3: TLabel Left = 40 Height = 15 Top = 512 Width = 23 Caption = 'Size:' ParentColor = False end object RGlyphKind: TRadioGroup Left = 193 Height = 80 Top = 536 Width = 169 AutoFill = True Caption = 'Glyph Kind' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 60 ClientWidth = 165 Columns = 2 ItemIndex = 0 Items.Strings = ( 'Arrows' 'Close' 'Min/Max' ) TabOrder = 9 OnClick = RGlyphKindClick end object RStyle: TComboBox Left = 368 Height = 23 Top = 346 Width = 176 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'Button' 'Tab' 'Line' 'Line Double' 'Line Top' 'Line Bottom' 'Line Double Top' 'Line Double Bottom' ) Style = csDropDownList TabOrder = 10 Text = 'Button' OnChange = RStyleChange end object Label4: TLabel Left = 369 Height = 15 Top = 327 Width = 31 Caption = 'Style :' ParentColor = False end object p1: TBCExpandPanel Left = 8 Height = 312 Top = 8 Width = 400 Background.Color = clBtnFace Background.Gradient1.StartColor = clWhite Background.Gradient1.EndColor = clBlack Background.Gradient1.GradientType = gtLinear Background.Gradient1.Point1XPercent = 0 Background.Gradient1.Point1YPercent = 0 Background.Gradient1.Point2XPercent = 0 Background.Gradient1.Point2YPercent = 100 Background.Gradient2.StartColor = clWhite Background.Gradient2.EndColor = clBlack Background.Gradient2.GradientType = gtLinear Background.Gradient2.Point1XPercent = 0 Background.Gradient2.Point1YPercent = 0 Background.Gradient2.Point2XPercent = 0 Background.Gradient2.Point2YPercent = 100 Background.Gradient1EndPercent = 35 Background.Style = bbsColor BevelInner = bvNone BevelOuter = bvRaised BevelWidth = 1 Border.Style = bboNone Caption = 'Expand Panel 1' Enabled = True FontEx.Color = clDefault FontEx.FontQuality = fqSystemClearType FontEx.Shadow = False FontEx.ShadowRadius = 5 FontEx.ShadowOffsetX = 5 FontEx.ShadowOffsetY = 5 FontEx.Style = [] ParentBackground = False Rounding.RoundX = 1 Rounding.RoundY = 1 TabOrder = 11 TextAlignment = taCenter CollapseKind = akTop ExpandedSize = 312 ButtonPosition = akTop ButtonSize = 27 Button.Left = 0 Button.Height = 27 Button.Top = 0 Button.Width = 400 Button.Caption = 'Click me to Collapse/Expand' Button.Color = clSkyBlue Button.ColorExpanded = 16287767 Button.GlyphLayout = glRight AnimationSpeed = 20 object Edit2: TEdit Left = 47 Height = 23 Top = 41 Width = 80 TabOrder = 0 Text = 'Edit2' end object Label2: TLabel Left = 136 Height = 15 Top = 47 Width = 34 Caption = 'Label2' ParentColor = False end end end