textresourceform.dfm

學習資料網上下載

inherited fmTextResource: TfmTextResource
  Caption = 'fmTextResource'
  PixelsPerInch = 96
  TextHeight = 13
  object lvStrings: TListView
    Left = 0
    Top = 0
    Width = 701
    Height = 455
    Align = alClient
    BorderStyle = bsNone
    Columns = <
      item
        Caption = 'ID'
        Width = 100
      end
      item
        AutoSize = True
        Caption = 'String'
      end>
    ColumnClick = False
    GridLines = True
    RowSelect = True
    PopupMenu = pomStrings
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lvStringsDblClick
    OnEdited = lvStringsEdited
    OnEditing = lvStringsEditing
    OnKeyDown = lvStringsKeyDown
  end
  object mmoMessage: TMemo
    Left = 0
    Top = 48
    Width = 185
    Height = 73
    TabOrder = 1
    Visible = False
    OnExit = mmoMessageExit
  end
  object mnuStringsMenu: TMainMenu
    Left = 648
    Top = 32
    object mnuStrings: TMenuItem
      Caption = '&Strings'
      object AddString1: TMenuItem
        Action = actStringsAdd
      end
      object ModifyString1: TMenuItem
        Action = actStringsModify
      end
      object DeleteString1: TMenuItem
        Action = actStringsDelete
      end
      object ChangeID1: TMenuItem
        Action = actStringsChangeID
      end
    end
  end
  object ActionList1: TActionList
    Left = 648
    Top = 72
    object actStringsAdd: TAction
      Category = 'Strings'
      Caption = '&Add String'
      ShortCut = 45
      OnExecute = actStringsAddExecute
    end
    object actStringsModify: TAction
      Category = 'Strings'
      Caption = '&Modify String'
      OnExecute = actStringsModifyExecute
    end
    object actStringsDelete: TAction
      Category = 'Strings'
      Caption = '&Delete String'
      ShortCut = 46
      OnExecute = actStringsDeleteExecute
    end
    object actStringsChangeID: TAction
      Category = 'Strings'
      Caption = '&Change ID'
      OnExecute = actStringsChangeIDExecute
    end
  end
  object pomStrings: TPopupMenu
    Left = 648
    Top = 120
    object AddString2: TMenuItem
      Action = actStringsAdd
    end
    object ModifyString2: TMenuItem
      Action = actStringsModify
    end
    object DeleteString2: TMenuItem
      Action = actStringsDelete
    end
    object ChangeID2: TMenuItem
      Action = actStringsChangeID
    end
  end
end