inherited EvalDialog: TEvalDialog Left = 233 Top = 158 HelpContext = 1425 VertScrollBar.Range = 0 ActiveControl = Expression AutoScroll = False Caption = 'Evaluate/Modify' ClientHeight = 255 ClientWidth = 394 DockSite = False DragKind = dkDrag DragMode = dmManual KeyPreview = True PopupMenu = EvalModPopup Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 inherited Splitter1: TSplitter Top = 41 Width = 394 end inherited ToolBar1: TToolBar Width = 394 Height = 41 Images = AppBuilder.ImageList1 object EvalButton: TCommandButton Left = 4 Top = 0 Width = 23 Height = 22 Action = EvalAction Images = AppBuilder.ImageList1 end object ModifyButton: TCommandButton Left = 27 Top = 0 Width = 23 Height = 22 Action = ModAction Images = AppBuilder.ImageList1 end object WatchButton: TCommandButton Left = 50 Top = 0 Width = 23 Height = 22 Action = WatchAction Images = AppBuilder.ImageList1 end object InspectButton: TCommandButton Left = 73 Top = 0 Width = 23 Height = 22 Action = InspectAction Images = AppBuilder.ImageList1 end object HelpButton: TCommandButton Left = 96 Top = 0 Width = 23 Height = 22 Action = HelpAction Images = AppBuilder.ImageList1 end end object Panel1: TPanel [2] Left = 0 Top = 44 Width = 394 Height = 211 Align = alClient BevelOuter = bvNone FullRepaint = False TabOrder = 1 object Label2: TLabel Left = 8 Top = 41 Width = 33 Height = 13 Caption = '&Result:' FocusControl = ResultLine end object NewValueLabel: TLabel Left = 8 Top = 166 Width = 54 Height = 13 Anchors = [akLeft, akBottom] Caption = '&New value:' FocusControl = NewValue end object Label1: TLabel Left = 8 Top = 0 Width = 54 Height = 13 Caption = '&Expression:' FocusControl = Expression end object NewValue: THistoryPropComboBox Left = 8 Top = 182 Width = 379 Height = 21 Anchors = [akLeft, akRight, akBottom] ItemHeight = 13 MaxLength = 8192 TabOrder = 2 OnEnter = NewValueEnter HistoryManager = EnvironmentOptions.HistoryLists HistoryList = 'hlEvalNewValue' end object ResultLine: TMemo Left = 8 Top = 57 Width = 378 Height = 106 Anchors = [akLeft, akTop, akRight, akBottom] ReadOnly = True ScrollBars = ssVertical TabOrder = 1 WantReturns = False end object Expression: THistoryPropComboBox Left = 8 Top = 16 Width = 379 Height = 21 Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 0 OnChange = ExpressionChange OnDragDrop = ExpressionDragDrop OnDragOver = ExpressionDragOver OnEnter = ExpressionEnter HistoryManager = EnvironmentOptions.HistoryLists HistoryList = 'hlEvalExpression' end end inherited DockActionList: TActionList Left = 16 Top = 136 end inherited ToolbarPopupMenu: TPopupMenu Left = 80 Top = 104 end inherited ToolActionList: TActionList Left = 48 Top = 104 end inherited PopupMenu1: TPopupMenu Left = 16 Top = 104 end object EvalModActionList: TActionList Images = AppBuilder.ImageList1 Left = 48 Top = 136 object EvalAction: TAction Caption = 'E&valuate' Hint = 'Evaluate|Evaluate expression' ImageIndex = 9 OnExecute = EvalButtonClick end object ModAction: TAction Caption = '&Modify' Hint = 'Modify|Set expression to new value' ImageIndex = 10 OnExecute = ModifyButtonClick end object HelpAction: TAction Caption = '&Help' Hint = 'Help' ImageIndex = 11 OnExecute = HelpButtonClick end object WatchAction: TAction Caption = '&Watch' Hint = 'Watch|Add watch for expression' ImageIndex = 29 OnExecute = WatchActionExecute OnUpdate = WatchActionUpdate end object InspectAction: TAction Caption = '&Inspect' Hint = 'Inspect|Inspect expression' ImageIndex = 12 OnExecute = InspectActionExecute OnUpdate = InspectActionUpdate end end object EvalModPopup: TPopupMenu Left = 80 Top = 136 object Toolbar3: TMenuItem Action = ToolbarCmd end object N1: TMenuItem Caption = '-' Visible = False end object DockableItem: TMenuItem Caption = '&Dockable' Checked = True Visible = False OnClick = DockableItemClick end end end