paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 12:29:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

implemented global debugger search path

Browse Source 
git-svn-id: trunk@6362 -
This commit is contained in:
mattias 2004-12-11 01:17:22 +00:00
parent 3705892de2
commit 88bab09dd7
5 changed files with 183 additions and 179 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
ide/debugoptionsfrm.lfm
View File

@ -1,11 +1,12 @@
object DebuggerOptionsForm: TDebuggerOptionsForm object DebuggerOptionsForm: TDebuggerOptionsForm
BorderStyle = BSDIALOG BorderStyle = bsDialog
Caption = 'Debugger Options' Caption = 'Debugger Options'
ClientHeight = 442 ClientHeight = 442
ClientWidth = 480 ClientWidth = 480
OnCreate = DebuggerOptionsFormCREATE OnCreate = DebuggerOptionsFormCREATE
OnDestroy = DebuggerOptionsFormDESTROY OnDestroy = DebuggerOptionsFormDESTROY
Position = POSCREENCENTER PixelsPerInch = 90
Position = poScreenCenter
HorzScrollBar.Page = 481 HorzScrollBar.Page = 481
VertScrollBar.Page = 443 VertScrollBar.Page = 443
Left = 411 Left = 411
@ -13,7 +14,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Top = 185 Top = 185
Width = 480 Width = 480
object nbDebugOptions: TNotebook object nbDebugOptions: TNotebook
Align = ALTOP Align = alTop
PageIndex = 0 PageIndex = 0
Height = 398 Height = 398
Width = 480 Width = 480
@ -41,7 +42,6 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
OnChange = cmbDebuggerTypeCHANGE OnChange = cmbDebuggerTypeCHANGE
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
TabStop = True
Left = 6 Left = 6
Height = 25 Height = 25
Top = 5 Top = 5
@ -51,7 +51,6 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
MaxLength = 0 MaxLength = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
TabStop = True
Left = 6 Left = 6
Height = 25 Height = 25
Top = 37 Top = 37
@ -59,9 +58,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
object cmdOpenDebuggerPath: TButton object cmdOpenDebuggerPath: TButton
Caption = '...' Caption = '...'
TabStop = True
TabOrder = 2
OnClick = cmdOpenDebuggerPathCLICK OnClick = cmdOpenDebuggerPathCLICK
TabOrder = 2
Left = 442 Left = 442
Height = 25 Height = 25
Top = 37 Top = 37
@ -80,7 +78,6 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Top = 100 Top = 100
Width = 472 Width = 472
object txtAdditionalPath: TEdit object txtAdditionalPath: TEdit
TabStop = True
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 25 Height = 25
@ -89,7 +86,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
object cmdOpenAdditionalPath: TButton object cmdOpenAdditionalPath: TButton
Caption = '...' Caption = '...'
TabStop = True OnClick = cmdOpenAdditionalPathClick
TabOrder = 1 TabOrder = 1
Left = 442 Left = 442
Height = 24 Height = 24
@ -109,11 +106,12 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Top = 156 Top = 156
Width = 472 Width = 472
object pnlDebugSpecific: TPanel object pnlDebugSpecific: TPanel
Align = ALCLIENT Align = alClient
BevelOuter = BVNONE BevelOuter = bvNone
BorderWidth = 4 BorderWidth = 4
ClientHeight = 187 ClientHeight = 187
ClientWidth = 468 ClientWidth = 468
FullRepaint = False
TabOrder = 0 TabOrder = 0
TabStop = True TabStop = True
Height = 187 Height = 187
@ -131,8 +129,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 476 Width = 476
object gbGeneral: TGroupBox object gbGeneral: TGroupBox
Caption = 'General' Caption = 'General'
ClientHeight = 115 ClientHeight = 132
ClientWidth = 226 ClientWidth = 230
ParentColor = True ParentColor = True
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -144,9 +142,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Clear log on run' Caption = 'Clear log on run'
DragCursor = 65524
TabOrder = 0 TabOrder = 0
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 5 Top = 5
@ -156,16 +152,19 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Limit linecount to' Caption = 'Limit linecount to'
DragCursor = 65524
TabOrder = 1 TabOrder = 1
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 29 Top = 29
Width = 119 Width = 119
end end
object seLimitLinecount: TSpinEdit object seLimitLinecount: TSpinEdit
Climb_Rate = 7.10933840589535E-34
Enabled = False Enabled = False
MaxValue = 7.10933840589535E-34
MinValue = 7.10933840589535E-34
TabOrder = 2
Value = 7.10933840589535E-34
Climb_Rate = 7.10933840589535E-34 Climb_Rate = 7.10933840589535E-34
MinValue = 7.10933840589535E-34 MinValue = 7.10933840589535E-34
MaxValue = 7.10933840589535E-34 MaxValue = 7.10933840589535E-34
@ -178,8 +177,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
object gbMessages: TGroupBox object gbMessages: TGroupBox
Caption = 'Messages' Caption = 'Messages'
ClientHeight = 171 ClientHeight = 188
ClientWidth = 228 ClientWidth = 232
Enabled = False Enabled = False
ParentColor = True ParentColor = True
ParentCtl3D = False ParentCtl3D = False
@ -192,9 +191,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Breakpoint' Caption = 'Breakpoint'
DragCursor = 65524
TabOrder = 0 TabOrder = 0
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 5 Top = 5
@ -204,9 +201,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Process' Caption = 'Process'
DragCursor = 65524
TabOrder = 1 TabOrder = 1
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 29 Top = 29
@ -216,9 +211,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Thread' Caption = 'Thread'
DragCursor = 65524
TabOrder = 2 TabOrder = 2
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 53 Top = 53
@ -228,9 +221,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Module' Caption = 'Module'
DragCursor = 65524
TabOrder = 3 TabOrder = 3
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 77 Top = 77
@ -240,9 +231,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Output' Caption = 'Output'
DragCursor = 65524
TabOrder = 4 TabOrder = 4
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 101 Top = 101
@ -252,9 +241,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Window' Caption = 'Window'
DragCursor = 65524
TabOrder = 5 TabOrder = 5
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 125 Top = 125
@ -264,9 +251,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Interface' Caption = 'Interface'
DragCursor = 65524
TabOrder = 6 TabOrder = 6
TabStop = True
Left = 4 Left = 4
Height = 20 Height = 20
Top = 149 Top = 149
@ -284,8 +269,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 476 Width = 476
object bgIgnoreExceptions: TGroupBox object bgIgnoreExceptions: TGroupBox
Caption = 'Ignore these exceptions' Caption = 'Ignore these exceptions'
ClientHeight = 311 ClientHeight = 328
ClientWidth = 464 ClientWidth = 468
ParentColor = True ParentColor = True
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -294,11 +279,10 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Top = 8 Top = 8
Width = 468 Width = 468
object cmdExceptionRemove: TButton object cmdExceptionRemove: TButton
Enabled = False
Caption = 'Remove' Caption = 'Remove'
TabStop = True Enabled = False
TabOrder = 0
OnClick = cmdExceptionRemoveCLICK OnClick = cmdExceptionRemoveCLICK
TabOrder = 0
Left = 380 Left = 380
Height = 25 Height = 25
Top = 277 Top = 277
@ -306,9 +290,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
object cmdExceptionAdd: TButton object cmdExceptionAdd: TButton
Caption = 'Add' Caption = 'Add'
TabStop = True
TabOrder = 1
OnClick = cmdExceptionAddCLICK OnClick = cmdExceptionAddCLICK
TabOrder = 1
Left = 300 Left = 300
Height = 25 Height = 25
Top = 277 Top = 277
@ -317,7 +300,6 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
object clbExceptions: TCheckListBox object clbExceptions: TCheckListBox
OnClick = clbExceptionsCLICK OnClick = clbExceptionsCLICK
TabOrder = 2 TabOrder = 2
TabStop = True
TopIndex = -1 TopIndex = -1
Left = 8 Left = 8
Height = 264 Height = 264
@ -329,9 +311,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
AllowGrayed = True AllowGrayed = True
AutoSize = True AutoSize = True
Caption = 'Break on Lazarus Exceptions' Caption = 'Break on Lazarus Exceptions'
DragCursor = 65524
TabOrder = 1 TabOrder = 1
TabStop = True
Left = 2 Left = 2
Height = 20 Height = 20
Top = 340 Top = 340
@ -348,8 +328,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 476 Width = 476
object gbSignals: TGroupBox object gbSignals: TGroupBox
Caption = 'Signals' Caption = 'Signals'
ClientHeight = 337 ClientHeight = 354
ClientWidth = 464 ClientWidth = 468
ParentColor = True ParentColor = True
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
@ -358,9 +338,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Top = 8 Top = 8
Width = 468 Width = 468
object cmdSignalRemove: TButton object cmdSignalRemove: TButton
Enabled = False
Caption = 'Remove' Caption = 'Remove'
TabStop = True Enabled = False
TabOrder = 0 TabOrder = 0
Left = 381 Left = 381
Height = 25 Height = 25
@ -369,7 +348,6 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
object cmdSignalAdd: TButton object cmdSignalAdd: TButton
Caption = 'Add' Caption = 'Add'
TabStop = True
TabOrder = 1 TabOrder = 1
Left = 296 Left = 296
Height = 25 Height = 25
@ -380,26 +358,21 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Columns = < Columns = <
item item
Caption = 'Name' Caption = 'Name'
Visible = True
Width = 200 Width = 200
end end
item item
Caption = 'ID' Caption = 'ID'
Visible = True
Width = 50
end end
item item
Caption = 'Handled by' Caption = 'Handled by'
Visible = True
Width = 75 Width = 75
end end
item item
Caption = 'Resume' Caption = 'Resume'
Visible = True Width = 0
Width = 75
end> end>
PopupMenu = popSignal PopupMenu = popSignal
ViewStyle = VSREPORT ViewStyle = vsReport
Left = 8 Left = 8
Height = 292 Height = 292
Top = 5 Top = 5
@ -409,10 +382,9 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
end end
object cmdCancel: TButton object cmdCancel: TButton
ModalResult = 2
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
TabStop = True ModalResult = 2
TabOrder = 1 TabOrder = 1
Left = 400 Left = 400
Height = 25 Height = 25
@ -420,11 +392,10 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 75 Width = 75
end end
object cmdOK: TButton object cmdOK: TButton
Default = True
Caption = 'OK' Caption = 'OK'
TabStop = True Default = True
TabOrder = 2
OnClick = cmdOKCLICK OnClick = cmdOKCLICK
TabOrder = 2
Left = 320 Left = 320
Height = 25 Height = 25
Top = 408 Top = 408

