FoundCodeUnit.lfm

object FoundCodeDialog: TFoundCodeDialog
  Left = 838
  Height = 399
  Top = 235
  Width = 398
  BorderIcons = [biSystemMenu]
  Caption = 'The following opcodes changed the selected address'
  ClientHeight = 399
  ClientWidth = 398
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  Position = poOwnerFormCenter
  LCLVersion = '1.0.8.0'
  object Panel1: TPanel
    Left = 276
    Height = 399
    Top = 0
    Width = 122
    Align = alRight
    BevelOuter = bvNone
    ClientHeight = 399
    ClientWidth = 122
    TabOrder = 0
    object Description: TLabel
      Left = 0
      Height = 193
      Top = 165
      Width = 122
      Align = alClient
      Alignment = taCenter
      AutoSize = False
      ParentColor = False
      WordWrap = True
    end
    object Panel2: TPanel
      Left = 0
      Height = 41
      Top = 358
      Width = 122
      Align = alBottom
      BevelOuter = bvNone
      ClientHeight = 41
      ClientWidth = 122
      TabOrder = 0
      object btnOK: TButton
        Left = 24
        Height = 30
        Top = 3
        Width = 75
        Cancel = True
        Caption = 'OK'
        Default = True
        OnClick = btnOKClick
        TabOrder = 0
      end
    end
    object Panel3: TPanel
      Left = 0
      Height = 165
      Top = 0
      Width = 122
      Align = alTop
      BevelOuter = bvNone
      ClientHeight = 165
      ClientWidth = 122
      TabOrder = 1
      object btnExtraInfo: TButton
        Left = 7
        Height = 31
        Hint = 'Shows more information about the state of the system when that instruction got executed'
        Top = 128
        Width = 109
        Anchors = [akTop, akRight]
        Caption = 'More information'
        Enabled = False
        OnClick = btnExtraInfoClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object btnAddToCodeList: TButton
        Left = 7
        Height = 30
        Hint = 'The selected addresses will be added to the code list in the advanced options window.'
        Top = 89
        Width = 109
        Caption = 'Add to the codelist'
        Enabled = False
        OnClick = btnAddToCodeListClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object btnOpenDisassembler: TButton
        Left = 7
        Height = 31
        Hint = 'This will open the memoryview and bring the disassemblerview to the selected address'
        Top = 49
        Width = 109
        Caption = 'Show disassembler'
        Enabled = False
        OnClick = btnOpenDisassemblerClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object btnReplacewithnops: TButton
        Left = 7
        Height = 31
        Hint = 'This will replace the selected addresses with code that does nothing. (Nops)'
        Top = 10
        Width = 109
        Caption = 'Replace'
        Enabled = False
        OnClick = btnReplacewithnopsClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Height = 399
    Top = 0
    Width = 276
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 399
    ClientWidth = 276
    TabOrder = 1
    object FoundCodeList: TListView
      Left = 0
      Height = 237
      Top = 0
      Width = 276
      Align = alClient
      Columns = <      
        item
          Caption = 'Count'
          Width = 30
        end      
        item
          AutoSize = True
          Caption = 'Instruction'
          Width = 242
        end>
      ColumnClick = False
      HideSelection = False
      MultiSelect = True
      PopupMenu = pmOptions
      ReadOnly = True
      RowSelect = True
      ScrollBars = ssVertical
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = FoundcodeListDblClick
      OnSelectItem = FoundCodeListSelectItem
    end
    object mInfo: TMemo
      Left = 0
      Height = 157
      Top = 242
      Width = 276
      Align = alBottom
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
      WordWrap = False
    end
    object Splitter1: TSplitter
      Cursor = crVSplit
      Left = 0
      Height = 5
      Top = 237
      Width = 276
      Align = alBottom
      ResizeAnchor = akBottom
    end
  end
  object pmOptions: TPopupMenu
    OnPopup = pmOptionsPopup
    left = 64
    top = 64
    object ReplacewithcodethatdoesnothingNOP1: TMenuItem
      Caption = 'Replace with code that does nothing (NOP)'
      OnClick = btnReplacewithnopsClick
    end
    object Showthisaddressinthedisassembler1: TMenuItem
      Caption = 'Show this address in the disassembler'
      OnClick = btnOpenDisassemblerClick
    end
    object Addtothecodelist1: TMenuItem
      Caption = 'Add to the codelist'
      OnClick = btnAddToCodeListClick
    end
    object MoreInfo1: TMenuItem
      Caption = 'More Info'
      Default = True
      OnClick = btnExtraInfoClick
    end
    object miFindWhatAccesses: TMenuItem
      AutoCheck = True
      Caption = 'Check if found opcodes also access other addresses (max 8)'
      ShowAlwaysCheckable = True
      OnClick = miFindWhatAccessesClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object MenuItem1: TMenuItem
      Caption = 'Select all'
      ShortCut = 16449
      OnClick = MenuItem1Click
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object miSaveTofile: TMenuItem
      Caption = 'Save selection to file'
      OnClick = miSaveTofileClick
    end
    object Copyselectiontoclipboard1: TMenuItem
      Caption = 'Copy selection to clipboard'
      ShortCut = 16451
      OnClick = Copyselectiontoclipboard1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Text files (*.txt)|*.txt'
    left = 72
    top = 152
  end
end