350 lines
8.1 KiB
Plaintext
350 lines
8.1 KiB
Plaintext
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
|