paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 23:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

debugger: add focus controls for labels in evaluate window

Browse Source 
git-svn-id: trunk@20670 -
This commit is contained in:
paul 2009-06-19 09:06:10 +00:00
parent 705957a718
commit 5abc507de7
2 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/evaluatedlg.lfm
View File

@ -23,6 +23,7 @@ inherited EvaluateDlg: TEvaluateDlg
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = '&Expression:' Caption = '&Expression:'
FocusControl = cmbExpression
ParentColor = False ParentColor = False
end end
object Label2: TLabel[1] object Label2: TLabel[1]
@ -36,6 +37,7 @@ inherited EvaluateDlg: TEvaluateDlg
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Result:' Caption = '&Result:'
FocusControl = txtResult
ParentColor = False ParentColor = False
end end
object lblNewValue: TLabel[2] object lblNewValue: TLabel[2]
@ -49,6 +51,7 @@ inherited EvaluateDlg: TEvaluateDlg
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 3
Caption = '&New value:' Caption = '&New value:'
FocusControl = cmbNewValue
ParentColor = False ParentColor = False
end end
object ToolBar1: TToolBar[3] object ToolBar1: TToolBar[3]
@ -66,7 +69,7 @@ inherited EvaluateDlg: TEvaluateDlg
TabOrder = 0 TabOrder = 0
TabStop = True TabStop = True
object tbInspect: TToolButton object tbInspect: TToolButton
Left = 159 Left = 152
Top = 2 Top = 2
Caption = '&Inspect' Caption = '&Inspect'
Enabled = False Enabled = False
@ -74,7 +77,7 @@ inherited EvaluateDlg: TEvaluateDlg
OnClick = tbInspectClick OnClick = tbInspectClick
end end
object tbWatch: TToolButton object tbWatch: TToolButton
Left = 109 Left = 102
Top = 2 Top = 2
AllowAllUp = True AllowAllUp = True
Caption = '&Watch' Caption = '&Watch'
@ -83,7 +86,7 @@ inherited EvaluateDlg: TEvaluateDlg
OnClick = tbWatchClick OnClick = tbWatchClick
end end
object tbModify: TToolButton object tbModify: TToolButton
Left = 59 Left = 52
Top = 2 Top = 2
Caption = '&Modify' Caption = '&Modify'
Enabled = False Enabled = False
@ -109,12 +112,10 @@ inherited EvaluateDlg: TEvaluateDlg
Top = 64 Top = 64
Width = 388 Width = 388
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 13 ItemHeight = 13
ItemWidth = 0
OnChange = cmbExpressionChange OnChange = cmbExpressionChange
OnKeyDown = cmbExpressionKeyDown OnKeyDown = cmbExpressionKeyDown
TabOrder = 2 TabOrder = 2
@ -149,12 +150,10 @@ inherited EvaluateDlg: TEvaluateDlg
Top = 263 Top = 263
Width = 388 Width = 388
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
AutoComplete = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 13 ItemHeight = 13
ItemWidth = 0
TabOrder = 3 TabOrder = 3
end end
end end

85
debugger/evaluatedlg.lrs
View File

