PC World Plus! (NZ) 2001 June/HDC50.iso/Runimage/Delphi50/Bin/CORIDE50.BPL/0/RCDATA/TDISASSEMBLYVIEW/TDISASSEMBLYVIEW.txt

Text File | 1999-08-11 | 15.3 KB | 610 lines

inherited DisassemblyView: TDisassemblyView
  Left = 192
  Top = 179
  Width = 533
  Height = 353
  Caption = 'CPU'
  ParentFont = False
  Font.Color = clBlack
  Font.Name = 'Courier New'
  Icon.Data = {<image000.ico>}
  PopupMenu = MainPopupMenu
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 335
    Top = 0
    Width = 3
    Height = 326
    Cursor = crHSplit
    Align = alRight
  end
  object CPUPane: TPanel
    Left = 338
    Top = 0
    Width = 187
    Height = 326
    Align = alRight
    BevelOuter = bvNone
    Caption = 'CPUPane'
    Constraints.MinHeight = 30
    Constraints.MinWidth = 30
    FullRepaint = False
    TabOrder = 1
    object Splitter3: TSplitter
      Left = 0
      Top = 231
      Width = 187
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 187
      Height = 231
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Panel5'
      Constraints.MinHeight = 30
      Constraints.MinWidth = 30
      FullRepaint = False
      TabOrder = 0
      object Splitter4: TSplitter
        Left = 120
        Top = 0
        Width = 3
        Height = 231
        Cursor = crHSplit
        Align = alRight
      end
      object RegisterView: TRegisterView
        Left = 0
        Top = 0
        Width = 120
        Height = 231
        HelpContext = 5593
        Align = alClient
        Ctl3D = True
        CurrentRegs.EAX = 1234
        CurrentRegs.EDX = 1024
        CurrentRegs.FS = 2048
        ParentCtl3D = False
        PopupMenu = RegisterPopupMenu
        TabOrder = 0
        OnKeyPress = RegisterViewKeyPress
      end
      object FlagsView: TFlagsView
        Left = 123
        Top = 0
        Width = 64
        Height = 231
        HelpContext = 5594
        Align = alRight
        DefaultRowHeight = 14
        FlagType = ftCPU
        PopupMenu = FlagsPopupMenu
        TabOrder = 1
        OnHintShow = FlagsViewHintShow
      end
    end
    object StackView: TDumpView
      Left = 0
      Top = 234
      Width = 187
      Height = 92
      HelpContext = 5592
      Align = alClient
      ViewType = vtLong
      DataColumns = 1
      Descending = True
      LeftGutterWidth = 24
      PopupMenu = StackPopupMenu
      TabOrder = 1
      OnDragDrop = StackViewDragDrop
      OnDragOver = DumpViewDragOver
      OnGetData = DumpViewGetData
      OnKeyPress = StackViewKeyPress
      OnPaintGutter = StackViewPaintGutter
      ColWidths = (
        86
        62
        41)
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 335
    Height = 326
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    Constraints.MinHeight = 30
    Constraints.MinWidth = 30
    FullRepaint = False
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 0
      Top = 244
      Width = 335
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object AddressStatus: TAddressStatus
      Left = 0
      Top = 0
      Width = 335
      Height = 14
      Align = alTop
      ShowAnyThing = True
      ShowEffective = True
      ThreadString = 'Thread #'
    end
    object DisassemblerView1: TDisassemblerView
      Left = 0
      Top = 14
      Width = 335
      Height = 230
      HelpContext = 5590
      Align = alClient
      Ctl3D = True
      ParentColor = False
      ParentCtl3D = False
      PopupMenu = CPUPaneMenu
      TabOrder = 0
      TabStop = True
      OnMouseDown = DisassemblerView1MouseDown
      OnDisassemble = DisassemblerView1Disassemble
      OnFindLineCode = DisassemblerView1FindLineCode
      OnFindSourceLine = DisassemblerView1FindSourceLine
      OnGetFileName = DisassemblerView1GetFileName
      OnGetNextAddr = DisassemblerView1GetNextAddr
      OnGetPrevAddr = DisassemblerView1GetPrevAddr
      OnGetSourceText = DisassemblerView1GetSourceText
      OnPaintGutter = DisassemblerView1PaintGutter
      OnIsBreakpoint = DisassemblerView1IsBreakpoint
      OnGutterClicked = DisassemblerView1GutterClicked
      OnGetLabel = DisassemblerView1GetLabel
      OnAddressChanged = DisassemblerView1AddressChanged
      OnPaintEndOfLine = DisassemblerView1PaintEndOfLine
    end
    object DumpView: TDumpView
      Left = 0
      Top = 247
      Width = 335
      Height = 79
      HelpContext = 5591
      Align = alBottom
      PopupMenu = DumpPopupMenu
      TabOrder = 1
      OnDragDrop = DumpViewDragDrop
      OnDragOver = DumpViewDragOver
      OnGetData = DumpViewGetData
      OnKeyPress = DumpViewKeyPress
      ColWidths = (
        62
        20
        20
        20
        20
        20
        20
        20
        20
        69)
    end
  end
  object MainPopupMenu: TPopupMenu
    AutoPopup = False
    Left = 112
    Top = 32
    object RunStepOverItem: TMenuItem
      Caption = 'Step Over'
      OnClick = RunStepOverItemClick
    end
    object RunTraceIntoItem: TMenuItem
      Caption = 'Step Into'
      OnClick = RunTraceIntoItemClick
    end
    object RunGotoCursorItem: TMenuItem
      Caption = 'Run To Here'
      OnClick = RunGotoCursorItemClick
    end
    object ecToggleBreakpoint: TMenuItem
      Caption = 'Set Breakpoint'
      OnClick = ecToggleBreakpointClick
    end
    object LocalMenuItem: TMenuItem
      Caption = 'Local Menu'
      OnClick = LocalMenuItemClick
    end
    object DownPaneItem: TMenuItem
      Caption = 'Down Pane'
      OnClick = DownPaneItemClick
    end
    object UpPaneItem: TMenuItem
      Caption = 'Up Pane'
      OnClick = UpPaneItemClick
    end
    object LeftPaneItem: TMenuItem
      Caption = 'Left Pane'
      OnClick = LeftPaneItemClick
    end
    object RightPaneItem: TMenuItem
      Caption = 'Right Pane'
      OnClick = RightPaneItemClick
    end
    object ZoomWindowItem: TMenuItem
      Caption = 'Zoom Window'
      OnClick = ZoomWindowItemClick
    end
    object CloseWindowItem: TMenuItem
      Caption = 'Close Window'
      Visible = False
      OnClick = CloseWindowItemClick
    end
  end
  object CPUPaneMenu: TPopupMenu
    HelpContext = 4775
    OnPopup = CPUPaneMenuPopup
    Left = 193
    Top = 32
    object CPUEnableBreakpointItem: TMenuItem
      Caption = 'Enabled'
      HelpContext = 5512
      Visible = False
      OnClick = CPUEnableBreakpointItemClick
    end
    object CPUBreakpointPropertiesItem: TMenuItem
      Caption = 'Breakpoint Properties'
      HelpContext = 5513
      Visible = False
      OnClick = CPUBreakpointPropertiesItemClick
    end
    object CPUBPSeparator: TMenuItem
      Caption = '-'
      Visible = False
    end
    object CPURuntoCurrentItem: TMenuItem
      Caption = '&Run to Current'
      HelpContext = 5500
      OnClick = CPURuntoCurrentItemClick
    end
    object CPUToggleBreakpointItem: TMenuItem
      Caption = 'Toggle &Breakpoint'
      HelpContext = 5501
      OnClick = CPUToggleBreakpointItemClick
    end
    object CPUGotoAddressItem: TMenuItem
      Caption = '&Goto Address...'
      HelpContext = 5502
      OnClick = CPUGotoAddressItemClick
    end
    object CpuOriginItem: TMenuItem
      Caption = 'G&oto Current EIP'
      HelpContext = 5503
      OnClick = CpuOriginClick
    end
    object CpuFollowItem: TMenuItem
      Caption = '&Follow'
      HelpContext = 5504
      OnClick = CpuFollowClick
    end
    object CpuCallerItem: TMenuItem
      Caption = '&Caller'
      HelpContext = 5505
      OnClick = CpuCallerClick
    end
    object CpuPreviousItem: TMenuItem
      Caption = '&Previous'
      HelpContext = 5506
      OnClick = CpuPerviousClick
    end
    object CpuSearchItem: TMenuItem
      Caption = '&Search...'
      HelpContext = 5507
      OnClick = CpuSearchClick
    end
    object CpuViewSourceItem: TMenuItem
      Caption = '&View Source'
      HelpContext = 5508
      OnClick = CpuViewSourceClick
    end
    object CpuMixedItem: TMenuItem
      Caption = 'Mi&xed'
      HelpContext = 5509
      OnClick = CpuMixedClick
    end
    object CpuNewEIPItem: TMenuItem
      Caption = '&New EIP'
      HelpContext = 5511
      OnClick = CpuNewEIPClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object CpuChangeThreadItem: TMenuItem
      Action = ChangeThreadAction
      HelpContext = 5510
    end
    object CPUViewFPUItem: TMenuItem
      Action = ViewFPUAction
    end
  end
  object RegisterPopupMenu: TPopupMenu
    HelpContext = 4790
    OnPopup = RegisterPopupMenuPopup
    Left = 112
    Top = 80
    object RegisterIncrementItem: TMenuItem
      Caption = '&Increment Register'
      HelpContext = 5570
      OnClick = RegisterIncrementItemClick
    end
    object RegisterDecrementItem: TMenuItem
      Caption = '&Decrement Register'
      HelpContext = 5571
      OnClick = RegisterDecrementItemClick
    end
    object RegisterZeroItem: TMenuItem
      Caption = '&Zero Register'
      HelpContext = 5572
      OnClick = RegisterZeroItemClick
    end
    object RegisterChangeItem: TMenuItem
      Caption = '&Change Register...'
      HelpContext = 5573
      OnClick = RegisterChangeItemClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object RegisterChangeThreadItem: TMenuItem
      Action = ChangeThreadAction
      HelpContext = 5574
    end
    object RegisterViewFPUItem: TMenuItem
      Action = ViewFPUAction
    end
  end
  object FlagsPopupMenu: TPopupMenu
    HelpContext = 4795
    OnPopup = FlagsPopupMenuPopup
    Left = 192
    Top = 80
    object FlagToggleItem: TMenuItem
      Caption = 'Toggle &Flag'
      HelpContext = 5580
      OnClick = FlagToggleItemClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object FlagChangeThreadItem: TMenuItem
      Action = ChangeThreadAction
      HelpContext = 5581
    end
    object FlagViewFPUItem: TMenuItem
      Action = ViewFPUAction
    end
  end
  object DumpPopupMenu: TPopupMenu
    HelpContext = 4780
    OnPopup = DumpPopupMenuPopup
    Left = 24
    Top = 32
    object DumpGotoAddressItem: TMenuItem
      Caption = '&Goto Address...'
      HelpContext = 5520
      OnClick = DumpGotoAddressItemClick
    end
    object DumpSearch: TMenuItem
      Caption = '&Search...'
      HelpContext = 5522
      OnClick = DumpSearchClick
    end
    object DumpNext: TMenuItem
      Caption = '&Next'
      HelpContext = 5523
      OnClick = DumpNextClick
    end
    object DumpChange: TMenuItem
      Caption = '&Change...'
      HelpContext = 5524
      OnClick = DumpChangeClick
    end
    object DumpFollow: TMenuItem
      Caption = '&Follow'
      HelpContext = 5525
      object DumpNearcode: TMenuItem
        Caption = 'N&ear Code'
        HelpContext = 5526
        OnClick = DumpNearcodeClick
      end
      object DumpOffsettodata: TMenuItem
        Caption = 'Offset to &Data'
        HelpContext = 5527
        OnClick = DumpOffsettodataClick
      end
    end
    object DumpPrevious: TMenuItem
      Caption = '&Previous'
      HelpContext = 5528
      OnClick = DumpPreviousClick
    end
    object DumpDisplayAsItem: TMenuItem
      Caption = '&Display As'
      HelpContext = 5529
      OnClick = DumpDisplayAsItemClick
      object DumpBytesItem: TMenuItem
        Caption = '&Bytes'
        HelpContext = 5520
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpWordsItem: TMenuItem
        Caption = '&Words'
        HelpContext = 5531
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpLongintsItem: TMenuItem
        Caption = '&DWords'
        HelpContext = 5532
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object Dumpint64sItem: TMenuItem
        Caption = '&QWords'
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpSinglesItem: TMenuItem
        Caption = '&Floats'
        HelpContext = 5533
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpDoublesItem: TMenuItem
        Caption = 'D&oubles'
        HelpContext = 5534
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpExtendedsItem: TMenuItem
        Caption = 'Long Doubl&es'
        HelpContext = 5535
        RadioItem = True
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpMultiByteItem: TMenuItem
        Caption = '&MultiByte'
        RadioItem = True
        Visible = False
        OnClick = DumpChangeDisplayAsClick
      end
      object DumpUnicodeItem: TMenuItem
        Caption = '&Unicode'
        RadioItem = True
        Visible = False
        OnClick = DumpChangeDisplayAsClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object DumpChangeThreadItem: TMenuItem
      Action = ChangeThreadAction
      HelpContext = 5521
    end
    object DumpViewFPUItem: TMenuItem
      Action = ViewFPUAction
    end
  end
  object StackPopupMenu: TPopupMenu
    HelpContext = 4785
    OnPopup = StackPopupMenuPopup
    Left = 24
    Top = 80
    object StackGotoAddressItem: TMenuItem
      Caption = '&Goto Address...'
      HelpContext = 5550
      OnClick = StackGotoAddressItemClick
    end
    object StackOrigin: TMenuItem
      Caption = 'T&op of Stack'
      HelpContext = 5552
      OnClick = StackOriginClick
    end
    object StackFollow: TMenuItem
      Caption = '&Follow'
      HelpContext = 5553
      object StackOffsettostack: TMenuItem
        Caption = 'Offset to &Stack'
        HelpContext = 5554
        OnClick = StackOffsettostackClick
      end
      object StackNearcode: TMenuItem
        Caption = 'N&ear Code'
        HelpContext = 5555
        OnClick = StackNearcodeClick
      end
      object StackOffsettodata: TMenuItem
        Caption = 'Offset to &Data'
        HelpContext = 5556
        OnClick = StackOffsettodataClick
      end
    end
    object StackPrevious: TMenuItem
      Caption = '&Previous'
      HelpContext = 5557
      OnClick = StackPreviousClick
    end
    object StackChange: TMenuItem
      Caption = '&Change...'
      HelpContext = 5558
      OnClick = StackChangeClick
    end
    object StackDisplayAsItem: TMenuItem
      Caption = 'Display &As'
      HelpContext = 5559
      OnClick = StackDisplayAsItemClick
      object StackBytesItem: TMenuItem
        Caption = '&Bytes'
        HelpContext = 5560
        RadioItem = True
        OnClick = StackChangeDisplayAsClick
      end
      object StackWordsItem: TMenuItem
        Caption = '&Words'
        HelpContext = 5561
        RadioItem = True
        OnClick = StackChangeDisplayAsClick
      end
      object StackLongintsItem: TMenuItem
        Caption = '&DWords'
        HelpContext = 5562
        RadioItem = True
        OnClick = StackChangeDisplayAsClick
      end
      object StackSinglesItem: TMenuItem
        Caption = '&Floats'
        HelpContext = 5563
        RadioItem = True
        OnClick = StackChangeDisplayAsFloatsClick
      end
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object StackChangeThreadItem: TMenuItem
      Action = ChangeThreadAction
      HelpContext = 5551
    end
    object StackViewFPUItem: TMenuItem
      Action = ViewFPUAction
    end
  end
  object CPUCommonActions: TActionList
    Left = 280
    Top = 200
    object ViewFPUAction: TAction
      Caption = 'View FP&U'
      HelpContext = 5514
      OnExecute = ViewFPUActionExecute
      OnUpdate = ViewFPUActionUpdate
    end
    object ChangeThreadAction: TAction
      Caption = 'Change &Thread...'
      OnExecute = ChangeThreadClick
    end
  end
end