lazarus-ccr/components/rx/rxtbrsetup.lfm

247 lines
5.7 KiB
Plaintext

object ToolPanelSetupForm: TToolPanelSetupForm
Left = 289
Height = 404
Top = 169
Width = 442
HorzScrollBar.Page = 441
VertScrollBar.Page = 403
ActiveControl = BitBtn1
Caption = 'Tool panel setup'
ClientHeight = 404
ClientWidth = 442
FormStyle = fsStayOnTop
OnClose = FormClose
OnDestroy = FormDestroy
OnResize = FormResize
object BitBtn1: TBitBtn
Left = 266
Height = 38
Top = 360
Width = 83
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 2
Caption = '&Close'
Kind = bkClose
NumGlyphs = 0
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 354
Height = 38
Top = 360
Width = 83
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 2
Caption = '&Help'
Kind = bkHelp
NumGlyphs = 0
TabOrder = 1
end
object PageControl1: TPageControl
Height = 353
Width = 442
ActivePage = TabSheet2
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 1
TabOrder = 2
object TabSheet1: TTabSheet
Caption = 'Visible buttons'
ClientHeight = 353
ClientWidth = 442
object Label1: TLabel
Left = 263
Height = 14
Top = 5
Width = 84
Caption = 'Avaliable buttons'
Color = clNone
FocusControl = ListBtnAvaliable
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 14
Top = 7
Width = 70
Caption = 'Visible buttons'
Color = clNone
FocusControl = ListBtnVisible
ParentColor = False
end
object BitBtn3: TBitBtn
Left = 206
Height = 30
Top = 157
Width = 30
Anchors = [akTop]
BorderSpacing.InnerBorder = 2
Caption = '<<'
NumGlyphs = 0
OnClick = BitBtn3Click
TabOrder = 0
end
object BitBtn4: TBitBtn
Left = 206
Height = 30
Top = 115
Width = 30
Anchors = [akTop]
BorderSpacing.InnerBorder = 2
Caption = '<'
NumGlyphs = 0
OnClick = BitBtn4Click
TabOrder = 1
end
object BitBtn5: TBitBtn
Left = 206
Height = 30
Top = 74
Width = 30
Anchors = [akTop]
BorderSpacing.InnerBorder = 2
Caption = '>'
NumGlyphs = 0
OnClick = BitBtn5Click
TabOrder = 2
end
object BitBtn6: TBitBtn
Left = 206
Height = 30
Top = 40
Width = 30
Anchors = [akTop]
BorderSpacing.InnerBorder = 2
Caption = '>>'
NumGlyphs = 0
OnClick = BitBtn6Click
TabOrder = 3
end
object ListBtnAvaliable: TListBox
Left = 259
Height = 234
Top = 24
Width = 172
Anchors = [akTop, akLeft, akBottom]
Items.Strings = (
'111'
'222'
'333'
'44'
'555'
'666'
'777'
)
OnClick = ListBtnAvaliableClick
OnDrawItem = ListBox1DrawItem
Style = lbOwnerDrawFixed
TabOrder = 4
end
object ListBtnVisible: TListBox
Left = 8
Height = 234
Top = 24
Width = 168
Anchors = [akTop, akLeft, akBottom]
OnClick = ListBtnAvaliableClick
OnDrawItem = ListBox1DrawItem
Style = lbOwnerDrawFixed
TabOrder = 5
TopIndex = -1
end
object Panel1: TPanel
Left = 3
Height = 43
Top = 282
Width = 430
Alignment = taLeftJustify
Anchors = [akLeft, akRight, akBottom]
BevelOuter = bvLowered
FullRepaint = False
TabOrder = 6
end
object cbShowCaption: TCheckBox
Left = 8
Height = 13
Top = 264
Width = 85
Anchors = [akLeft, akBottom]
Caption = 'Show caption'
OnChange = cbShowCaptionChange
TabOrder = 7
UseOnChange = True
end
end
object TabSheet2: TTabSheet
Caption = 'Options'
ClientHeight = 323
ClientWidth = 438
object cbShowHint: TCheckBox
Left = 9
Height = 20
Top = 58
Width = 82
Caption = 'Show hint'
OnClick = CheckBox1Change
TabOrder = 0
UseOnChange = True
end
object cbTransp: TCheckBox
Left = 9
Height = 20
Top = 34
Width = 93
Caption = 'Transparent'
OnClick = CheckBox1Change
TabOrder = 1
UseOnChange = True
end
object cbFlatBtn: TCheckBox
Left = 9
Height = 20
Top = 10
Width = 92
Caption = 'Flat buttons'
OnClick = CheckBox1Change
TabOrder = 2
UseOnChange = True
end
object cbsBarStyle: TCheckBox
Left = 9
Height = 20
Top = 79
Width = 74
Caption = 'XP style'
OnClick = CheckBox1Change
TabOrder = 3
UseOnChange = True
end
object RadioGroup1: TRadioGroup
Left = 9
Height = 98
Top = 106
Width = 176
AutoFill = True
Caption = 'Button align'
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 = 81
ClientWidth = 172
Items.Strings = (
'None'
'Left'
'Rignt'
)
OnClick = CheckBox1Change
TabOrder = 4
end
end
end
end