PageRenderTime 5ms CodeModel.GetById 1ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/debugger/evaluatedlg.lfm

http://github.com/graemeg/lazarus
Unknown | 209 lines | 209 code | 0 blank | 0 comment | 0 complexity | 2e6b93c94a495ddf3351ed18428f5256 MD5 | raw file
  1inherited EvaluateDlg: TEvaluateDlg
  2  Left = 470
  3  Height = 290
  4  Top = 393
  5  Width = 400
  6  ActiveControl = cmbExpression
  7  BorderStyle = bsSizeToolWin
  8  Caption = 'Evaluate/Modify'
  9  ClientHeight = 290
 10  ClientWidth = 400
 11  Constraints.MinHeight = 200
 12  Constraints.MinWidth = 300
 13  KeyPreview = True
 14  OnClose = FormClose
 15  OnCreate = FormCreate
 16  OnKeyDown = FormKeyDown
 17  object Label1: TLabel[0]
 18    AnchorSideLeft.Control = Owner
 19    AnchorSideTop.Control = ToolBar1
 20    AnchorSideTop.Side = asrBottom
 21    Left = 6
 22    Height = 14
 23    Top = 47
 24    Width = 57
 25    BorderSpacing.Left = 6
 26    BorderSpacing.Top = 3
 27    Caption = '&Expression:'
 28    FocusControl = cmbExpression
 29    ParentColor = False
 30  end
 31  object Label2: TLabel[1]
 32    AnchorSideLeft.Control = Owner
 33    AnchorSideTop.Control = cmbExpression
 34    AnchorSideTop.Side = asrBottom
 35    Left = 6
 36    Height = 14
 37    Top = 91
 38    Width = 35
 39    BorderSpacing.Left = 6
 40    BorderSpacing.Top = 6
 41    Caption = '&Result:'
 42    FocusControl = txtResult
 43    ParentColor = False
 44  end
 45  object lblNewValue: TLabel[2]
 46    AnchorSideLeft.Control = Owner
 47    AnchorSideBottom.Control = cmbNewValue
 48    Left = 6
 49    Height = 14
 50    Top = 246
 51    Width = 55
 52    Anchors = [akLeft, akBottom]
 53    BorderSpacing.Left = 6
 54    BorderSpacing.Bottom = 3
 55    Caption = '&New value:'
 56    FocusControl = cmbNewValue
 57    ParentColor = False
 58  end
 59  object ToolBar1: TToolBar[3]
 60    Left = 0
 61    Height = 44
 62    Top = 0
 63    Width = 400
 64    AutoSize = True
 65    ButtonHeight = 40
 66    ButtonWidth = 50
 67    Caption = 'ToolBar1'
 68    EdgeBorders = [ebTop, ebBottom]
 69    Indent = 2
 70    ShowCaptions = True
 71    TabOrder = 0
 72    TabStop = True
 73    object tbInspect: TToolButton
 74      Left = 152
 75      Top = 2
 76      Caption = '&Inspect'
 77      Enabled = False
 78      ImageIndex = 3
 79      OnClick = tbInspectClick
 80    end
 81    object tbWatch: TToolButton
 82      Left = 102
 83      Top = 2
 84      AllowAllUp = True
 85      Caption = '&Watch'
 86      Enabled = False
 87      ImageIndex = 2
 88      OnClick = tbWatchClick
 89    end
 90    object tbModify: TToolButton
 91      Left = 52
 92      Top = 2
 93      Caption = '&Modify'
 94      Enabled = False
 95      ImageIndex = 1
 96      OnClick = tbModifyClick
 97    end
 98    object tbEvaluate: TToolButton
 99      Left = 2
100      Top = 2
101      Caption = 'E&valuate'
102      Enabled = False
103      ImageIndex = 0
104      OnClick = tbEvaluateClick
105    end
106    object ToolButton1: TToolButton
107      Left = 202
108      Top = 2
109      Width = 10
110      Caption = 'ToolButton1'
111      Style = tbsSeparator
112    end
113    object tbHistory: TToolButton
114      Left = 212
115      Top = 2
116      Caption = 'History'
117      DropdownMenu = mnuHistory
118      Style = tbsDropDown
119    end
120  end
121  object cmbExpression: TComboBox[4]
122    AnchorSideLeft.Control = Owner
123    AnchorSideTop.Control = Label1
124    AnchorSideTop.Side = asrBottom
125    AnchorSideRight.Control = Owner
126    AnchorSideRight.Side = asrBottom
127    Left = 6
128    Height = 21
129    Top = 64
130    Width = 388
131    Anchors = [akTop, akLeft, akRight]
132    BorderSpacing.Left = 6
133    BorderSpacing.Top = 3
134    BorderSpacing.Right = 6
135    ItemHeight = 13
136    OnChange = cmbExpressionChange
137    OnKeyDown = cmbExpressionKeyDown
138    TabOrder = 2
139  end
140  object txtResult: TMemo[5]
141    AnchorSideLeft.Control = Owner
142    AnchorSideTop.Control = Label2
143    AnchorSideTop.Side = asrBottom
144    AnchorSideRight.Control = Owner
145    AnchorSideRight.Side = asrBottom
146    AnchorSideBottom.Control = lblNewValue
147    Left = 6
148    Height = 132
149    Top = 108
150    Width = 388
151    Anchors = [akTop, akLeft, akRight, akBottom]
152    BorderSpacing.Left = 6
153    BorderSpacing.Top = 3
154    BorderSpacing.Right = 6
155    BorderSpacing.Bottom = 6
156    ScrollBars = ssAutoVertical
157    TabOrder = 3
158  end
159  object cmbNewValue: TComboBox[6]
160    AnchorSideLeft.Control = Owner
161    AnchorSideRight.Control = Owner
162    AnchorSideRight.Side = asrBottom
163    AnchorSideBottom.Control = Owner
164    AnchorSideBottom.Side = asrBottom
165    Left = 6
166    Height = 21
167    Top = 263
168    Width = 388
169    Anchors = [akLeft, akRight, akBottom]
170    BorderSpacing.Left = 6
171    BorderSpacing.Right = 6
172    BorderSpacing.Bottom = 6
173    ItemHeight = 13
174    OnKeyDown = cmbNewValueKeyDown
175    TabOrder = 4
176  end
177  object chkTypeCast: TCheckBox[7]
178    AnchorSideTop.Control = Label1
179    AnchorSideTop.Side = asrCenter
180    AnchorSideRight.Control = Owner
181    AnchorSideRight.Side = asrBottom
182    Left = 312
183    Height = 17
184    Top = 46
185    Width = 82
186    Anchors = [akTop, akRight]
187    BorderSpacing.Right = 6
188    Caption = 'chkTypeCast'
189    Checked = True
190    State = cbChecked
191    TabOrder = 1
192  end
193  object mnuHistory: TPopupMenu[8]
194    left = 72
195    top = 136
196    object MenuItem1: TMenuItem
197      Caption = 'None'
198      OnClick = MenuItem1Click
199    end
200    object MenuItem2: TMenuItem
201      Caption = 'Up'
202      OnClick = MenuItem2Click
203    end
204    object MenuItem3: TMenuItem
205      Caption = 'Down'
206      OnClick = MenuItem3Click
207    end
208  end
209end