pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
d6b917de4acc7b5ce6871f914b65e204a08714b7
lazarus-ccr/components/rx/rxtbrsetup.lfm
alexs75 5bccf8036a fix work TToolBar in latest lazarus 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1180 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2010-03-15 17:56:12 +00:00

327 lines
9.0 KiB
Plaintext
Raw Blame History

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
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
Position = poScreenCenter
LCLVersion = '0.9.29'
object PageControl1: TPageControl
Left = 0
Height = 435
Top = 0
Width = 657
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Visible buttons'
ClientHeight = 404
ClientWidth = 653
object Label1: TLabel
AnchorSideLeft.Control = BitBtn3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TabSheet1
Left = 350
Height = 18
Top = 6
Width = 118
BorderSpacing.Around = 6
Caption = 'Avaliable buttons'
FocusControl = ListBtnAvaliable
ParentColor = False
end
object Label2: TLabel
AnchorSideTop.Control = TabSheet1
Left = 8
Height = 18
Top = 6
Width = 102
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 = 148
Width = 35
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 2
Caption = '<<'
NumGlyphs = 0
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 = 31
Top = 111
Width = 35
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 2
Caption = '<'
NumGlyphs = 0
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 = 67
Width = 35
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 2
Caption = '>'
NumGlyphs = 0
OnClick = BitBtn5Click
TabOrder = 2
end
object BitBtn6: TBitBtn
AnchorSideLeft.Control = TabSheet1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ListBtnAvaliable
Left = 309
Height = 31
Top = 30
Width = 35
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = '>>'
NumGlyphs = 0
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 = 350
Height = 275
Top = 30
Width = 297
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Items.Strings = (
'111'
'222'
'333'
'44'
'555'
'666'
'777'
)
ItemHeight = 0
OnClick = ListBtnAvaliableClick
OnDrawItem = ListBox1DrawItem
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 = 275
Top = 30
Width = 289
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
OnClick = ListBtnAvaliableClick
OnDrawItem = ListBox1DrawItem
Style = lbOwnerDrawFixed
TabOrder = 5
TopIndex = -1
end
object Panel1: TPanel
AnchorSideBottom.Control = TabSheet1
AnchorSideBottom.Side = asrBottom
Left = 3
Height = 62
Top = 336
Width = 641
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 = 19
Top = 311
Width = 112
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Show caption'
OnChange = cbShowCaptionChange
TabOrder = 7
end
end
object TabSheet2: TTabSheet
Caption = 'Options'
ClientHeight = 404
ClientWidth = 653
object cbShowHint: TCheckBox
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = cbTransp
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 148
Width = 88
BorderSpacing.Around = 6
Caption = 'Show hint'
TabOrder = 0
end
object cbTransp: TCheckBox
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = cbFlatBtn
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 123
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 = 19
Top = 98
Width = 101
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 = 334
Height = 86
Top = 6
Width = 313
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 = 69
ClientWidth = 313
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 = 86
Top = 6
Width = 313
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 = 69
ClientWidth = 313
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 = 325
Height = 392
Top = 6
Width = 3
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
TabOrder = 5
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 40
Top = 441
Width = 645
TabOrder = 1
ShowButtons = [pbClose, pbHelp]
end
end
Reference in New Issue View Git Blame Copy Permalink