215
ide/debugoptionsfrm.lrs
View File

@ -1,116 +1,111 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TDebuggerOptionsForm','FORMDATA',[ LazarusResources.Add('TDebuggerOptionsForm','FORMDATA',[
'TPF0'#20'TDebuggerOptionsForm'#19'DebuggerOptionsForm'#11'BorderStyle'#7#8'B' 'TPF0'#20'TDebuggerOptionsForm'#19'DebuggerOptionsForm'#11'BorderStyle'#7#8'b'
+'SDIALOG'#7'Caption'#6#16'Debugger Options'#12'ClientHeight'#3#186#1#11'Clie' +'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 +'ntWidth'#3#224#1#8'OnCreate'#7#25'DebuggerOptionsFormCREATE'#9'OnDestroy'#7
+#26'DebuggerOptionsFormDESTROY'#8'Position'#7#14'POSCREENCENTER'#18'HorzScro' +#26'DebuggerOptionsFormDESTROY'#13'PixelsPerInch'#2'Z'#8'Position'#7#14'poSc'
+'llBar.Page'#3#225#1#18'VertScrollBar.Page'#3#187#1#4'Left'#3#155#1#6'Height' +'reenCenter'#18'HorzScrollBar.Page'#3#225#1#18'VertScrollBar.Page'#3#187#1#4
+#3#186#1#3'Top'#3#185#0#5'Width'#3#224#1#0#9'TNotebook'#14'nbDebugOptions'#5 +'Left'#3#155#1#6'Height'#3#186#1#3'Top'#3#185#0#5'Width'#3#224#1#0#9'TNotebo'
+'Align'#7#5'ALTOP'#9'PageIndex'#2#0#6'Height'#3#142#1#5'Width'#3#224#1#0#5'T' +'ok'#14'nbDebugOptions'#5'Align'#7#5'alTop'#9'PageIndex'#2#0#6'Height'#3#142
+'Page'#9'pgGeneral'#7'Caption'#6#7'General'#11'ClientWidth'#3#220#1#12'Clien' +#1#5'Width'#3#224#1#0#5'TPage'#9'pgGeneral'#7'Caption'#6#7'General'#11'Clien'
+'tHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0 +'tWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'
+#9'TGroupBox'#14'gbDebuggerType'#7'Caption'#6#22'Debugger type and path'#12 +#2#28#5'Width'#3#220#1#0#9'TGroupBox'#14'gbDebuggerType'#7'Caption'#6#22'Deb'
+'ClientHeight'#2'E'#11'ClientWidth'#3#212#1#11'ParentColor'#9#11'ParentCtl3D' +'ugger type and path'#12'ClientHeight'#2'E'#11'ClientWidth'#3#212#1#11'Paren'
+#8#8'TabOrder'#2#0#4'Left'#2#2#6'Height'#2'V'#3'Top'#2#8#5'Width'#3#216#1#0#9 +'tColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#2#6'Height'#2'V'#3'To'
+'TComboBox'#15'cmbDebuggerType'#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebugge' +'p'#2#8#5'Width'#3#216#1#0#9'TComboBox'#15'cmbDebuggerType'#9'MaxLength'#2#0
+'rTypeCHANGE'#11'ParentCtl3D'#8#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#6#6'H' +#8'OnChange'#7#21'cmbDebuggerTypeCHANGE'#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
+'eight'#2#25#3'Top'#2#5#5'Width'#3#12#1#0#0#9'TComboBox'#15'cmbDebuggerPath' +'Left'#2#6#6'Height'#2#25#3'Top'#2#5#5'Width'#3#12#1#0#0#9'TComboBox'#15'cmb'
+#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#6 +'DebuggerPath'#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6
+#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#172#1#0#0#7'TButton'#19'cmdOpenDebugg' +#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' +'erPath'#7'Caption'#6#3'...'#7'OnClick'#7#24'cmdOpenDebuggerPathCLICK'#8'Tab'
+'dOpenDebuggerPathCLICK'#4'Left'#3#186#1#6'Height'#2#25#3'Top'#2'%'#5'Width' +'Order'#2#2#4'Left'#3#186#1#6'Height'#2#25#3'Top'#2'%'#5'Width'#2#19#0#0#0#9
+#2#19#0#0#0#9'TGroupBox'#22'gbAdditionalSearchPath'#7'Caption'#6#22'Addition' +'TGroupBox'#22'gbAdditionalSearchPath'#7'Caption'#6#22'Additional search pat'
+'al search path'#12'ClientHeight'#2'#'#11'ClientWidth'#3#212#1#11'ParentColo' +'h'#12'ClientHeight'#2'#'#11'ClientWidth'#3#212#1#11'ParentColor'#9#11'Paren'
+'r'#9#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#2#6'Height'#2'4'#3'Top'#2 +'tCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#2#6'Height'#2'4'#3'Top'#2'd'#5'Width'#3
+'d'#5'Width'#3#216#1#0#5'TEdit'#17'txtAdditionalPath'#7'TabStop'#9#8'TabOrde' +#216#1#0#5'TEdit'#17'txtAdditionalPath'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'
+'r'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'#2#5#5'Width'#3#172#1#0#0#7'TButton' +#2#25#3'Top'#2#5#5'Width'#3#172#1#0#0#7'TButton'#21'cmdOpenAdditionalPath'#7
+#21'cmdOpenAdditionalPath'#7'Caption'#6#3'...'#7'TabStop'#9#8'TabOrder'#2#1#4 +'Caption'#6#3'...'#7'OnClick'#7#26'cmdOpenAdditionalPathClick'#8'TabOrder'#2
+'Left'#3#186#1#6'Height'#2#24#3'Top'#2#5#5'Width'#2#19#0#0#0#9'TGroupBox'#18 +#1#4'Left'#3#186#1#6'Height'#2#24#3'Top'#2#5#5'Width'#2#19#0#0#0#9'TGroupBox'
+'gbDebuggerSpecific'#7'Caption'#6'7Debugger specific options (depends on typ' +#18'gbDebuggerSpecific'#7'Caption'#6'7Debugger specific options (depends on '
+'e of debugger)'#12'ClientHeight'#3#187#0#11'ClientWidth'#3#212#1#11'ParentC' +'type of debugger)'#12'ClientHeight'#3#187#0#11'ClientWidth'#3#212#1#11'Pare'
+'olor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#2#6'Height'#3#204#0#3'T' +'ntColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#2#6'Height'#3#204#0#3
+'op'#3#156#0#5'Width'#3#216#1#0#6'TPanel'#16'pnlDebugSpecific'#5'Align'#7#8 +'Top'#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 +'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 +#187#0#11'ClientWidth'#3#212#1#11'FullRepaint'#8#8'TabOrder'#2#0#7'TabStop'#9
+#5'Width'#3#212#1#0#0#0#0#5'TPage'#10'pgEventLog'#7'Caption'#6#9'Event Log' +#6'Height'#3#187#0#5'Width'#3#212#1#0#0#0#0#5'TPage'#10'pgEventLog'#7'Captio'
+#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1 +'n'#6#9'Event Log'#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2
+#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbGeneral'#7'Caption'#6#7'Gen' +#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbGeneral'
+'eral'#12'ClientHeight'#2's'#11'ClientWidth'#3#226#0#11'ParentColor'#9#11'Pa' +#7'Caption'#6#7'General'#12'ClientHeight'#3#132#0#11'ClientWidth'#3#230#0#11
+'rentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#132#0#3'Top'#2#8#5'Wid' +'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#132
+'th'#3#230#0#0#9'TCheckBox'#16'chkClearLogOnRun'#11'AllowGrayed'#9#8'AutoSiz' +#0#3'Top'#2#8#5'Width'#3#230#0#0#9'TCheckBox'#16'chkClearLogOnRun'#11'AllowG'
+'e'#9#7'Caption'#6#16'Clear log on run'#10'DragCursor'#4#244#255#0#0#8'TabOr' +'rayed'#9#8'AutoSize'#9#7'Caption'#6#16'Clear log on run'#8'TabOrder'#2#0#4
+'der'#2#0#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#5#5'Width'#3#135#0 +'Left'#2#4#6'Height'#2#20#3'Top'#2#5#5'Width'#3#135#0#0#0#9'TCheckBox'#17'ch'
+#0#0#9'TCheckBox'#17'chkLimitLinecount'#11'AllowGrayed'#9#8'AutoSize'#9#7'Ca' +'kLimitLinecount'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#18'Limit line'
+'ption'#6#18'Limit linecount to'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#1 +'count to'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#2
+#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#2'w'#0#0#9'TSp' +'w'#0#0#9'TSpinEdit'#16'seLimitLinecount'#10'Climb_Rate'#5#0#0#0#0#0#144'?'
+'inEdit'#16'seLimitLinecount'#7'Enabled'#8#10'Climb_Rate'#5#0#0#0#0#0#144'?' +#236#144'?'#7'Enabled'#8#8'MaxValue'#5#0#0#0#0#0#144'?'#236#144'?'#8'MinValu'
+#236#144'?'#8'MinValue'#5#0#0#0#0#0#144'?'#236#144'?'#8'MaxValue'#5#0#0#0#0#0 +'e'#5#0#0#0#0#0#144'?'#236#144'?'#8'TabOrder'#2#2#5'Value'#5#0#0#0#0#0#144'?'
+#144'?'#236#144'?'#5'Value'#5#0#0#0#0#0#144'?'#236#144'?'#4'Left'#2#28#6'Hei' +#236#144'?'#10'Climb_Rate'#5#0#0#0#0#0#144'?'#236#144'?'#8'MinValue'#5#0#0#0
+'ght'#2#20#3'Top'#2'5'#5'Width'#2'>'#0#0#0#9'TGroupBox'#10'gbMessages'#7'Cap' +#0#0#144'?'#236#144'?'#8'MaxValue'#5#0#0#0#0#0#144'?'#236#144'?'#5'Value'#5#0
+'tion'#6#8'Messages'#12'ClientHeight'#3#171#0#11'ClientWidth'#3#228#0#7'Enab' +#0#0#0#0#144'?'#236#144'?'#4'Left'#2#28#6'Height'#2#20#3'Top'#2'5'#5'Width'#2
+'led'#8#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#3#242#0#6 +'>'#0#0#0#9'TGroupBox'#10'gbMessages'#7'Caption'#6#8'Messages'#12'ClientHeig'
+'Height'#3#188#0#3'Top'#2#8#5'Width'#3#232#0#0#9'TCheckBox'#21'chkMessagesBr' +'ht'#3#188#0#11'ClientWidth'#3#232#0#7'Enabled'#8#11'ParentColor'#9#11'Paren'
+'eakpoint'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#10'Breakpoint'#10'Dr' +'tCtl3D'#8#8'TabOrder'#2#1#4'Left'#3#242#0#6'Height'#3#188#0#3'Top'#2#8#5'Wi'
+'agCursor'#4#244#255#0#0#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#4#6'Height'#2 +'dth'#3#232#0#0#9'TCheckBox'#21'chkMessagesBreakpoint'#11'AllowGrayed'#9#8'A'
+#20#3'Top'#2#5#5'Width'#3#161#0#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'A' +'utoSize'#9#7'Caption'#6#10'Breakpoint'#8'TabOrder'#2#0#4'Left'#2#4#6'Height'
+'llowGrayed'#9#8'AutoSize'#9#7'Caption'#6#7'Process'#10'DragCursor'#4#244#255 +#2#20#3'Top'#2#5#5'Width'#3#161#0#0#0#9'TCheckBox'#18'chkMessagesProcess'#11
+#0#0#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2#29#5'W' +'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#7'Process'#8'TabOrder'#2#1#4'Left'
+'idth'#3#147#0#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#8'Au' +#2#4#6'Height'#2#20#3'Top'#2#29#5'Width'#3#147#0#0#0#9'TCheckBox'#17'chkMess'
+'toSize'#9#7'Caption'#6#6'Thread'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2 +'agesThread'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Thread'#8'TabOrd'
+#2#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'5'#5'Width'#3#141#0#0#0#9 +'er'#2#2#4'Left'#2#4#6'Height'#2#20#3'Top'#2'5'#5'Width'#3#141#0#0#0#9'TChec'
+'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption' +'kBox'#17'chkMessagesModule'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6
+#6#6'Module'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#3#7'TabStop'#9#4'Lef' +'Module'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#20#3'Top'#2'M'#5'Width'#3
+'t'#2#4#6'Height'#2#20#3'Top'#2'M'#5'Width'#3#144#0#0#0#9'TCheckBox'#17'chkM' +#144#0#0#0#9'TCheckBox'#17'chkMessagesOutput'#11'AllowGrayed'#9#8'AutoSize'#9
+'essagesOutput'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Output'#10'Dr' +#7'Caption'#6#6'Output'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#20#3'Top'#2
+'agCursor'#4#244#255#0#0#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#4#6'Height'#2 +'e'#5'Width'#3#139#0#0#0#9'TCheckBox'#17'chkMessagesWindow'#11'AllowGrayed'#9
+#20#3'Top'#2'e'#5'Width'#3#139#0#0#0#9'TCheckBox'#17'chkMessagesWindow'#11'A' +#8'AutoSize'#9#7'Caption'#6#6'Window'#8'TabOrder'#2#5#4'Left'#2#4#6'Height'#2
,'llowGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Window'#10'DragCursor'#4#244#255 ,#20#3'Top'#2'}'#5'Width'#3#146#0#0#0#9'TCheckBox'#20'chkMessagesInterface'#11
+#0#0#8'TabOrder'#2#5#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#2'}'#5'W' +'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#9'Interface'#8'TabOrder'#2#6#4'Le'
+'idth'#3#146#0#0#0#9'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#8 +'ft'#2#4#6'Height'#2#20#3'Top'#3#149#0#5'Width'#3#150#0#0#0#0#0#5'TPage'#12
+'AutoSize'#9#7'Caption'#6#9'Interface'#10'DragCursor'#4#244#255#0#0#8'TabOrd' +'pgExceptions'#7'Caption'#6#19'Language Exceptions'#11'ClientWidth'#3#220#1
+'er'#2#6#7'TabStop'#9#4'Left'#2#4#6'Height'#2#20#3'Top'#3#149#0#5'Width'#3 +#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3
+#150#0#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#19'Language Exceptions' +#220#1#0#9'TGroupBox'#18'bgIgnoreExceptions'#7'Caption'#6#23'Ignore these ex'
+#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1 +'ceptions'#12'ClientHeight'#3'H'#1#11'ClientWidth'#3#212#1#11'ParentColor'#9
+#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#18'bgIgnoreExceptions'#7'Captio' +#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3'H'#1#3'Top'#2#8#5
+'n'#6#23'Ignore these exceptions'#12'ClientHeight'#3'7'#1#11'ClientWidth'#3 +'Width'#3#212#1#0#7'TButton'#18'cmdExceptionRemove'#7'Caption'#6#6'Remove'#7
+#208#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Hei' +'Enabled'#8#7'OnClick'#7#23'cmdExceptionRemoveCLICK'#8'TabOrder'#2#0#4'Left'
+'ght'#3'H'#1#3'Top'#2#8#5'Width'#3#212#1#0#7'TButton'#18'cmdExceptionRemove' +#3'|'#1#6'Height'#2#25#3'Top'#3#21#1#5'Width'#2'K'#0#0#7'TButton'#15'cmdExce'
+#7'Enabled'#8#7'Caption'#6#6'Remove'#7'TabStop'#9#8'TabOrder'#2#0#7'OnClick' +'ptionAdd'#7'Caption'#6#3'Add'#7'OnClick'#7#20'cmdExceptionAddCLICK'#8'TabOr'
+#7#23'cmdExceptionRemoveCLICK'#4'Left'#3'|'#1#6'Height'#2#25#3'Top'#3#21#1#5 +'der'#2#1#4'Left'#3','#1#6'Height'#2#25#3'Top'#3#21#1#5'Width'#2'K'#0#0#13'T'
+'Width'#2'K'#0#0#7'TButton'#15'cmdExceptionAdd'#7'Caption'#6#3'Add'#7'TabSto' +'CheckListBox'#13'clbExceptions'#7'OnClick'#7#18'clbExceptionsCLICK'#8'TabOr'
+'p'#9#8'TabOrder'#2#1#7'OnClick'#7#20'cmdExceptionAddCLICK'#4'Left'#3','#1#6 +'der'#2#2#8'TopIndex'#2#255#4'Left'#2#8#6'Height'#3#8#1#3'Top'#2#5#5'Width'#3
+'Height'#2#25#3'Top'#3#21#1#5'Width'#2'K'#0#0#13'TCheckListBox'#13'clbExcept' +#192#1#0#0#0#9'TCheckBox'#19'chkBreakOnException'#11'AllowGrayed'#9#8'AutoSi'
+'ions'#7'OnClick'#7#18'clbExceptionsCLICK'#8'TabOrder'#2#2#7'TabStop'#9#8'To' +'ze'#9#7'Caption'#6#27'Break on Lazarus Exceptions'#8'TabOrder'#2#1#4'Left'#2
+'pIndex'#2#255#4'Left'#2#8#6'Height'#3#8#1#3'Top'#2#5#5'Width'#3#192#1#0#0#0 +#2#6'Height'#2#20#3'Top'#3'T'#1#5'Width'#3#188#0#0#0#0#5'TPage'#9'pgSignals'
+#9'TCheckBox'#19'chkBreakOnException'#11'AllowGrayed'#9#8'AutoSize'#9#7'Capt' +#7'Caption'#6#13'OS Exceptions'#11'ClientWidth'#3#220#1#12'ClientHeight'#3'p'
+'ion'#6#27'Break on Lazarus Exceptions'#10'DragCursor'#4#244#255#0#0#8'TabOr' +#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2#28#5'Width'#3#220#1#0#9'TGroupBox'#9
+'der'#2#1#7'TabStop'#9#4'Left'#2#2#6'Height'#2#20#3'Top'#3'T'#1#5'Width'#3 +'gbSignals'#7'Caption'#6#7'Signals'#12'ClientHeight'#3'b'#1#11'ClientWidth'#3
+#188#0#0#0#0#5'TPage'#9'pgSignals'#7'Caption'#6#13'OS Exceptions'#11'ClientW' +#212#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Hei'
+'idth'#3#220#1#12'ClientHeight'#3'p'#1#4'Left'#2#2#6'Height'#3'p'#1#3'Top'#2 +'ght'#3'b'#1#3'Top'#2#8#5'Width'#3#212#1#0#7'TButton'#15'cmdSignalRemove'#7
+#28#5'Width'#3#220#1#0#9'TGroupBox'#9'gbSignals'#7'Caption'#6#7'Signals'#12 +'Caption'#6#6'Remove'#7'Enabled'#8#8'TabOrder'#2#0#4'Left'#3'}'#1#6'Height'#2
+'ClientHeight'#3'Q'#1#11'ClientWidth'#3#208#1#11'ParentColor'#9#11'ParentCtl' +#25#3'Top'#3'1'#1#5'Width'#2'K'#0#0#7'TButton'#12'cmdSignalAdd'#7'Caption'#6
+'3D'#8#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3'b'#1#3'Top'#2#8#5'Width'#3#212 +#3'Add'#8'TabOrder'#2#1#4'Left'#3'('#1#6'Height'#2#25#3'Top'#3'1'#1#5'Width'
+#1#0#7'TButton'#15'cmdSignalRemove'#7'Enabled'#8#7'Caption'#6#6'Remove'#7'Ta' +#2'K'#0#0#9'TListView'#9'lvSignals'#7'Columns'#14#1#7'Caption'#6#4'Name'#5'W'
+'bStop'#9#8'TabOrder'#2#0#4'Left'#3'}'#1#6'Height'#2#25#3'Top'#3'1'#1#5'Widt' +'idth'#3#200#0#0#1#7'Caption'#6#2'ID'#0#1#7'Caption'#6#10'Handled by'#5'Widt'
+'h'#2'K'#0#0#7'TButton'#12'cmdSignalAdd'#7'Caption'#6#3'Add'#7'TabStop'#9#8 +'h'#2'K'#0#1#7'Caption'#6#6'Resume'#5'Width'#2#0#0#0#9'PopupMenu'#7#9'popSig'
+'TabOrder'#2#1#4'Left'#3'('#1#6'Height'#2#25#3'Top'#3'1'#1#5'Width'#2'K'#0#0 +'nal'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#8#6'Height'#3'$'#1#3'Top'#2#5#5'W'
+#9'TListView'#9'lvSignals'#7'Columns'#14#1#7'Caption'#6#4'Name'#7'Visible'#9 +'idth'#3#192#1#0#0#0#0#0#7'TButton'#9'cmdCancel'#6'Cancel'#9#7'Caption'#6#6
+#5'Width'#3#200#0#0#1#7'Caption'#6#2'ID'#7'Visible'#9#5'Width'#2'2'#0#1#7'Ca' +'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3#144#1#6'Height'#2#25#3
+'ption'#6#10'Handled by'#7'Visible'#9#5'Width'#2'K'#0#1#7'Caption'#6#6'Resum' +'Top'#3#152#1#5'Width'#2'K'#0#0#7'TButton'#5'cmdOK'#7'Caption'#6#2'OK'#7'Def'
+'e'#7'Visible'#9#5'Width'#2'K'#0#0#9'PopupMenu'#7#9'popSignal'#9'ViewStyle'#7 +'ault'#9#7'OnClick'#7#10'cmdOKCLICK'#8'TabOrder'#2#2#4'Left'#3'@'#1#6'Height'
+#8'VSREPORT'#4'Left'#2#8#6'Height'#3'$'#1#3'Top'#2#5#5'Width'#3#192#1#0#0#0#0 +#2#25#3'Top'#3#152#1#5'Width'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4'left'#3
+#0#7'TButton'#9'cmdCancel'#11'ModalResult'#2#2#6'Cancel'#9#7'Caption'#6#6'Ca' +#152#1#3'top'#2#20#0#9'TMenuItem'#19'mnuHandledByProgram'#9'AutoCheck'#9#7'C'
+'ncel'#7'TabStop'#9#8'TabOrder'#2#1#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3 +'aption'#6#18'Handled by Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TM'
+#152#1#5'Width'#2'K'#0#0#7'TButton'#5'cmdOK'#7'Default'#9#7'Caption'#6#2'OK' +'enuItem'#21'mnuiHandledByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Handled b'
+#7'TabStop'#9#8'TabOrder'#2#2#7'OnClick'#7#10'cmdOKCLICK'#4'Left'#3'@'#1#6'H' +'y Debugger'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7'Capt'
+'eight'#2#25#3'Top'#3#152#1#5'Width'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4 +'ion'#6#1'-'#0#0#9'TMenuItem'#16'mnuResumeHandled'#9'AutoCheck'#9#7'Caption'
+'left'#3#152#1#3'top'#2#20#0#9'TMenuItem'#19'mnuHandledByProgram'#9'AutoChec' +#6#14'Resume Handled'#10'GroupIndex'#2#2#9'RadioItem'#9#0#0#9'TMenuItem'#18
+'k'#9#7'Caption'#6#18'Handled by Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0 +'mnuResumeUnhandled'#9'AutoCheck'#9#7'Caption'#6#16'Resume Unhandled'#10'Gro'
+#0#9'TMenuItem'#21'mnuiHandledByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Han' +'upIndex'#2#2#9'RadioItem'#9#0#0#0#0
+'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
]); ]);

