formmemoryregionsunit.dfm

来自「冒险岛吸怪源码ＵＣＥ的制作材料 用于冒险岛游戏的外挂」· DFM 代码 · 共 99 行

object FormMemoryRegions: TFormMemoryRegions
  Left = 433
  Top = 399
  Width = 440
  Height = 299
  BorderIcons = [biSystemMenu]
  Caption = 'Memory regions'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  DesignSize = (
    432
    265)
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 178
    Top = 238
    Width = 75
    Height = 25
    Anchors = [akBottom]
    Cancel = True
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
    OnClick = Button1Click
  end
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 432
    Height = 232
    Align = alTop
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Caption = 'Address'
        Width = 80
      end
      item
        Caption = 'Allocation Protect'
        Width = 110
      end
      item
        Caption = 'State'
        Width = 60
      end
      item
        Caption = 'Protect'
        Width = 110
      end
      item
        Caption = 'Type'
      end>
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 136
    Top = 72
    object Saveselectedregions1: TMenuItem
      Caption = 'Save selected regions'
      OnClick = Saveselectedregions1Click
    end
    object SelectAllReadableMemory1: TMenuItem
      Caption = 'Select all readable memory'
      OnClick = SelectAllReadableMemory1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Setselectedregionstobewritable1: TMenuItem
      Caption = 'Set selected regions to be writable'
      OnClick = Setselectedregionstobewritable1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Give the basename of the regions to be saved. (Can be a CT file)'
    Left = 32
    Top = 56
  end
end