observerdisassembler.dfm

一个不出名的GBA模拟器

object jdevDisassembler: TjdevDisassembler
  Left = 205
  Top = 230
  Width = 522
  Height = 354
  Caption = 'jdevDisassembler'
  Color = clBtnFace
  Constraints.MinHeight = 354
  Constraints.MinWidth = 200
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Courier New'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object splitter: TSplitter
    Left = 401
    Top = 0
    Width = 5
    Height = 327
    Cursor = crHSplit
    Align = alRight
    AutoSnap = False
    MinSize = 10
  end
  object gutter: TPaintBox
    Left = 0
    Top = 0
    Width = 32
    Height = 327
    Align = alLeft
    OnMouseUp = FormMouseUp
  end
  object scrollbar: TScrollBar
    Left = 385
    Top = 0
    Width = 16
    Height = 327
    Align = alRight
    Kind = sbVertical
    LargeChange = 10
    Max = 268435455
    PageSize = 0
    TabOrder = 0
    OnChange = scrollbarChange
  end
  object registersPanel: TPanel
    Left = 406
    Top = 0
    Width = 108
    Height = 327
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 272
      Width = 108
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object regDisplay: TListBox
      Left = 0
      Top = 0
      Width = 108
      Height = 272
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 16
      Items.Strings = (
        'R0   12345678'
        'R1   12345678'
        'R2   12345678'
        'R3   12345678'
        'R4   12345678'
        'R5   12345678'
        'R6   12345678'
        'R7   12345678'
        'R8   12345678'
        'R9   12345678'
        'R10  12345678'
        'R11  12345678'
        'R12  12345678'
        'SP   12345678'
        'LR   12345678'
        'PC   12345678'
        'CPSR 12345678')
      ParentFont = False
      PopupMenu = registersMenu
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnClick = regDisplayClick
      OnDblClick = regDisplayDblClick
      OnDrawItem = regDisplayDrawItem
    end
    object regEditor: TEdit
      Left = 42
      Top = 0
      Width = 66
      Height = 16
      AutoSize = False
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = '12345678'
      Visible = False
      OnKeyPress = regEditorKeyPress
    end
    object TPanel
      Left = 0
      Top = 275
      Width = 108
      Height = 52
      Align = alBottom
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object flagsDisplay: TCheckListBox
        Left = 32
        Top = 13
        Width = 33
        Height = 39
        OnClickCheck = flagsDisplayClickCheck
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'I'
          'F'
          'T')
        ParentFont = False
        TabOrder = 0
      end
      object conditionDisplay: TCheckListBox
        Left = 2
        Top = 0
        Width = 31
        Height = 52
        OnClickCheck = conditionDisplayClickCheck
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'N'
          'Z'
          'C'
          'V')
        ParentFont = False
        TabOrder = 1
      end
      object bTools: TButton
        Left = 64
        Top = 4
        Width = 41
        Height = 21
        Caption = 'Tools'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = ShowMenu
      end
      object bHelp: TButton
        Left = 64
        Top = 28
        Width = 41
        Height = 21
        Caption = 'Help'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = ShowHelp
      end
    end
  end
  object listbox: TListBox
    Left = 32
    Top = 0
    Width = 353
    Height = 327
    Align = alClient
    BorderStyle = bsNone
    Color = clBtnFace
    IntegralHeight = True
    ItemHeight = 16
    MultiSelect = True
    PopupMenu = listingMenu
    Style = lbOwnerDrawVariable
    TabOrder = 2
    OnDrawItem = listboxDrawItem
    OnMeasureItem = listboxMeasureItem
  end
  object listingMenu: TPopupMenu
    Left = 16
    Top = 48
    object mBrowseTo: TMenuItem
      Caption = '&Browse to...'
      ShortCut = 16455
      OnClick = BrowseToAddress
    end
    object mReturntoPC: TMenuItem
      Caption = '&Return to PC'
      ShortCut = 8
      OnClick = ReturnToCurrentPC
    end
    object N4: TMenuItem