@ -9,46 +9,47 @@ LazarusResources.Add('TEvaluateDlg','FORMDATA',[
+'el'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro' +'el'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro'
+'l'#7#8'ToolBar1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height' +'l'#7#8'ToolBar1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+#2#14#3'Top'#2'/'#5'Width'#2'9'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.' +#2#14#3'Top'#2'/'#5'Width'#2'9'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.'
+'Top'#2#3#7'Caption'#6#12'&Expression:'#11'ParentColor'#8#0#0#242#2#1#6'TLab' +'Top'#2#3#7'Caption'#6#12'&Expression:'#12'FocusControl'#7#13'cmbExpression'
+'el'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro' +#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'
+'l'#7#13'cmbExpression'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6 +#7#5'Owner'#21'AnchorSideTop.Control'#7#13'cmbExpression'#18'AnchorSideTop.S'
+'Height'#2#14#3'Top'#2'['#5'Width'#2'#'#18'BorderSpacing.Left'#2#6#17'Border' +'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'['#5'Width'#2'#'#18
+'Spacing.Top'#2#6#7'Caption'#6#8'&Result:'#11'ParentColor'#8#0#0#242#2#2#6'T' +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#8'&Result:'
+'Label'#11'lblNewValue'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideB' +#12'FocusControl'#7#9'txtResult'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#11
+'ottom.Control'#7#11'cmbNewValue'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#246#0#5 +'lblNewValue'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Cont'
+'Width'#2'7'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6 +'rol'#7#11'cmbNewValue'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#246#0#5'Width'#2
+#20'BorderSpacing.Bottom'#2#3#7'Caption'#6#11'&New value:'#11'ParentColor'#8 +'7'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#20'Bord'
+#0#0#242#2#3#8'TToolBar'#8'ToolBar1'#4'Left'#2#0#6'Height'#2','#3'Top'#2#0#5 +'erSpacing.Bottom'#2#3#7'Caption'#6#11'&New value:'#12'FocusControl'#7#11'cm'
+'Width'#3#144#1#8'AutoSize'#9#12'ButtonHeight'#2'('#11'ButtonWidth'#2'2'#7'C' +'bNewValue'#11'ParentColor'#8#0#0#242#2#3#8'TToolBar'#8'ToolBar1'#4'Left'#2#0
+'aption'#6#8'ToolBar1'#11'EdgeBorders'#11#5'ebTop'#8'ebBottom'#0#6'Indent'#2 +#6'Height'#2','#3'Top'#2#0#5'Width'#3#144#1#8'AutoSize'#9#12'ButtonHeight'#2
+#2#12'ShowCaptions'#9#8'TabOrder'#2#0#7'TabStop'#9#0#11'TToolButton'#9'tbIns' +'('#11'ButtonWidth'#2'2'#7'Caption'#6#8'ToolBar1'#11'EdgeBorders'#11#5'ebTop'
+'pect'#4'Left'#3#159#0#3'Top'#2#2#7'Caption'#6#8'&Inspect'#7'Enabled'#8#10'I' +#8'ebBottom'#0#6'Indent'#2#2#12'ShowCaptions'#9#8'TabOrder'#2#0#7'TabStop'#9
+'mageIndex'#2#3#7'OnClick'#7#14'tbInspectClick'#0#0#11'TToolButton'#7'tbWatc' +#0#11'TToolButton'#9'tbInspect'#4'Left'#3#152#0#3'Top'#2#2#7'Caption'#6#8'&I'
+'h'#4'Left'#2'm'#3'Top'#2#2#10'AllowAllUp'#9#7'Caption'#6#6'&Watch'#7'Enable' +'nspect'#7'Enabled'#8#10'ImageIndex'#2#3#7'OnClick'#7#14'tbInspectClick'#0#0
+'d'#8#10'ImageIndex'#2#2#7'OnClick'#7#12'tbWatchClick'#0#0#11'TToolButton'#8 +#11'TToolButton'#7'tbWatch'#4'Left'#2'f'#3'Top'#2#2#10'AllowAllUp'#9#7'Capti'
+'tbModify'#4'Left'#2';'#3'Top'#2#2#7'Caption'#6#7'&Modify'#7'Enabled'#8#10'I' +'on'#6#6'&Watch'#7'Enabled'#8#10'ImageIndex'#2#2#7'OnClick'#7#12'tbWatchClic'
+'mageIndex'#2#1#0#0#11'TToolButton'#10'tbEvaluate'#4'Left'#2#2#3'Top'#2#2#7 +'k'#0#0#11'TToolButton'#8'tbModify'#4'Left'#2'4'#3'Top'#2#2#7'Caption'#6#7'&'
+'Caption'#6#9'E&valuate'#7'Enabled'#8#10'ImageIndex'#2#0#7'OnClick'#7#15'tbE' +'Modify'#7'Enabled'#8#10'ImageIndex'#2#1#0#0#11'TToolButton'#10'tbEvaluate'#4
+'valuateClick'#0#0#0#242#2#4#9'TComboBox'#13'cmbExpression'#22'AnchorSideLef' +'Left'#2#2#3'Top'#2#2#7'Caption'#6#9'E&valuate'#7'Enabled'#8#10'ImageIndex'#2
+'t.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTo' +#0#7'OnClick'#7#15'tbEvaluateClick'#0#0#0#242#2#4#9'TComboBox'#13'cmbExpress'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide' +'ion'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'La'
+'Right.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'@'#5'Width'#3 +'bel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#8#18'B' +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3
+'orderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6 +'Top'#2'@'#5'Width'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
+#10'ItemHeight'#2#13#9'ItemWidth'#2#0#8'OnChange'#7#19'cmbExpressionChange'#9 +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2
+'OnKeyDown'#7#20'cmbExpressionKeyDown'#8'TabOrder'#2#2#0#0#242#2#5#5'TMemo'#9 +#6#10'ItemHeight'#2#13#8'OnChange'#7#19'cmbExpressionChange'#9'OnKeyDown'#7
+'txtResult'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7 +#20'cmbExpressionKeyDown'#8'TabOrder'#2#2#0#0#242#2#5#5'TMemo'#9'txtResult'
+#6'Label2'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control' +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label2'
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont' +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'
+'rol'#7#11'lblNewValue'#4'Left'#2#6#6'Height'#3#132#0#3'Top'#2'l'#5'Width'#3 +#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#11'l'
+#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSp' +'blNewValue'#4'Left'#2#6#6'Height'#3#132#0#3'Top'#2'l'#5'Width'#3#132#1#7'An'
+'acing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#20'Bo' +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'
+'rderSpacing.Bottom'#2#6#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#1 +#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#20'BorderSpacing.'
+#0#0#242#2#6#9'TComboBox'#11'cmbNewValue'#22'AnchorSideLeft.Control'#7#5'Own' +'Bottom'#2#6#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#1#0#0#242#2#6
+'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr' +#9'TComboBox'#11'cmbNewValue'#22'AnchorSideLeft.Control'#7#5'Owner'#23'Ancho'
+'Bottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7 +'rSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'A'
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#7#1#5'Width'#3#132#1#7'Anc' +'nchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'
+'hors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#12'AutoComplete'#8#18'BorderSpa' +#4'Left'#2#6#6'Height'#2#21#3'Top'#3#7#1#5'Width'#3#132#1#7'Anchors'#11#6'ak'
+'cing.Left'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#10 +'Left'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#19'BorderSpacing.'
+'ItemHeight'#2#13#9'ItemWidth'#2#0#8'TabOrder'#2#3#0#0#0 +'Right'#2#6#20'BorderSpacing.Bottom'#2#6#10'ItemHeight'#2#13#8'TabOrder'#2#3
+#0#0#0
]); ]);