1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
Left = 0
Height = 342
Top = 0
Width = 503
ClientHeight = 342
ClientWidth = 503
TabOrder = 0
DesignLeft = 521
DesignTop = 251
object pnTop: TPanel
Left = 0
Height = 342
Top = 0
Width = 503
Align = alClient
BevelOuter = bvNone
ClientHeight = 342
ClientWidth = 503
Constraints.MinWidth = 350
TabOrder = 0
object dbGeneralSettings: TDividerBevel
Left = 0
Height = 15
Top = 5
Width = 503
Caption = 'Editor Toolbars Settings'
Align = alTop
BorderSpacing.Top = 5
BorderSpacing.Bottom = 5
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object cbCoolBarVisible: TCheckBox
AnchorSideLeft.Control = pnTop
AnchorSideTop.Control = dbGeneralSettings
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 32
Width = 108
BorderSpacing.Top = 12
Caption = 'Toolbar is visible'
OnClick = cbCoolBarVisibleClick
TabOrder = 0
end
object pnTopCenterLabel: TLabel
AnchorSideLeft.Control = pnTop
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = pnTop
Left = 251
Height = 1
Top = 0
Width = 1
ParentColor = False
end
object bConfig: TBitBtn
AnchorSideLeft.Control = cbCoolBarVisible
AnchorSideTop.Control = cbCoolBarVisible
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 25
Top = 65
Width = 79
AutoSize = True
BorderSpacing.Top = 14
Caption = 'Configure'
OnClick = bConfigClick
TabOrder = 2
end
object bDefaultToolbar: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bConfig
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbPos
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 168
Height = 25
Top = 65
Width = 110
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Restore defaults'
OnClick = bDefaultToolbarClick
TabOrder = 3
end
object lblpos: TLabel
AnchorSideLeft.Control = cbCoolBarVisible
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCoolBarVisible
AnchorSideTop.Side = asrCenter
Left = 140
Height = 15
Top = 34
Width = 32
BorderSpacing.Left = 32
BorderSpacing.Right = 6
Caption = 'lblpos'
ParentColor = False
end
object cbPos: TComboBox
AnchorSideLeft.Control = lblpos
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblpos
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom
Left = 178
Height = 23
Top = 30
Width = 100
BorderSpacing.Bottom = 6
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Top'
'Bottom'
'Right'
'Left'
)
OnChange = cbPosChange
Style = csDropDownList
TabOrder = 1
Text = 'Top'
end
end
object imButtons: TImageList
left = 304
end
end
|
