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
|
inherited DebuggerLanguageExceptionsOptions: TDebuggerLanguageExceptionsOptions
Height = 421
Width = 448
ClientHeight = 421
ClientWidth = 448
TabOrder = 0
Visible = False
DesignLeft = 312
DesignTop = 189
object bgIgnoreExceptions: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = chkNotifyOnException
Left = 0
Height = 393
Top = 0
Width = 448
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6
Caption = 'Ignore these exceptions'
ClientHeight = 374
ClientWidth = 444
TabOrder = 0
object clbExceptions: TCheckListBox
AnchorSideLeft.Control = bgIgnoreExceptions
AnchorSideTop.Control = DbgLangExceptHint
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bgIgnoreExceptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmdExceptionAdd
Left = 6
Height = 303
Top = 30
Width = 432
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
OnClick = clbExceptionsClick
TabOrder = 0
TopIndex = -1
end
object cmdExceptionAdd: TBitBtn
AnchorSideRight.Control = cmdExceptionRemove
AnchorSideBottom.Control = bgIgnoreExceptions
AnchorSideBottom.Side = asrBottom
Left = 282
Height = 29
Top = 339
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Add'
Constraints.MinWidth = 75
NumGlyphs = 0
OnClick = cmdExceptionAddClick
TabOrder = 1
end
object cmdExceptionRemove: TBitBtn
AnchorSideRight.Control = bgIgnoreExceptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = bgIgnoreExceptions
AnchorSideBottom.Side = asrBottom
Left = 363
Height = 29
Top = 339
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Remove'
Constraints.MinWidth = 75
Enabled = False
NumGlyphs = 0
OnClick = cmdExceptionRemoveClick
TabOrder = 2
end
object DbgLangExceptHint: TLabel
Left = 6
Height = 18
Top = 6
Width = 432
Align = alTop
BorderSpacing.Around = 6
Caption = 'DbgLangExceptHint'
ParentColor = False
end
end
object chkNotifyOnException: TCheckBox[1]
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 22
Top = 399
Width = 208
Anchors = [akLeft, akBottom]
Caption = 'Break on Lazarus Exceptions'
TabOrder = 1
end
end
|
