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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
inherited DebuggerEventLogOptionsFrame: TDebuggerEventLogOptionsFrame
Height = 329
Width = 534
ClientHeight = 329
ClientWidth = 534
TabOrder = 0
Visible = False
DesignLeft = 536
DesignTop = 282
object gbGeneral: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 151
Top = 0
Width = 128
AutoSize = True
Caption = 'General'
ClientHeight = 133
ClientWidth = 124
TabOrder = 0
object chkClearLogOnRun: TCheckBox
AnchorSideLeft.Control = gbGeneral
AnchorSideTop.Control = gbGeneral
Left = 6
Height = 17
Top = 6
Width = 94
BorderSpacing.Around = 6
Caption = 'Clear log on run'
Checked = True
State = cbChecked
TabOrder = 0
end
object chkLimitLinecount: TCheckBox
AnchorSideLeft.Control = gbGeneral
AnchorSideTop.Control = chkClearLogOnRun
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 98
BorderSpacing.Around = 6
Caption = 'Limit linecount to'
OnChange = chkLimitLinecountChange
TabOrder = 1
end
object seLimitLinecount: TSpinEdit
AnchorSideLeft.Control = chkLimitLinecount
AnchorSideTop.Control = chkLimitLinecount
AnchorSideTop.Side = asrBottom
Left = 26
Height = 21
Top = 52
Width = 92
BorderSpacing.Left = 20
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 60
TabOrder = 2
end
end
object gbMessages: TGroupBox[1]
AnchorSideLeft.Control = gbGeneral
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbGeneral
AnchorSideBottom.Side = asrBottom
Left = 134
Height = 151
Top = 0
Width = 400
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
Caption = 'Messages'
ClientHeight = 133
ClientWidth = 396
TabOrder = 1
object cbMessages: TCheckListBox
AnchorSideLeft.Control = gbMessages
AnchorSideTop.Control = gbMessages
AnchorSideRight.Control = gbMessages
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbMessages
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 121
Top = 6
Width = 384
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 0
end
end
object gbColors: TGroupBox[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbGeneral
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 172
Top = 157
Width = 534
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
Caption = 'Colors'
ClientHeight = 154
ClientWidth = 530
TabOrder = 2
object ColorTree: TTreeView
AnchorSideLeft.Control = gbColors
AnchorSideTop.Control = chkUseEventLogColors
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColors
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbColors
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 119
Top = 29
Width = 240
Anchors = [akTop, akLeft, akBottom]
AutoExpand = True
BorderSpacing.Around = 6
Constraints.MinWidth = 150
DefaultItemHeight = 15
ReadOnly = True
ScrollBars = ssAutoBoth
ShowButtons = False
ShowRoot = False
TabOrder = 0
OnAdvancedCustomDrawItem = ColorTreeAdvancedCustomDrawItem
OnChange = ColorTreeChange
OnClick = ColorTreeClick
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
end
object chkUseEventLogColors: TCheckBox
AnchorSideLeft.Control = gbColors
AnchorSideTop.Control = gbColors
Left = 6
Height = 17
Top = 6
Width = 127
BorderSpacing.Around = 6
Caption = 'chkUseEventLogColors'
OnChange = chkUseEventLogColorsChange
TabOrder = 1
end
object ForegroundColorBox: TColorBox
AnchorSideLeft.Control = ColorTree
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ForeGroundLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColors
AnchorSideRight.Side = asrBottom
Left = 252
Height = 22
Top = 46
Width = 272
DefaultColorColor = clWhite
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 16
OnChange = ForegroundColorBoxChange
TabOrder = 2
end
object BackGroundColorBox: TColorBox
AnchorSideLeft.Control = ColorTree
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BackGroundLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbColors
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 252
Height = 22
Top = 91
Width = 272
DefaultColorColor = clWhite
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 16
OnChange = ForegroundColorBoxChange
TabOrder = 3
end
object ForeGroundLabel: TLabel
AnchorSideLeft.Control = ColorTree
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ColorTree
Left = 252
Height = 14
Top = 29
Width = 83
BorderSpacing.Left = 6
Caption = 'ForeGroundLabel'
ParentColor = False
end
object BackGroundLabel: TLabel
AnchorSideLeft.Control = ColorTree
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ForegroundColorBox
AnchorSideTop.Side = asrBottom
Left = 252
Height = 14
Top = 74
Width = 83
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'BackGroundLabel'
ParentColor = False
end
end
end
|
