PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/BIN/CORIDE40.BPL/0/RCDATA/TEVALDIALOG/TEVALDIALOG.txt

Text File | 1998-06-16 | 4KB | 184 lines

inherited EvalDialog: TEvalDialog
  Left = 233
  Top = 158
  HelpContext = 1425
  VertScrollBar.Range = 0
  ActiveControl = Expression
  AutoScroll = False
  Caption = 'Evaluate/Modify'
  ClientHeight = 239
  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
    Width = 394
  end
  inherited ToolBar1: TToolBar
    Width = 394
    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 HelpButton: TCommandButton
      Left = 50
      Top = 0
      Width = 23
      Height = 22
      Action = HelpAction
      Images = AppBuilder.ImageList1
    end
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 33
    Width = 394
    Height = 206
    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 = 161
      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 = 177
      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 = 101
      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
      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
  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