debugfindpattern.dfm

一个不出名的GBA模拟器

object dbgFindPattern: TdbgFindPattern
  Left = 228
  Top = 187
  BorderStyle = bsDialog
  Caption = 'Find Pattern'
  ClientHeight = 150
  ClientWidth = 368
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object findGroup: TGroupBox
    Left = 8
    Top = 8
    Width = 241
    Height = 105
    Caption = ' Find What '
    TabOrder = 5
    object rbText: TRadioButton
      Left = 8
      Top = 48
      Width = 41
      Height = 17
      Caption = 'Text'
      TabOrder = 0
      OnClick = ChangePatternType
    end
    object rbHex: TRadioButton
      Left = 8
      Top = 72
      Width = 41
      Height = 17
      Caption = 'Hex'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = ChangePatternType
    end
    object ePattern: TEdit
      Left = 8
      Top = 16
      Width = 225
      Height = 21
      TabOrder = 2
      OnChange = ePatternChange
    end
    object bLoad: TButton
      Left = 176
      Top = 40
      Width = 57
      Height = 21
      Caption = 'Load...'
      TabOrder = 3
      OnClick = LoadPattern
    end
  end
  object addressGroup: TGroupBox
    Left = 256
    Top = 8
    Width = 105
    Height = 49
    Caption = ' Base Address '
    TabOrder = 0
    object cbBaseAddress: TComboBox
      Left = 9
      Top = 17
      Width = 88
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      Text = '$00000000'
      OnChange = ChangeBaseAddress
      Items.Strings = (
        '$00000000'
        '$02000000'
        '$03000000'
        '$04000000'
        '$05000000'
        '$06000000'
        '$07000000'
        '$08000000'
        '$0E000000')
    end
  end
  object rgDirection: TRadioGroup
    Left = 256
    Top = 60
    Width = 105
    Height = 53
    Caption = ' Direction '
    ItemIndex = 0
    Items.Strings = (
      'Up'
      'Down')
    TabOrder = 1
    OnClick = ChangeDirection
  end
  object bFind: TButton
    Left = 126
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Find'
    TabOrder = 2
  end
  object bCancel: TButton
    Left = 206
    Top = 120
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 3
    OnClick = CancelSearch
  end
  object bHelp: TButton
    Left = 286
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Help'
    TabOrder = 4
    OnClick = ShowHelp
  end
  object openDialog: TOpenDialog
    Filter = 'Data (*.dat)|*.dat|All Files|*.*'
    Left = 80
    Top = 8
  end
end