actionsf.dfm

Delphi7从入门到精通及附书源码 Delphi7从入门到精通及附书源码

object Form1: TForm1
  Left = 299
  Top = 157
  Width = 519
  Height = 417
  Caption = 'Actions'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 23
    Width = 511
    Height = 348
    Align = alClient
    TabOrder = 0
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 511
    Height = 23
    ButtonWidth = 29
    Caption = 'ToolBar1'
    EdgeOuter = esNone
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      HelpType = htKeyword
      Action = ActionNew
    end
    object ToolButton6: TToolButton
      Left = 29
      Top = 0
      Width = 12
      HelpType = htKeyword
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 41
      Top = 0
      HelpType = htKeyword
      Action = ActionCut
    end
    object ToolButton5: TToolButton
      Left = 70
      Top = 0
      HelpType = htKeyword
      Action = ActionPaste
    end
    object ToolButton4: TToolButton
      Left = 99
      Top = 0
      HelpType = htKeyword
      Action = ActionCopy
    end
    object ToolButton2: TToolButton
      Left = 128
      Top = 0
      Width = 8
      HelpType = htKeyword
      Caption = 'ToolButton2'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 136
      Top = 0
      HelpType = htKeyword
      Action = ActionBold
    end
    object ToolButton8: TToolButton
      Left = 165
      Top = 0
      HelpType = htKeyword
      Action = ActionCount
    end
    object ToolButton10: TToolButton
      Left = 194
      Top = 0
      Width = 8
      HelpType = htKeyword
      Caption = 'ToolButton10'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 202
      Top = 0
      HelpType = htKeyword
      Action = ActionExit
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 96
    Top = 152
    object ActionCopy: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy'
      ImageIndex = 1
      ShortCut = 16451
    end
    object ActionCut: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut'
      ImageIndex = 0
      ShortCut = 16472
    end
    object ActionPaste: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste'
      ImageIndex = 2
      ShortCut = 16470
    end
    object ActionNew: TAction
      Category = 'File'
      Caption = '&New'
      Hint = 'New'
      ImageIndex = 3
      ShortCut = 113
      OnExecute = ActionNewExecute
    end
    object ActionExit: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit'
      ImageIndex = 5
      ShortCut = 32883
      OnExecute = ActionExitExecute
    end
    object NoAction: TAction
      Category = 'Test'
      Caption = '&No Action'
      Hint = 'No Action'
    end
    object ActionCount: TAction
      Category = 'Test'
      Caption = '&Count Chars'
      Hint = 'Count Characters'
      ImageIndex = 6
      OnExecute = ActionCountExecute
      OnUpdate = ActionCountUpdate
    end
    object ActionBold: TAction
      Category = 'Edit'
      AutoCheck = True
      Caption = '&Bold'
      Hint = 'Bold'
      ImageIndex = 4
      ShortCut = 16450
      OnExecute = ActionBoldExecute
    end
    object ActionEnable: TAction
      Category = 'Test'
      Caption = '&Enable NoAction'
      Hint = 'Enable No Action'
      OnExecute = ActionEnableExecute
    end
    object ActionSender: TAction
      Category = 'Test'
      Caption = 'Test &Sender'
      Hint = 'Test Sender'
      OnExecute = ActionSenderExecute
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 64
    Top = 104
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Action = ActionNew
      end
      object Close1: TMenuItem
        Action = ActionExit
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Cut2: TMenuItem
        Action = ActionCut
      end
      object Copy2: TMenuItem
        Action = ActionCopy
      end
      object Paste2: TMenuItem
        Action = ActionPaste
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Bold1: TMenuItem
        Action = ActionBold
        AutoCheck = True
      end
    end
    object Test1: TMenuItem
      Caption = 'Test'
      object NoAction1: TMenuItem
        Action = NoAction
      end
      object CharCount1: TMenuItem
        Action = ActionCount
      end
      object EnableNoAction1: TMenuItem