30
ide/debugoptionsfrm.pas
View File

@ -32,9 +32,10 @@ interface
uses uses
Classes, SysUtils, TypInfo, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, TypInfo, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, Buttons, ComCtrls, Menus, Spin, CheckLst, ExtCtrls, StdCtrls, Buttons, ComCtrls, Menus, Spin, CheckLst, FileUtil,
PropEdits, ObjectInspector, LazarusIDEStrConsts, FileProcs, InputHistory, PropEdits, ObjectInspector,
EnvironmentOpts, BaseDebugManager, Debugger, DBGUtils; LazarusIDEStrConsts, InputHistory, IDEProcs,
PathEditorDlg, EnvironmentOpts, BaseDebugManager, Debugger, DBGUtils;
type type
TDebuggerOptionsForm = class (TForm ) TDebuggerOptionsForm = class (TForm )
@ -89,6 +90,7 @@ type
procedure cmdExceptionAddCLICK (Sender: TObject ); procedure cmdExceptionAddCLICK (Sender: TObject );
procedure cmdExceptionRemoveCLICK (Sender: TObject ); procedure cmdExceptionRemoveCLICK (Sender: TObject );
procedure cmdOKCLICK (Sender: TObject ); procedure cmdOKCLICK (Sender: TObject );
procedure cmdOpenAdditionalPathClick(Sender: TObject);
procedure cmdOpenDebuggerPathCLICK(Sender: TObject); procedure cmdOpenDebuggerPathCLICK(Sender: TObject);
private private
FPropertyEditorHook: TPropertyEditorHook; FPropertyEditorHook: TPropertyEditorHook;
@ -184,6 +186,7 @@ begin
FOldDebuggerPathAndParams:=EnvironmentOptions.DebuggerFilename; FOldDebuggerPathAndParams:=EnvironmentOptions.DebuggerFilename;
SetComboBoxText(cmbDebuggerPath,FOldDebuggerPathAndParams,20); SetComboBoxText(cmbDebuggerPath,FOldDebuggerPathAndParams,20);
txtAdditionalPath.Text:=EnvironmentOptions.DebuggerSearchPath;
end; end;
procedure TDebuggerOptionsForm.FetchDebuggerSpecificOptions; procedure TDebuggerOptionsForm.FetchDebuggerSpecificOptions;
@ -267,7 +270,7 @@ begin
cmdExceptionRemove.Enabled := clbExceptions.ItemIndex <> -1; cmdExceptionRemove.Enabled := clbExceptions.ItemIndex <> -1;
end; end;
procedure TDebuggerOptionsForm.cmdOKCLICK (Sender: TObject ); procedure TDebuggerOptionsForm.cmdOKCLICK(Sender: TObject );
var var
n: Integer; n: Integer;
ie: TIDEException; ie: TIDEException;
@ -284,7 +287,7 @@ begin
ie.Enabled := clbExceptions.Checked[n]; ie.Enabled := clbExceptions.Checked[n];
end end
else begin else begin
ie.BeginUpdate; //ie^ ie.BeginUpdate;
try try
ie.Name := clbExceptions.Items[n]; ie.Name := clbExceptions.Items[n];
ie.Enabled := clbExceptions.Checked[n]; ie.Enabled := clbExceptions.Checked[n];
@ -296,6 +299,8 @@ begin
EnvironmentOptions.DebuggerFilename:=cmbDebuggerPath.Text; EnvironmentOptions.DebuggerFilename:=cmbDebuggerPath.Text;
EnvironmentOptions.DebuggerFileHistory.Assign(cmbDebuggerPath.Items); EnvironmentOptions.DebuggerFileHistory.Assign(cmbDebuggerPath.Items);
EnvironmentOptions.DebuggerSearchPath:=
TrimSearchPath(txtAdditionalPath.Text,'');
if FCurDebuggerClass = nil if FCurDebuggerClass = nil
then EnvironmentOptions.DebuggerClass := '' then EnvironmentOptions.DebuggerClass := ''
else EnvironmentOptions.DebuggerClass := FCurDebuggerClass.ClassName; else EnvironmentOptions.DebuggerClass := FCurDebuggerClass.ClassName;
@ -303,6 +308,19 @@ begin
ModalResult:=mrOk; ModalResult:=mrOk;
end; end;
procedure TDebuggerOptionsForm.cmdOpenAdditionalPathClick(Sender: TObject);
begin
PathEditorDialog.Path:=txtAdditionalPath.Text;
PathEditorDialog.Templates:=SetDirSeparators(
'$(LazarusDir)/include/$(TargetOS)'
+';$(FPCSrcDir)/rtl/inc/'
+';$(FPCSrcDir)/rtl/$(SrcOS)'
+';$(FPCSrcDir)/rtl/$(TargetOS)'
);
if PathEditorDialog.ShowModal=mrOk then
txtAdditionalPath.Text:=PathEditorDialog.Path;
end;
procedure TDebuggerOptionsForm.cmdOpenDebuggerPathCLICK(Sender: TObject); procedure TDebuggerOptionsForm.cmdOpenDebuggerPathCLICK(Sender: TObject);
var var
OpenDialog: TOpenDialog; OpenDialog: TOpenDialog;
@ -354,7 +372,7 @@ begin
, tkSString, tkLString, tkAString, tkWString, tkVariant , tkSString, tkLString, tkAString, tkWString, tkVariant
{, tkArray, tkRecord, tkInterface}, tkClass, tkObject, tkWChar, tkBool {, tkArray, tkRecord, tkInterface}, tkClass, tkObject, tkWChar, tkBool
, tkInt64, tkQWord], , tkInt64, tkQWord],
25); 0);
with PropertyGrid do begin with PropertyGrid do begin
Name:='PropertyGrid'; Name:='PropertyGrid';
// Use panel for border // Use panel for border

