debugger: add focus controls for labels in evaluate window

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

View File

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

View File

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