ufrmcontact.~dfm

Delphi课堂使用用例

object frmContact: TfrmContact
  Left = 226
  Top = 211
  Width = 696
  Height = 480
  Caption = #32852#31995#20154#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000000000000000EE60000000000000000000
    000000006E6E66600000000000000000000000E6E6EE66666000000000000000
    000DD06E6E6E66666055000000000000000DD0E6E6EE66666055000000000000
    6E0DD06E6E6E666660550660000000E6E60DD0E6E6EE66666055066660000E6E
    6E0DD06E6E6E666660550666660006E6E60DD0E6E6EE66666055066666000E6E
    6E0DD06E6E6E666660550666660006E6E60DD0E6E6EE66666055066666000E6E
    6E0DD06E6E6E666660550666660006E6E60DD0E6E6EE66666055066666000E6E
    6E0DD06E6E6E666660550666660006E6E60DD0E6E6EE66666055066666000E6E
    6E0DD06E6E00066660550666660006E6E60DD0E600E8E8E66055066666000E6E
    6E0DD0008E8E8E8E80550666660006E6E60DD0E8E8E8E8E8E055066666000E6E
    6E00DD008E8E8E800DD08666660006E600E800DD00E8E00DD008E8E666000E00
    8E800000DD000DD00E8E8E8E860000E8E805555500000008E00008E8E0000000
    8E0DDDDD550DD5000555508000000000000DDDDDD500DD0DDDD5500000000000
    000DDD55000805005DDD500000000000000DD500D0E0000D005D500000000000
    0000D0DD0E8E8E80DD0D5000000000000000DD0000E8E0000DDD000000000000
    000000000000000000DD0000000000000000000000000000000000000000FFFC
    7FFFFFF01FFFFFC003FFFE0000FFFC00007FF000001FC0000007000000010000
    0001000000010000000100000001000000010000000100000001000000010003
    8001000C00010030000100000001020000010C0000013000000100000001C000
    0007F000001FFC00003FFC00003FFE00003FFE00007FFF3C787FFFFFFCFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 24
    AutoSize = True
    Caption = 'ToolBar1'
    Flat = True
    Images = ilAction
    TabOrder = 0
    Transparent = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = acAdd
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Action = acEdit
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Action = acDelete
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 77
      Top = 0
      Action = acIcon
    end
    object ToolButton6: TToolButton
      Left = 100
      Top = 0
      Action = acSmall
    end
    object ToolButton7: TToolButton
      Left = 123
      Top = 0
      Action = acList
    end
    object ToolButton8: TToolButton
      Left = 146
      Top = 0
      Action = acReport
    end
    object ToolButton9: TToolButton
      Left = 169
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton10: TToolButton
      Left = 177
      Top = 0
      Action = acAbout
    end
    object ToolButton11: TToolButton
      Left = 200
      Top = 0
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton12: TToolButton
      Left = 208
      Top = 0
      Action = acExit
    end
  end
  object sbCount: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object lvContact: TListView
    Left = 0
    Top = 24
    Width = 688
    Height = 383
    Align = alClient
    Columns = <
      item
        Caption = #22995#21517
        ImageIndex = 3
        Width = 100
      end
      item
        Caption = #22320#21306
        ImageIndex = 4
        Width = 100
      end
      item
        Caption = #30005#35805
        ImageIndex = 5
        Width = 100
      end
      item
        Caption = #25163#26426
        ImageIndex = 6
        Width = 100
      end
      item
        Caption = #24615#21035
        ImageIndex = 7
        Width = 75
      end>
    LargeImages = ilLarge
    PopupMenu = PopupMenu1
    SmallImages = ilSmall
    TabOrder = 2
    ViewStyle = vsReport
    OnSelectItem = lvContactSelectItem
  end
  object ActionList1: TActionList
    Images = ilAction
    Left = 8
    Top = 96
    object acExit: TAction
      Caption = #36864#20986'(&X)'
      ImageIndex = 0
      OnExecute = acExitExecute
    end
    object acAdd: TAction
      Caption = #28155#21152'(&A)'
      ImageIndex = 1
      OnExecute = acAddExecute
    end
    object acEdit: TAction
      Caption = #32534#36753'(&E)'
      Enabled = False
      ImageIndex = 2
      OnExecute = acEditExecute
    end
    object acDelete: TAction
      Caption = #21024#38500'(&D)'
      Enabled = False
      ImageIndex = 3
      OnExecute = acDeleteExecute
    end
    object acIcon: TAction
      AutoCheck = True
      Caption = #22823#22270#26631'(&I)'
      GroupIndex = 1
      ImageIndex = 5
      OnExecute = acViewStyleExecute
    end
    object acSmall: TAction
      AutoCheck = True
      Caption = #23567#22270#26631'(&S)'
      GroupIndex = 1
      ImageIndex = 6
      OnExecute = acViewStyleExecute
    end
    object acList: TAction
      AutoCheck = True
      Caption = #21015#34920'(&L)'