18
ide/environmentopts.pp
View File

@ -112,6 +112,7 @@ type
{ class for storing environment options } { class for storing environment options }
TEnvironmentOptions = class TEnvironmentOptions = class
private private
FDebuggerSearchPath: string;
FFilename: string; FFilename: string;
FFileAge: longint; FFileAge: longint;
FFileHasChangedOnDisk: boolean; FFileHasChangedOnDisk: boolean;
@ -205,6 +206,7 @@ type
fLanguageID: string; fLanguageID: string;
procedure SetCompilerFilename(const AValue: string); procedure SetCompilerFilename(const AValue: string);
procedure SetDebuggerSearchPath(const AValue: string);
procedure SetMakeFilename(const AValue: string); procedure SetMakeFilename(const AValue: string);
procedure SetDebuggerFilename(const AValue: string); procedure SetDebuggerFilename(const AValue: string);
procedure SetFPCSourceDirectory(const AValue: string); procedure SetFPCSourceDirectory(const AValue: string);
@ -313,6 +315,8 @@ type
write SetDebuggerFilename; write SetDebuggerFilename;
property DebuggerFileHistory: TStringList read FDebuggerFileHistory property DebuggerFileHistory: TStringList read FDebuggerFileHistory
write FDebuggerFileHistory; write FDebuggerFileHistory;
property DebuggerSearchPath: string read FDebuggerSearchPath
write SetDebuggerSearchPath;
property TestBuildDirectory: string read FTestBuildDirectory property TestBuildDirectory: string read FTestBuildDirectory
write SetTestBuildDirectory; write SetTestBuildDirectory;
property TestBuildDirHistory: TStringList read FTestBuildDirHistory property TestBuildDirHistory: TStringList read FTestBuildDirHistory
@ -792,6 +796,7 @@ begin
FMakeFileHistory:=TStringList.Create; FMakeFileHistory:=TStringList.Create;
DebuggerFilename:=''; DebuggerFilename:='';
FDebuggerFileHistory:=TStringList.Create; FDebuggerFileHistory:=TStringList.Create;
FDebuggerSearchPath:='';
TestBuildDirectory:=GetDefaultTestBuildDirectory; TestBuildDirectory:=GetDefaultTestBuildDirectory;
FTestBuildDirHistory:=TStringList.Create; FTestBuildDirHistory:=TStringList.Create;
@ -1054,9 +1059,11 @@ begin
end; end;
DebuggerClass:=CurDebuggerClass; DebuggerClass:=CurDebuggerClass;
DebuggerFilename:=XMLConfig.GetValue( DebuggerFilename:=XMLConfig.GetValue(
Path+'DebuggerFilename/Value',FDebuggerFilename); Path+'DebuggerFilename/Value','');
LoadRecentList(XMLConfig,FDebuggerFileHistory, LoadRecentList(XMLConfig,FDebuggerFileHistory,
Path+'DebuggerFilename/History/'); Path+'DebuggerFilename/History/');
DebuggerSearchPath:=XMLConfig.GetValue(
Path+'DebuggerSearchPath/Value','');
end; end;
// hints // hints
@ -1252,6 +1259,8 @@ begin
FDebuggerFilename,''); FDebuggerFilename,'');
SaveRecentList(XMLConfig,FDebuggerFileHistory, SaveRecentList(XMLConfig,FDebuggerFileHistory,
Path+'DebuggerFilename/History/'); Path+'DebuggerFilename/History/');
XMLConfig.SetDeleteValue(Path+'DebuggerSearchPath/Value',
FDebuggerSearchPath,'');
end; end;
// hints // hints
@ -1432,6 +1441,12 @@ begin
FCompilerFilename:=TrimFilename(AValue); FCompilerFilename:=TrimFilename(AValue);
end; end;
procedure TEnvironmentOptions.SetDebuggerSearchPath(const AValue: string);
begin
if FDebuggerSearchPath=AValue then exit;
FDebuggerSearchPath:=TrimSearchPath(AValue,'');
end;
procedure TEnvironmentOptions.SetMakeFilename(const AValue: string); procedure TEnvironmentOptions.SetMakeFilename(const AValue: string);
begin begin
if FMakeFilename=AValue then exit; if FMakeFilename=AValue then exit;
@ -1445,6 +1460,7 @@ begin
if FDebuggerFilename=AValue then exit; if FDebuggerFilename=AValue then exit;
FDebuggerFilename:=AValue; FDebuggerFilename:=AValue;
// trim the filename and keep the options after the space (if any) // trim the filename and keep the options after the space (if any)
// TODO: split/find filename with spaces
SpacePos:=1; SpacePos:=1;
while (SpacePos<=length(FDebuggerFilename)) while (SpacePos<=length(FDebuggerFilename))
and (FDebuggerFilename[SpacePos]<>' ') do and (FDebuggerFilename[SpacePos]<>' ') do

8
ide/main.pp
View File

@ -8329,8 +8329,9 @@ begin
// search file in debug path // search file in debug path
if fsfUseDebugPath in Flags then begin if fsfUseDebugPath in Flags then begin
SearchPath:=TrimSearchPath(Project1.CompilerOptions.DebugPath, SearchPath:=MergeSearchPaths(Project1.CompilerOptions.DebugPath,
Project1.ProjectDirectory); EnvironmentOptions.DebuggerSearchPath);
SearchPath:=TrimSearchPath(SearchPath,Project1.ProjectDirectory);
if SearchInPath(SearchPath,AFilename,Result) then exit; if SearchInPath(SearchPath,AFilename,Result) then exit;
end; end;
@ -10970,6 +10971,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.807 2004/12/11 01:17:22 mattias
implemented global debugger search path
Revision 1.806 2004/12/10 11:07:52 mattias Revision 1.806 2004/12/10 11:07:52 mattias
added FindInFiles and ToggleMessages shortcuts added FindInFiles and ToggleMessages shortcuts