mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-15 14:29:31 +02:00
+ Added debugger optioes
git-svn-id: trunk@4994 -
This commit is contained in:
marc
parent
560b1a14bf
commit
48b038f8e3
@ -797,6 +797,10 @@ type
|
||||
const AExceptionText: String) of object;
|
||||
|
||||
TDebuggerProperties = class(TPersistent)
|
||||
private
|
||||
FTest: String;
|
||||
published
|
||||
property Test: String read FTest write FTest;
|
||||
end;
|
||||
|
||||
TDebugger = class(TObject)
|
||||
@ -831,8 +835,6 @@ type
|
||||
procedure SetEnvironment(const AValue: TStrings);
|
||||
procedure SetFileName(const AValue: String);
|
||||
protected
|
||||
class function CreateProperties: TDebuggerProperties; virtual;
|
||||
|
||||
function CreateBreakPoints: TDBGBreakPoints; virtual;
|
||||
function CreateLocals: TDBGLocals; virtual;
|
||||
function CreateCallStack: TDBGCallStack; virtual;
|
||||
@ -863,8 +865,11 @@ type
|
||||
|
||||
class function Caption: String; virtual; // The name of the debugger as shown in the debuggeroptions
|
||||
class function ExePaths: String; virtual; // The default locations of the exe
|
||||
class function GetProperties: TDebuggerProperties;
|
||||
class procedure SetProperties(const AProperties: TDebuggerProperties);
|
||||
|
||||
// debugger properties
|
||||
class function CreateProperties: TDebuggerProperties; virtual; // Creates and initializes debuggerproperties
|
||||
class function GetProperties: TDebuggerProperties; // Get the current properties
|
||||
class procedure SetProperties(const AProperties: TDebuggerProperties); // Set the current properties
|
||||
|
||||
procedure Init; virtual; // Initializes the debugger
|
||||
procedure Done; virtual; // Kills the debugger
|
||||
@ -1096,6 +1101,8 @@ end;
|
||||
class function TDebugger.CreateProperties: TDebuggerProperties;
|
||||
begin
|
||||
Result := TDebuggerProperties.Create;
|
||||
if MDebuggerProperties <> nil
|
||||
then Result.Assign(MDebuggerProperties);
|
||||
end;
|
||||
|
||||
function TDebugger.CreateSignals: TDBGSignals;
|
||||
@ -3135,6 +3142,9 @@ finalization
|
||||
end.
|
||||
{ =============================================================================
|
||||
$Log$
|
||||
Revision 1.55 2004/01/03 01:17:25 marc
|
||||
+ Added debugger optioes
|
||||
|
||||
Revision 1.54 2003/12/27 11:22:36 mattias
|
||||
minor fixes
|
||||
|
||||
|
||||
@ -1,20 +1,20 @@
|
||||
object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
BorderStyle = bsdialog
|
||||
BorderStyle = BSDIALOG
|
||||
Caption = 'Debugger Options'
|
||||
ClientHeight = 442
|
||||
ClientWidth = 480
|
||||
OnCreate = DebuggerOptionsFormCREATE
|
||||
OnDestroy = DebuggerOptionsFormDESTROY
|
||||
Position = poscreencenter
|
||||
Position = POSCREENCENTER
|
||||
HorzScrollBar.Page = 481
|
||||
VertScrollBar.Page = 443
|
||||
Left = 419
|
||||
Left = 411
|
||||
Height = 442
|
||||
Top = 257
|
||||
Top = 185
|
||||
Width = 480
|
||||
object nbDebugOptions: TNotebook
|
||||
Align = altop
|
||||
PageIndex = 3
|
||||
Align = ALTOP
|
||||
PageIndex = 0
|
||||
Height = 398
|
||||
Width = 480
|
||||
object pgGeneral: TPage
|
||||
@ -29,6 +29,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'Debugger type and path'
|
||||
ClientHeight = 69
|
||||
ClientWidth = 468
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 2
|
||||
@ -71,6 +72,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'Additional search path'
|
||||
ClientHeight = 35
|
||||
ClientWidth = 468
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 2
|
||||
@ -99,12 +101,24 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'Debugger specific options (depends on type of debugger)'
|
||||
ClientHeight = 187
|
||||
ClientWidth = 468
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
Left = 2
|
||||
Height = 204
|
||||
Top = 156
|
||||
Width = 472
|
||||
object pnlDebugSpecific: TPanel
|
||||
Align = ALCLIENT
|
||||
BevelOuter = BVNONE
|
||||
BorderWidth = 4
|
||||
ClientHeight = 187
|
||||
ClientWidth = 468
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
Height = 187
|
||||
Width = 468
|
||||
end
|
||||
end
|
||||
end
|
||||
object pgEventLog: TPage
|
||||
@ -119,6 +133,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'General'
|
||||
ClientHeight = 115
|
||||
ClientWidth = 226
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 4
|
||||
@ -166,6 +181,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
ClientHeight = 171
|
||||
ClientWidth = 228
|
||||
Enabled = False
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 242
|
||||
@ -270,6 +286,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'Ignore these exceptions'
|
||||
ClientHeight = 311
|
||||
ClientWidth = 464
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 4
|
||||
@ -333,6 +350,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = 'Signals'
|
||||
ClientHeight = 337
|
||||
ClientWidth = 464
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 4
|
||||
@ -381,7 +399,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Width = 75
|
||||
end>
|
||||
PopupMenu = popSignal
|
||||
ViewStyle = vsreport
|
||||
ViewStyle = VSREPORT
|
||||
Left = 8
|
||||
Height = 292
|
||||
Top = 5
|
||||
|
||||
@ -1,111 +1,116 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TDebuggerOptionsForm','FORMDATA',[
|
||||
'TPF0'#20'TDebuggerOptionsForm'#19'DebuggerOptionsForm'#11'BorderStyle'#7#8'b'
|
||||
+'sdialog'#7'Caption'#6#16'Debugger Options'#12'ClientHeight'#3#186#1#11'Clie'
|
||||
'TPF0'#20'TDebuggerOptionsForm'#19'DebuggerOptionsForm'#11'BorderStyle'#7#8'B'
|
||||
+'SDIALOG'#7'Caption'#6#16'Debugger Options'#12'ClientHeight'#3#186#1#11'Clie'
|
||||
+'ntWidth'#3#224#1#8'OnCreate'#7#25'DebuggerOptionsFormCREATE'#9'OnDestroy'#7
|
||||
+#26'DebuggerOptionsFormDESTROY'#8'Position'#7#14'poscreencenter'#18'HorzScro'
|
||||
+'llBar.Page'#3#225#1#18'VertScrollBar.Page'#3#187#1#4'Left'#3#163#1#6'Height'
|
||||
+#3#186#1#3'Top'#3#1#1#5'Width'#3#224#1#0#9'TNotebook'#14'nbDebugOptions'#5'A'
|
||||
+'lign'#7#5'altop'#9'PageIndex'#2#3#6'Height'#3#142#1#5'Width'#3#224#1#0#5'TP'
|
||||
+'age'#9'pgGeneral'#7'Caption'#6#7'General'#11'ClientWidth'#3#220#1#12'Client'
|
||||
+'Height'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9
|
||||
+'TGroupBox'#14'gbDebuggerType'#7'Caption'#6#22'Debugger type and path'#12'Cl'
|
||||
+'ientHeight'#2'E'#11'ClientWidth'#3#212#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
|
||||
+'Left'#2#2#6'Height'#2'V'#3'Top'#2#8#5'Width'#3#216#1#0#9'TComboBox'#15'cmbD'
|
||||
+'ebuggerType'#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebuggerTypeCHANGE'#11'Pa'
|
||||
+'rentCtl3D'#8#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#6#6'Height'#2#25#3'Top'
|
||||
+#2#5#5'Width'#3#12#1#0#0#9'TComboBox'#15'cmbDebuggerPath'#9'MaxLength'#2#0#11
|
||||
+'ParentCtl3D'#8#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#6#6'Height'#2#25#3'To'
|
||||
+'p'#2'%'#5'Width'#3#172#1#0#0#7'TButton'#19'cmdOpenDebuggerPath'#7'Caption'#6
|
||||
+#3'...'#7'TabStop'#9#8'TabOrder'#2#2#7'OnClick'#7#24'cmdOpenDebuggerPathCLIC'
|
||||
+'K'#4'Left'#3#186#1#6'Height'#2#25#3'Top'#2'%'#5'Width'#2#19#0#0#0#9'TGroupB'
|
||||
+'ox'#22'gbAdditionalSearchPath'#7'Caption'#6#22'Additional search path'#12'C'
|
||||
+'lientHeight'#2'#'#11'ClientWidth'#3#212#1#11'ParentCtl3D'#8#8'TabOrder'#2#1
|
||||
+#4'Left'#2#2#6'Height'#2'4'#3'Top'#2'd'#5'Width'#3#216#1#0#5'TEdit'#17'txtAd'
|
||||
+'ditionalPath'#7'TabStop'#9#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'
|
||||
+#2#5#5'Width'#3#172#1#0#0#7'TButton'#21'cmdOpenAdditionalPath'#7'Caption'#6#3
|
||||
+'...'#7'TabStop'#9#8'TabOrder'#2#1#4'Left'#3#186#1#6'Height'#2#24#3'Top'#2#5
|
||||
+#5'Width'#2#19#0#0#0#9'TGroupBox'#18'gbDebuggerSpecific'#7'Caption'#6'7Debug'
|
||||
+'ger specific options (depends on type of debugger)'#12'ClientHeight'#3#187#0
|
||||
+#11'ClientWidth'#3#212#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#2#6'Hei'
|
||||
+'ght'#3#204#0#3'Top'#3#156#0#5'Width'#3#216#1#0#0#0#5'TPage'#10'pgEventLog'#7
|
||||
+'Caption'#6#9'Event Log'#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'L'
|
||||
+'eft'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbG'
|
||||
+'eneral'#7'Caption'#6#7'General'#12'ClientHeight'#2's'#11'ClientWidth'#3#226
|
||||
+#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#132#0#3'Top'#2#8
|
||||
+#5'Width'#3#230#0#0#9'TCheckBox'#16'chkClearLogOnRun'#11'AllowGrayed'#9#8'Au'
|
||||
+'toSize'#9#7'Caption'#6#16'Clear log on run'#10'DragCursor'#7#9'crDefault'#8
|
||||
+'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#5#5'Width'#3
|
||||
+#135#0#0#0#9'TCheckBox'#17'chkLimitLinecount'#11'AllowGrayed'#9#8'AutoSize'#9
|
||||
+#7'Caption'#6#18'Limit linecount to'#10'DragCursor'#7#9'crDefault'#8'TabOrde'
|
||||
+'r'#2#1#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#2'w'#0#0
|
||||
+#9'TSpinEdit'#16'seLimitLinecount'#7'Enabled'#8#10'Climb_Rate'#5#0#0#0#0#0
|
||||
+#144'?'#236#144'?'#8'MinValue'#5#0#0#0#0#0#144'?'#236#144'?'#8'MaxValue'#5#0
|
||||
+#0#0#0#0#144'?'#236#144'?'#5'Value'#5#0#0#0#0#0#144'?'#236#144'?'#4'Left'#2
|
||||
+#28#6'Height'#2#20#3'Top'#2'5'#5'Width'#2'>'#0#0#0#9'TGroupBox'#10'gbMessage'
|
||||
+'s'#7'Caption'#6#8'Messages'#12'ClientHeight'#3#171#0#11'ClientWidth'#3#228#0
|
||||
+#7'Enabled'#8#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#3#242#0#6'Height'#3
|
||||
+#188#0#3'Top'#2#8#5'Width'#3#232#0#0#9'TCheckBox'#21'chkMessagesBreakpoint'
|
||||
+#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#10'Breakpoint'#10'DragCursor'#7
|
||||
+#9'crDefault'#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'
|
||||
+#2#5#5'Width'#3#161#0#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'AllowGrayed'
|
||||
+#9#8'AutoSize'#9#7'Caption'#6#7'Process'#10'DragCursor'#7#9'crDefault'#8'Tab'
|
||||
+'Order'#2#1#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#3
|
||||
+#147#0#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#8'AutoSize'#9
|
||||
+#7'Caption'#6#6'Thread'#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#2#7'TabS'
|
||||
+'top'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'5'#5'Width'#3#141#0#0#0#9'TCheck'
|
||||
+'Box'#17'chkMessagesModule'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'M'
|
||||
+'odule'#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#3#7'TabStop'#9#4'Left'#2
|
||||
+#4#6'Height'#2#20#3'Top'#2'M'#5'Width'#3#144#0#0#0#9'TCheckBox'#17'chkMessag'
|
||||
+'esOutput'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Output'#10'DragCur'
|
||||
+'sor'#7#9'crDefault'#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20
|
||||
+#3'Top'#2'e'#5'Width'#3#139#0#0#0#9'TCheckBox'#17'chkMessagesWindow'#11'Allo'
|
||||
+'wGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Window'#10'DragCursor'#7#9'crDefaul'
|
||||
+'t'#8'TabOrder'#2#5#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'}'#5'Wi'
|
||||
+'dth'#3#146#0#0#0#9'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#8
|
||||
+'AutoSize'#9#7'Caption'#6#9'Interface'#10'DragCursor'#7#9'crDefault'#8'TabOr'
|
||||
,'der'#2#6#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#3#149#0#5'Width'#3
|
||||
+#150#0#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#19'Language Exceptions'
|
||||
+#26'DebuggerOptionsFormDESTROY'#8'Position'#7#14'POSCREENCENTER'#18'HorzScro'
|
||||
+'llBar.Page'#3#225#1#18'VertScrollBar.Page'#3#187#1#4'Left'#3#155#1#6'Height'
|
||||
+#3#186#1#3'Top'#3#185#0#5'Width'#3#224#1#0#9'TNotebook'#14'nbDebugOptions'#5
|
||||
+'Align'#7#5'ALTOP'#9'PageIndex'#2#0#6'Height'#3#142#1#5'Width'#3#224#1#0#5'T'
|
||||
+'Page'#9'pgGeneral'#7'Caption'#6#7'General'#11'ClientWidth'#3#220#1#12'Clien'
|
||||
+'tHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0
|
||||
+#9'TGroupBox'#14'gbDebuggerType'#7'Caption'#6#22'Debugger type and path'#12
|
||||
+'ClientHeight'#2'E'#11'ClientWidth'#3#212#1#11'ParentColor'#9#11'ParentCtl3D'
|
||||
+#8#8'TabOrder'#2#0#4'Left'#2#2#6'Height'#2'V'#3'Top'#2#8#5'Width'#3#216#1#0#9
|
||||
+'TComboBox'#15'cmbDebuggerType'#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebugge'
|
||||
+'rTypeCHANGE'#11'ParentCtl3D'#8#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#6#6'H'
|
||||
+'eight'#2#25#3'Top'#2#5#5'Width'#3#12#1#0#0#9'TComboBox'#15'cmbDebuggerPath'
|
||||
+#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#6
|
||||
+#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#172#1#0#0#7'TButton'#19'cmdOpenDebugg'
|
||||
+'erPath'#7'Caption'#6#3'...'#7'TabStop'#9#8'TabOrder'#2#2#7'OnClick'#7#24'cm'
|
||||
+'dOpenDebuggerPathCLICK'#4'Left'#3#186#1#6'Height'#2#25#3'Top'#2'%'#5'Width'
|
||||
+#2#19#0#0#0#9'TGroupBox'#22'gbAdditionalSearchPath'#7'Caption'#6#22'Addition'
|
||||
+'al search path'#12'ClientHeight'#2'#'#11'ClientWidth'#3#212#1#11'ParentColo'
|
||||
+'r'#9#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#2#6'Height'#2'4'#3'Top'#2
|
||||
+'d'#5'Width'#3#216#1#0#5'TEdit'#17'txtAdditionalPath'#7'TabStop'#9#8'TabOrde'
|
||||
+'r'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'#2#5#5'Width'#3#172#1#0#0#7'TButton'
|
||||
+#21'cmdOpenAdditionalPath'#7'Caption'#6#3'...'#7'TabStop'#9#8'TabOrder'#2#1#4
|
||||
+'Left'#3#186#1#6'Height'#2#24#3'Top'#2#5#5'Width'#2#19#0#0#0#9'TGroupBox'#18
|
||||
+'gbDebuggerSpecific'#7'Caption'#6'7Debugger specific options (depends on typ'
|
||||
+'e of debugger)'#12'ClientHeight'#3#187#0#11'ClientWidth'#3#212#1#11'ParentC'
|
||||
+'olor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#2#6'Height'#3#204#0#3'T'
|
||||
+'op'#3#156#0#5'Width'#3#216#1#0#6'TPanel'#16'pnlDebugSpecific'#5'Align'#7#8
|
||||
+'ALCLIENT'#10'BevelOuter'#7#6'BVNONE'#11'BorderWidth'#2#4#12'ClientHeight'#3
|
||||
+#187#0#11'ClientWidth'#3#212#1#8'TabOrder'#2#0#7'TabStop'#9#6'Height'#3#187#0
|
||||
+#5'Width'#3#212#1#0#0#0#0#5'TPage'#10'pgEventLog'#7'Caption'#6#9'Event Log'
|
||||
+#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1
|
||||
+#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#18'bgIgnoreExceptions'#7'Captio'
|
||||
+'n'#6#23'Ignore these exceptions'#12'ClientHeight'#3'7'#1#11'ClientWidth'#3
|
||||
+#208#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3'H'#1#3'Top'
|
||||
+#2#8#5'Width'#3#212#1#0#7'TButton'#18'cmdExceptionRemove'#7'Enabled'#8#7'Cap'
|
||||
+'tion'#6#6'Remove'#7'TabStop'#9#8'TabOrder'#2#0#7'OnClick'#7#23'cmdException'
|
||||
+'RemoveCLICK'#4'Left'#3'|'#1#6'Height'#2#25#3'Top'#3#21#1#5'Width'#2'K'#0#0#7
|
||||
+'TButton'#15'cmdExceptionAdd'#7'Caption'#6#3'Add'#7'TabStop'#9#8'TabOrder'#2
|
||||
+#1#7'OnClick'#7#20'cmdExceptionAddCLICK'#4'Left'#3','#1#6'Height'#2#25#3'Top'
|
||||
+#3#21#1#5'Width'#2'K'#0#0#13'TCheckListBox'#13'clbExceptions'#7'OnClick'#7#18
|
||||
+'clbExceptionsCLICK'#8'TabOrder'#2#2#7'TabStop'#9#8'TopIndex'#2#255#4'Left'#2
|
||||
+#8#6'Height'#3#8#1#3'Top'#2#5#5'Width'#3#192#1#0#0#0#9'TCheckBox'#19'chkBrea'
|
||||
+'kOnException'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#27'Break on Laza'
|
||||
+'rus Exceptions'#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#1#7'TabStop'#9#4
|
||||
+'Left'#2#2#6'Height'#2#20#3'Top'#3'T'#1#5'Width'#3#188#0#0#0#0#5'TPage'#9'pg'
|
||||
+'Signals'#7'Caption'#6#13'OS Exceptions'#11'ClientWidth'#3#220#1#12'ClientHe'
|
||||
+'ight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9
|
||||
+'TGroupBox'#9'gbSignals'#7'Caption'#6#7'Signals'#12'ClientHeight'#3'Q'#1#11
|
||||
+'ClientWidth'#3#208#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'
|
||||
+#3'b'#1#3'Top'#2#8#5'Width'#3#212#1#0#7'TButton'#15'cmdSignalRemove'#7'Enabl'
|
||||
+'ed'#8#7'Caption'#6#6'Remove'#7'TabStop'#9#8'TabOrder'#2#0#4'Left'#3'}'#1#6
|
||||
+'Height'#2#25#3'Top'#3'1'#1#5'Width'#2'K'#0#0#7'TButton'#12'cmdSignalAdd'#7
|
||||
+'Caption'#6#3'Add'#7'TabStop'#9#8'TabOrder'#2#1#4'Left'#3'('#1#6'Height'#2#25
|
||||
+#3'Top'#3'1'#1#5'Width'#2'K'#0#0#9'TListView'#9'lvSignals'#7'Columns'#14#1#7
|
||||
+'Caption'#6#4'Name'#7'Visible'#9#5'Width'#3#200#0#0#1#7'Caption'#6#2'ID'#7'V'
|
||||
+'isible'#9#5'Width'#2'2'#0#1#7'Caption'#6#10'Handled by'#7'Visible'#9#5'Widt'
|
||||
+'h'#2'K'#0#1#7'Caption'#6#6'Resume'#7'Visible'#9#5'Width'#2'K'#0#0#9'PopupMe'
|
||||
+'nu'#7#9'popSignal'#9'ViewStyle'#7#8'vsreport'#4'Left'#2#8#6'Height'#3'$'#1#3
|
||||
+'Top'#2#5#5'Width'#3#192#1#0#0#0#0#0#7'TButton'#9'cmdCancel'#11'ModalResult'
|
||||
+#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#7'TabStop'#9#8'TabOrder'#2#1#4'Left'
|
||||
+#3#144#1#6'Height'#2#25#3'Top'#3#152#1#5'Width'#2'K'#0#0#7'TButton'#5'cmdOK'
|
||||
+#7'Default'#9#7'Caption'#6#2'OK'#7'TabStop'#9#8'TabOrder'#2#2#7'OnClick'#7#10
|
||||
+'cmdOKCLICK'#4'Left'#3'@'#1#6'Height'#2#25#3'Top'#3#152#1#5'Width'#2'K'#0#0
|
||||
+#10'TPopupMenu'#9'popSignal'#4'left'#3#152#1#3'top'#2#20#0#9'TMenuItem'#19'm'
|
||||
+'nuHandledByProgram'#9'AutoCheck'#9#7'Caption'#6#18'Handled by Program'#10'G'
|
||||
+'roupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#21'mnuiHandledByDebugger'#9
|
||||
+'AutoCheck'#9#7'Caption'#6#19'Handled by Debugger'#10'GroupIndex'#2#1#9'Radi'
|
||||
+'oItem'#9#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#16'mnuRe'
|
||||
+'sumeHandled'#9'AutoCheck'#9#7'Caption'#6#14'Resume Handled'#10'GroupIndex'#2
|
||||
+#2#9'RadioItem'#9#0#0#9'TMenuItem'#18'mnuResumeUnhandled'#9'AutoCheck'#9#7'C'
|
||||
+'aption'#6#16'Resume Unhandled'#10'GroupIndex'#2#2#9'RadioItem'#9#0#0#0#0
|
||||
+#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbGeneral'#7'Caption'#6#7'Gen'
|
||||
+'eral'#12'ClientHeight'#2's'#11'ClientWidth'#3#226#0#11'ParentColor'#9#11'Pa'
|
||||
+'rentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#132#0#3'Top'#2#8#5'Wid'
|
||||
+'th'#3#230#0#0#9'TCheckBox'#16'chkClearLogOnRun'#11'AllowGrayed'#9#8'AutoSiz'
|
||||
+'e'#9#7'Caption'#6#16'Clear log on run'#10'DragCursor'#7#9'crDefault'#8'TabO'
|
||||
+'rder'#2#0#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#5#5'Width'#3#135
|
||||
+#0#0#0#9'TCheckBox'#17'chkLimitLinecount'#11'AllowGrayed'#9#8'AutoSize'#9#7
|
||||
+'Caption'#6#18'Limit linecount to'#10'DragCursor'#7#9'crDefault'#8'TabOrder'
|
||||
+#2#1#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#2'w'#0#0#9
|
||||
+'TSpinEdit'#16'seLimitLinecount'#7'Enabled'#8#10'Climb_Rate'#5#0#0#0#0#0#144
|
||||
+'?'#236#144'?'#8'MinValue'#5#0#0#0#0#0#144'?'#236#144'?'#8'MaxValue'#5#0#0#0
|
||||
+#0#0#144'?'#236#144'?'#5'Value'#5#0#0#0#0#0#144'?'#236#144'?'#4'Left'#2#28#6
|
||||
+'Height'#2#20#3'Top'#2'5'#5'Width'#2'>'#0#0#0#9'TGroupBox'#10'gbMessages'#7
|
||||
+'Caption'#6#8'Messages'#12'ClientHeight'#3#171#0#11'ClientWidth'#3#228#0#7'E'
|
||||
+'nabled'#8#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#3#242
|
||||
+#0#6'Height'#3#188#0#3'Top'#2#8#5'Width'#3#232#0#0#9'TCheckBox'#21'chkMessag'
|
||||
+'esBreakpoint'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#10'Breakpoint'#10
|
||||
+'DragCursor'#7#9'crDefault'#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#4#6'Heigh'
|
||||
+'t'#2#20#3'Top'#2#5#5'Width'#3#161#0#0#0#9'TCheckBox'#18'chkMessagesProcess'
|
||||
+#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#7'Process'#10'DragCursor'#7#9
|
||||
+'crDefault'#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2
|
||||
+#29#5'Width'#3#147#0#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9
|
||||
+#8'AutoSize'#9#7'Caption'#6#6'Thread'#10'DragCursor'#7#9'crDefault'#8'TabOrd'
|
||||
+'er'#2#2#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'5'#5'Width'#3#141#0
|
||||
+#0#0#9'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#8'AutoSize'#9#7'Ca'
|
||||
+'ption'#6#6'Module'#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#3#7'TabStop'
|
||||
+#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'M'#5'Width'#3#144#0#0#0#9'TCheckBox'
|
||||
+#17'chkMessagesOutput'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Output'
|
||||
+#10'DragCursor'#7#9'crDefault'#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#4#6'He'
|
||||
+'ight'#2#20#3'Top'#2'e'#5'Width'#3#139#0#0#0#9'TCheckBox'#17'chkMessagesWind'
|
||||
,'ow'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Window'#10'DragCursor'#7
|
||||
+#9'crDefault'#8'TabOrder'#2#5#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'
|
||||
+#2'}'#5'Width'#3#146#0#0#0#9'TCheckBox'#20'chkMessagesInterface'#11'AllowGra'
|
||||
+'yed'#9#8'AutoSize'#9#7'Caption'#6#9'Interface'#10'DragCursor'#7#9'crDefault'
|
||||
+#8'TabOrder'#2#6#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#3#149#0#5'Wi'
|
||||
+'dth'#3#150#0#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#19'Language Exc'
|
||||
+'eptions'#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Heig'
|
||||
+'ht'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#18'bgIgnoreException'
|
||||
+'s'#7'Caption'#6#23'Ignore these exceptions'#12'ClientHeight'#3'7'#1#11'Clie'
|
||||
+'ntWidth'#3#208#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'
|
||||
+#2#4#6'Height'#3'H'#1#3'Top'#2#8#5'Width'#3#212#1#0#7'TButton'#18'cmdExcepti'
|
||||
+'onRemove'#7'Enabled'#8#7'Caption'#6#6'Remove'#7'TabStop'#9#8'TabOrder'#2#0#7
|
||||
+'OnClick'#7#23'cmdExceptionRemoveCLICK'#4'Left'#3'|'#1#6'Height'#2#25#3'Top'
|
||||
+#3#21#1#5'Width'#2'K'#0#0#7'TButton'#15'cmdExceptionAdd'#7'Caption'#6#3'Add'
|
||||
+#7'TabStop'#9#8'TabOrder'#2#1#7'OnClick'#7#20'cmdExceptionAddCLICK'#4'Left'#3
|
||||
+','#1#6'Height'#2#25#3'Top'#3#21#1#5'Width'#2'K'#0#0#13'TCheckListBox'#13'cl'
|
||||
+'bExceptions'#7'OnClick'#7#18'clbExceptionsCLICK'#8'TabOrder'#2#2#7'TabStop'
|
||||
+#9#8'TopIndex'#2#255#4'Left'#2#8#6'Height'#3#8#1#3'Top'#2#5#5'Width'#3#192#1
|
||||
+#0#0#0#9'TCheckBox'#19'chkBreakOnException'#11'AllowGrayed'#9#8'AutoSize'#9#7
|
||||
+'Caption'#6#27'Break on Lazarus Exceptions'#10'DragCursor'#7#9'crDefault'#8
|
||||
+'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#2#6'Height'#2#20#3'Top'#3'T'#1#5'Width'
|
||||
+#3#188#0#0#0#0#5'TPage'#9'pgSignals'#7'Caption'#6#13'OS Exceptions'#11'Clien'
|
||||
+'tWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'
|
||||
+#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbSignals'#7'Caption'#6#7'Signals'#12
|
||||
+'ClientHeight'#3'Q'#1#11'ClientWidth'#3#208#1#11'ParentColor'#9#11'ParentCtl'
|
||||
+'3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3'b'#1#3'Top'#2#8#5'Width'#3#212
|
||||
+#1#0#7'TButton'#15'cmdSignalRemove'#7'Enabled'#8#7'Caption'#6#6'Remove'#7'Ta'
|
||||
+'bStop'#9#8'TabOrder'#2#0#4'Left'#3'}'#1#6'Height'#2#25#3'Top'#3'1'#1#5'Widt'
|
||||
+'h'#2'K'#0#0#7'TButton'#12'cmdSignalAdd'#7'Caption'#6#3'Add'#7'TabStop'#9#8
|
||||
+'TabOrder'#2#1#4'Left'#3'('#1#6'Height'#2#25#3'Top'#3'1'#1#5'Width'#2'K'#0#0
|
||||
+#9'TListView'#9'lvSignals'#7'Columns'#14#1#7'Caption'#6#4'Name'#7'Visible'#9
|
||||
+#5'Width'#3#200#0#0#1#7'Caption'#6#2'ID'#7'Visible'#9#5'Width'#2'2'#0#1#7'Ca'
|
||||
+'ption'#6#10'Handled by'#7'Visible'#9#5'Width'#2'K'#0#1#7'Caption'#6#6'Resum'
|
||||
+'e'#7'Visible'#9#5'Width'#2'K'#0#0#9'PopupMenu'#7#9'popSignal'#9'ViewStyle'#7
|
||||
+#8'VSREPORT'#4'Left'#2#8#6'Height'#3'$'#1#3'Top'#2#5#5'Width'#3#192#1#0#0#0#0
|
||||
+#0#7'TButton'#9'cmdCancel'#11'ModalResult'#2#2#6'Cancel'#9#7'Caption'#6#6'Ca'
|
||||
+'ncel'#7'TabStop'#9#8'TabOrder'#2#1#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3
|
||||
+#152#1#5'Width'#2'K'#0#0#7'TButton'#5'cmdOK'#7'Default'#9#7'Caption'#6#2'OK'
|
||||
+#7'TabStop'#9#8'TabOrder'#2#2#7'OnClick'#7#10'cmdOKCLICK'#4'Left'#3'@'#1#6'H'
|
||||
+'eight'#2#25#3'Top'#3#152#1#5'Width'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4
|
||||
+'left'#3#152#1#3'top'#2#20#0#9'TMenuItem'#19'mnuHandledByProgram'#9'AutoChec'
|
||||
+'k'#9#7'Caption'#6#18'Handled by Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0
|
||||
+#0#9'TMenuItem'#21'mnuiHandledByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Han'
|
||||
+'dled by Debugger'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7
|
||||
+'Caption'#6#1'-'#0#0#9'TMenuItem'#16'mnuResumeHandled'#9'AutoCheck'#9#7'Capt'
|
||||
+'ion'#6#14'Resume Handled'#10'GroupIndex'#2#2#9'RadioItem'#9#0#0#9'TMenuItem'
|
||||
+#18'mnuResumeUnhandled'#9'AutoCheck'#9#7'Caption'#6#16'Resume Unhandled'#10
|
||||
+'GroupIndex'#2#2#9'RadioItem'#9#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -60,6 +60,7 @@ type
|
||||
cmbDebuggerType: TCOMBOBOX;
|
||||
cmbDebuggerPath: TCOMBOBOX;
|
||||
N1: TMENUITEM;
|
||||
pnlDebugSpecific: TPanel;
|
||||
seLimitLinecount: TSPINEDIT;
|
||||
txtAdditionalPath: TEDIT;
|
||||
gbDebuggerType: TGROUPBOX;
|
||||
@ -90,7 +91,7 @@ type
|
||||
procedure cmdOKCLICK (Sender: TObject );
|
||||
procedure cmdOpenDebuggerPathCLICK(Sender: TObject);
|
||||
private
|
||||
ThePropertyEditorHook: TPropertyEditorHook;
|
||||
FPropertyEditorHook: TPropertyEditorHook;
|
||||
FExceptionDeleteList: TStringList;
|
||||
FOldDebuggerPathAndParams: string;
|
||||
FDebuggerSpecificComponents: TList;
|
||||
@ -194,6 +195,7 @@ var
|
||||
//Selection: TComponentSelectionList;
|
||||
begin
|
||||
|
||||
// FPropertyEditorHook.LookupRoot := nil;
|
||||
{ThePropertyEditorHook.LookupRoot:=FCurDebuggerObject;
|
||||
Selection:=TComponentSelectionList.Create;
|
||||
if FCurDebuggerObject<>nil then
|
||||
@ -210,6 +212,11 @@ begin
|
||||
|
||||
if FCurDebuggerClass = nil then Exit;
|
||||
|
||||
// FPropertyEditorHook.LookupRoot := FCurDebuggerClass.GetProperties;
|
||||
PropertyGrid.Clear;
|
||||
// PropertyGrid.Selections.Add(FCurDebuggerClass.GetProperties);
|
||||
PropertyGrid.BuildPropertyList;
|
||||
|
||||
// create debugger specific options components
|
||||
// temp hack
|
||||
if AnsiCompareText(FCurDebuggerClass.ClassName, 'TSSHGDBMIDEBUGGER')=0
|
||||
@ -392,9 +399,9 @@ begin
|
||||
end;
|
||||
|
||||
// create the PropertyEditorHook (the interface to the properties)
|
||||
ThePropertyEditorHook:=TPropertyEditorHook.Create;
|
||||
FPropertyEditorHook:=TPropertyEditorHook.Create;
|
||||
// create the PropertyGrid
|
||||
PropertyGrid:=TOIPropertyGrid.CreateWithParams(Self,ThePropertyEditorHook
|
||||
PropertyGrid:=TOIPropertyGrid.CreateWithParams(Self,FPropertyEditorHook
|
||||
,[tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkSet{, tkMethod}
|
||||
, tkSString, tkLString, tkAString, tkWString, tkVariant
|
||||
{, tkArray, tkRecord, tkInterface}, tkClass, tkObject, tkWChar, tkBool
|
||||
@ -402,11 +409,13 @@ begin
|
||||
25);
|
||||
with PropertyGrid do begin
|
||||
Name:='PropertyGrid';
|
||||
Visible:=false;
|
||||
Parent:=gbDebuggerSpecific;
|
||||
// Use panel for border
|
||||
Parent := pnlDebugSpecific; //gbDebuggerSpecific;
|
||||
Visible:=True;
|
||||
Align:=alClient;
|
||||
SplitterX:=120;
|
||||
end;
|
||||
// pnlDebugSpecific.Visible := False;
|
||||
|
||||
FetchDebuggerClass;
|
||||
|
||||
|
||||
@ -639,10 +639,7 @@ var a:integer;
|
||||
begin
|
||||
OldSelectedRowPath:=PropertyPath(ItemIndex);
|
||||
ItemIndex:=-1;
|
||||
IncreaseChangeStep;
|
||||
for a:=0 to FRows.Count-1 do
|
||||
Rows[a].Free;
|
||||
FRows.Clear;
|
||||
ClearRows;
|
||||
FComponentList.Assign(NewSelections);
|
||||
BuildPropertyList;
|
||||
CurRow:=GetRowByPath(OldSelectedRowPath);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user