mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 02:32:34 +02:00
95b6a7b814
- add debugger exception notification dialog instead of simple message dialog. This allows to continue execution just after reading about exception and to add this exception to the "skip" list. - implement "Notify on Lazarus exception" option - fix inability to remove an exception from the "skip" list git-svn-id: trunk@18916 -
92 lines
2.5 KiB
Plaintext
92 lines
2.5 KiB
Plaintext
inherited DebuggerLanguageExceptionsOptions: TDebuggerLanguageExceptionsOptions
|
|
Height = 421
|
|
Width = 448
|
|
ClientHeight = 421
|
|
ClientWidth = 448
|
|
TabOrder = 0
|
|
Visible = False
|
|
DesignLeft = 132
|
|
DesignTop = 174
|
|
object bgIgnoreExceptions: TGroupBox[0]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = chkNotifyOnException
|
|
Left = 0
|
|
Height = 398
|
|
Top = 0
|
|
Width = 448
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Ignore these exceptions'
|
|
ClientHeight = 380
|
|
ClientWidth = 444
|
|
TabOrder = 0
|
|
object clbExceptions: TCheckListBox
|
|
AnchorSideLeft.Control = bgIgnoreExceptions
|
|
AnchorSideTop.Control = bgIgnoreExceptions
|
|
AnchorSideRight.Control = bgIgnoreExceptions
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = cmdExceptionAdd
|
|
Left = 6
|
|
Height = 339
|
|
Top = 6
|
|
Width = 432
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
OnClick = clbExceptionsClick
|
|
TabOrder = 0
|
|
end
|
|
object cmdExceptionAdd: TBitBtn
|
|
AnchorSideRight.Control = cmdExceptionRemove
|
|
AnchorSideBottom.Control = bgIgnoreExceptions
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 282
|
|
Height = 23
|
|
Top = 351
|
|
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 = 23
|
|
Top = 351
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Remove'
|
|
Constraints.MinWidth = 75
|
|
Enabled = False
|
|
NumGlyphs = 0
|
|
OnClick = cmdExceptionRemoveClick
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object chkNotifyOnException: TCheckBox[1]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 17
|
|
Top = 404
|
|
Width = 156
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Break on Lazarus Exceptions'
|
|
TabOrder = 1
|
|
end
|
|
end
|