debugwatchproperties.dfm

一个不出名的GBA模拟器

object dbgWatchProperties: TdbgWatchProperties
  Left = 270
  Top = 198
  BorderStyle = bsDialog
  Caption = 'Watch Properties'
  ClientHeight = 160
  ClientWidth = 336
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lExpression: TLabel
    Left = 8
    Top = 11
    Width = 54
    Height = 13
    Caption = 'Expression:'
  end
  object eExpression: TEdit
    Left = 72
    Top = 8
    Width = 257
    Height = 21
    TabOrder = 0
    OnKeyPress = eExpressionKeyPress
  end
  object bOK: TButton
    Left = 208
    Top = 128
    Width = 59
    Height = 25
    Caption = 'OK'
    TabOrder = 1
    OnClick = FinishedEditing
  end
  object bHelp: TButton
    Left = 272
    Top = 128
    Width = 59
    Height = 25
    Caption = 'Help'
    TabOrder = 2
    OnClick = ShowHelp
  end
  object cEnabled: TCheckBox
    Left = 8
    Top = 132
    Width = 105
    Height = 17
    Caption = 'Watch Enabled'
    TabOrder = 3
    OnClick = cEnabledClick
  end
  object rgType: TRadioGroup
    Left = 8
    Top = 40
    Width = 161
    Height = 81
    Caption = ' Type '
    Columns = 2
    ItemIndex = 5
    Items.Strings = (
      'Byte'
      'Halfword'
      'Word'
      'Character'
      'String'
      'Pointer')
    TabOrder = 4
    OnClick = ChangeType
  end
  object displayModeGroup: TGroupBox
    Left = 176
    Top = 40
    Width = 153
    Height = 81
    Caption = ' Display Mode '
    TabOrder = 5
    object cbDisplayType: TComboBox
      Left = 12
      Top = 51
      Width = 133
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'Unsigned Integer'
      Visible = False
      OnChange = cbDisplayTypeChange
      Items.Strings = (
        'Hexadecimal'
        'Integer'
        'Unsigned Integer'
        'Binary'
        'Fixed Point'
        'Floating Point')
    end
    object cIsArray: TCheckBox
      Left = 11
      Top = 23
      Width = 86
      Height = 17
      Caption = 'Array, length:'
      TabOrder = 1
      OnClick = cIsArrayClick
    end
    object eArraySize: TEdit
      Left = 97
      Top = 21
      Width = 45
      Height = 21
      Enabled = False
      TabOrder = 2
      Text = '0'
      OnChange = eArraySizeChange
    end
  end
end