cstrategy.dfm

来自「Delphi深度探索,Delphi深度探索（第二版）」· DFM 代码 · 共 104 行

object Form1: TForm1
  Left = 232
  Top = 217
  Width = 420
  Height = 387
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mm1
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object edt1: TEdit
    Left = 168
    Top = 16
    Width = 233
    Height = 24
    TabOrder = 0
    Text = 'edt1'
  end
  object lst1: TListBox
    Left = 168
    Top = 48
    Width = 233
    Height = 257
    ItemHeight = 16
    TabOrder = 1
  end
  object mm1: TMainMenu
    Left = 288
    Top = 8
    object miN1: TMenuItem
      Caption = #32534#36753
      object miCut1: TMenuItem
        Action = ec1
      end
      object miCopy1: TMenuItem
        Action = ec2
      end
      object miDelete1: TMenuItem
        Action = ed1
      end
      object miPaste1: TMenuItem
        Action = ep1
      end
      object miSelectAll1: TMenuItem
        Action = es1
      end
      object miUndo1: TMenuItem
        Action = eu1
      end
    end
  end
  object actlst1: TActionList
    Left = 296
    Top = 112
    object ec1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object ec2: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object ep1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object es1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object eu1: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object ed1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
  end
end