335 lines
9.3 KiB
Plaintext
335 lines
9.3 KiB
Plaintext
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
|