debugger: improve anchoring of evaluate&modify dialog, add constraints

git-svn-id: trunk@19127 -
This commit is contained in:
paul 2009-03-27 03:44:39 +00:00
parent 5a3f0457dd
commit d7fef7831e
2 changed files with 137 additions and 77 deletions

View File

@ -1,67 +1,79 @@
inherited EvaluateDlg: TEvaluateDlg
Left = 351
Left = 470
Height = 290
Top = 136
Top = 393
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 289
ActiveControl = ToolBar1
BorderStyle = bsSizeToolWin
Caption = 'Evaluate/Modify'
ClientHeight = 290
ClientWidth = 400
Constraints.MinHeight = 200
Constraints.MinWidth = 300
KeyPreview = True
OnClose = FormClose
OnKeyDown = FormKeyDown
object Label1: TLabel
Left = 8
Height = 17
Top = 44
Width = 60
object Label1: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ToolBar1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 47
Width = 57
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = '&Expression:'
Color = clNone
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 17
Top = 92
Width = 36
object Label2: TLabel[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbExpression
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 91
Width = 35
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = '&Result:'
Color = clNone
ParentColor = False
end
object lblNewValue: TLabel
Left = 8
Height = 17
Top = 245
Width = 59
object lblNewValue: TLabel[2]
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = cmbNewValue
Left = 6
Height = 14
Top = 246
Width = 55
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 3
Caption = '&New value:'
Color = clNone
ParentColor = False
end
object ToolBar1: TToolBar
object ToolBar1: TToolBar[3]
Left = 0
Height = 44
Top = 0
Width = 400
AutoSize = True
ButtonHeight = 40
ButtonWidth = 50
Caption = 'ToolBar1'
EdgeBorders = [ebTop, ebBottom]
Flat = True
Images = ImageList1
Indent = 2
ShowCaptions = True
TabOrder = 0
TabStop = True
object tbInspect: TToolButton
Left = 166
Left = 159
Top = 2
Caption = '&Inspect'
Enabled = False
ImageIndex = 3
end
object tbWatch: TToolButton
Left = 116
Left = 109
Top = 2
AllowAllUp = True
Caption = '&Watch'
@ -70,7 +82,7 @@ inherited EvaluateDlg: TEvaluateDlg
OnClick = tbWatchClick
end
object tbModify: TToolButton
Left = 62
Left = 59
Top = 2
Caption = '&Modify'
Enabled = False
@ -85,35 +97,63 @@ inherited EvaluateDlg: TEvaluateDlg
OnClick = tbEvaluateClick
end
end
object cmbExpression: TComboBox
Left = 8
object cmbExpression: TComboBox[4]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 60
Width = 384
Top = 64
Width = 388
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0
AutoComplete = False
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
ItemHeight = 13
ItemWidth = 0
OnChange = cmbExpressionChange
OnKeyDown = cmbExpressionKeyDown
TabOrder = 2
end
object txtResult: TMemo
Left = 8
Height = 131
object txtResult: TMemo[5]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblNewValue
Left = 6
Height = 132
Top = 108
Width = 384
Width = 388
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ScrollBars = ssAutoVertical
TabOrder = 1
end
object cmbNewValue: TComboBox
Left = 8
object cmbNewValue: TComboBox[6]
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 21
Top = 262
Width = 384
Top = 263
Width = 388
Anchors = [akLeft, akRight, akBottom]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0
AutoComplete = False
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 13
ItemWidth = 0
TabOrder = 3
end
end

View File

@ -1,34 +1,54 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TEvaluateDlg','FORMDATA',[
'TPF0'#241#12'TEvaluateDlg'#11'EvaluateDlg'#4'Left'#3'_'#1#6'Height'#3'"'#1#3
+'Top'#3#136#0#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollB'
+'ar.Page'#3'!'#1#13'ActiveControl'#7#8'ToolBar1'#11'BorderStyle'#7#13'bsSize'
+'ToolWin'#7'Caption'#6#15'Evaluate/Modify'#10'KeyPreview'#9#7'OnClose'#7#9'F'
+'ormClose'#9'OnKeyDown'#7#11'FormKeyDown'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6
+'Height'#2#17#3'Top'#2','#5'Width'#2'<'#7'Caption'#6#12'&Expression:'#5'Colo'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Heig'
+'ht'#2#17#3'Top'#2'\'#5'Width'#2'$'#7'Caption'#6#8'&Result:'#5'Color'#7#6'cl'
+'None'#11'ParentColor'#8#0#0#6'TLabel'#11'lblNewValue'#4'Left'#2#8#6'Height'
+#2#17#3'Top'#3#245#0#5'Width'#2';'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'C'
+'aption'#6#11'&New value:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#8'TToo'
+'lBar'#8'ToolBar1'#6'Height'#2','#5'Width'#3#144#1#8'AutoSize'#9#12'ButtonHe'
+'ight'#2'('#11'ButtonWidth'#2'2'#7'Caption'#6#8'ToolBar1'#11'EdgeBorders'#11
+#5'ebTop'#8'ebBottom'#0#4'Flat'#9#6'Images'#7#10'ImageList1'#6'Indent'#2#2#12
+'ShowCaptions'#9#8'TabOrder'#2#0#7'TabStop'#9#0#11'TToolButton'#9'tbInspect'
+#4'Left'#3#166#0#3'Top'#2#2#7'Caption'#6#8'&Inspect'#7'Enabled'#8#10'ImageIn'
+'dex'#2#3#0#0#11'TToolButton'#7'tbWatch'#4'Left'#2't'#3'Top'#2#2#10'AllowAll'
+'Up'#9#7'Caption'#6#6'&Watch'#7'Enabled'#8#10'ImageIndex'#2#2#7'OnClick'#7#12
+'tbWatchClick'#0#0#11'TToolButton'#8'tbModify'#4'Left'#2'>'#3'Top'#2#2#7'Cap'
+'tion'#6#7'&Modify'#7'Enabled'#8#10'ImageIndex'#2#1#0#0#11'TToolButton'#10't'
+'bEvaluate'#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#9'TComboBox'#13'cmbE'
+'xpression'#4'Left'#2#8#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#128#1#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOf'
+'LineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#19
+'cmbExpressionChange'#9'OnKeyDown'#7#20'cmbExpressionKeyDown'#8'TabOrder'#2#2
+#0#0#5'TMemo'#9'txtResult'#4'Left'#2#8#6'Height'#3#131#0#3'Top'#2'l'#5'Width'
+#3#128#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'Scroll'
+'Bars'#7#14'ssAutoVertical'#8'TabOrder'#2#1#0#0#9'TComboBox'#11'cmbNewValue'
+#4'Left'#2#8#6'Height'#2#21#3'Top'#3#6#1#5'Width'#3#128#1#7'Anchors'#11#6'ak'
+'Left'#7'akRight'#8'akBottom'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCom'
+'plete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#3#0#0#0
'TPF0'#241#12'TEvaluateDlg'#11'EvaluateDlg'#4'Left'#3#214#1#6'Height'#3'"'#1#3
+'Top'#3#137#1#5'Width'#3#144#1#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'
+#6#15'Evaluate/Modify'#12'ClientHeight'#3'"'#1#11'ClientWidth'#3#144#1#21'Co'
+'nstraints.MinHeight'#3#200#0#20'Constraints.MinWidth'#3','#1#10'KeyPreview'
+#9#7'OnClose'#7#9'FormClose'#9'OnKeyDown'#7#11'FormKeyDown'#0#242#2#0#6'TLab'
+'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#0#0#11'TToolButton'#7'tbWatch'#4'Left'#2'm'#3'Top'#2#2#10'Al'
+'lowAllUp'#9#7'Caption'#6#6'&Watch'#7'Enabled'#8#10'ImageIndex'#2#2#7'OnClic'
+'k'#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'ImageIndex'#2#1#0#0#11'TToolButto'
+'n'#10'tbEvaluate'#4'Left'#2#2#3'Top'#2#2#7'Caption'#6#9'E&valuate'#7'Enable'
+'d'#8#10'ImageIndex'#2#0#7'OnClick'#7#15'tbEvaluateClick'#0#0#0#242#2#4#9'TC'
+'omboBox'#13'cmbExpression'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorS'
+'ideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+'SideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+'t'#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'BorderSpacing.Left'#2#6#17'Borde'
+'rSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#10'ItemHeight'#2#13#9'ItemWid'
+'th'#2#0#8'OnChange'#7#19'cmbExpressionChange'#9'OnKeyDown'#7#20'cmbExpressi'
+'onKeyDown'#8'TabOrder'#2#2#0#0#242#2#5#5'TMemo'#9'txtResult'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSi'
+'deRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#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'BorderSpacing.Left'#2#6#17'Bor'
+'derSpacing.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'AnchorSideRight.Co'
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBott'
+'om.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'akLeft'#7'akRi'
+'ght'#8'akBottom'#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#6#19'BorderS'
+'pacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#10'ItemHeight'#2#13#9'ItemWi'
+'dth'#2#0#8'TabOrder'#2#3#0#0#0
]);