versionresourceform.dfm

學習資料網上下載

inherited fmVersionResource: TfmVersionResource
  Left = 308
  Top = 271
  Caption = 'fmVersionResource'
  ClientHeight = 451
  ClientWidth = 777
  Menu = MainMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 201
    Top = 0
    Width = 3
    Height = 451
    Cursor = crHSplit
  end
  object lvVersionStrings: TListView
    Left = 204
    Top = 0
    Width = 573
    Height = 451
    Align = alClient
    Columns = <
      item
        Caption = 'Name'
        Width = 200
      end
      item
        AutoSize = True
        Caption = 'Value'
      end>
    ColumnClick = False
    GridLines = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lvVersionStringsDblClick
    OnEdited = lvVersionStringsEdited
  end
  object mmoMessage: TMemo
    Left = 416
    Top = 80
    Width = 185
    Height = 73
    Lines.Strings = (
      'mmoMessage')
    TabOrder = 1
    Visible = False
    OnExit = mmoMessageExit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 201
    Height = 451
    Align = alLeft
    BevelOuter = bvLowered
    FullRepaint = False
    TabOrder = 2
    object PropertyListBox1: TPropertyListBox
      Left = 1
      Top = 1
      Width = 199
      Height = 449
      VertScrollBar.Increment = 17
      VertScrollBar.Range = 136
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      Properties = <
        item
          PropertyName = 'Product Version'
          PropertyType = ptString
          Tag = 0
        end
        item
          PropertyName = 'File Version'
          PropertyType = ptString
          Tag = 0
        end
        item
          PropertyName = 'Debug'
          PropertyType = ptBoolean
          Tag = 0
        end
        item
          PropertyName = 'Inferred'
          PropertyType = ptBoolean
          Tag = 0
        end
        item
          PropertyName = 'Patched'
          PropertyType = ptBoolean
          Tag = 0
        end
        item
          PropertyName = 'Pre Release'
          PropertyType = ptBoolean
          Tag = 0
        end
        item
          PropertyName = 'Private Build'
          PropertyType = ptBoolean
          Tag = 0
        end
        item
          PropertyName = 'Special Build'
          PropertyType = ptBoolean
          Tag = 0
        end>
      OnPropertyChanged = PropertyListBox1PropertyChanged
    end
  end
  object MainMenu1: TMainMenu
    Left = 728
    Top = 32
    object mnuStrings: TMenuItem
      Caption = '&Strings'
      GroupIndex = 27
      object mnuAddString: TMenuItem
        Action = actStringAddString
      end
      object mnuModifyString: TMenuItem
        Action = actStringModifyString
      end
      object actStringModifyStringName1: TMenuItem
        Action = actStringModifyStringName
      end
      object mnuDeleteString: TMenuItem
        Action = actStringDeleteString
      end
    end
  end
  object ActionList1: TActionList
    Left = 728
    Top = 64
    object actStringAddString: TAction
      Category = 'Strings'
      Caption = '&Add String'
      ShortCut = 45
      OnExecute = actStringAddStringExecute
    end
    object actStringModifyString: TAction
      Category = 'Strings'
      Caption = '&Modify String'
      OnExecute = actStringModifyStringExecute
    end
    object actStringDeleteString: TAction
      Category = 'Strings'
      Caption = '&Delete String'
      ShortCut = 46
      OnExecute = actStringDeleteStringExecute
    end
    object actStringModifyStringName: TAction
      Category = 'Strings'
      Caption = 'Modify String &Name'
      OnExecute = actStringModifyStringNameExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 736
    Top = 96
    object AddString2: TMenuItem
      Action = actStringAddString
    end
    object ModifyString2: TMenuItem
      Action = actStringModifyString
    end
    object ModifyStringName1: TMenuItem
      Action = actStringModifyStringName
    end
    object DeleteString2: TMenuItem
      Action = actStringDeleteString
    end
  end
end