From d7fef7831eea19d01512ec6b96874ac98066f4df Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 27 Mar 2009 03:44:39 +0000
Subject: [PATCH] debugger: improve anchoring of evaluate&modify dialog, add
 constraints

git-svn-id: trunk@19127 -
---
 debugger/evaluatedlg.lfm | 130 +++++++++++++++++++++++++--------------
 debugger/evaluatedlg.lrs |  84 +++++++++++++++----------
 2 files changed, 137 insertions(+), 77 deletions(-)

diff --git a/debugger/evaluatedlg.lfm b/debugger/evaluatedlg.lfm
index cbbab96307..a2a47eccb3 100644
--- a/debugger/evaluatedlg.lfm
+++ b/debugger/evaluatedlg.lfm
@@ -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
diff --git a/debugger/evaluatedlg.lrs b/debugger/evaluatedlg.lrs
index c1369d6aa2..a3d5892090 100644
--- a/debugger/evaluatedlg.lrs
+++ b/debugger/evaluatedlg.lrs
@@ -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
 ]);