main.dfm

是一个手机功能的模拟程序

      Align = alTop
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clMedGray
      TabOrder = 0
      DesignSize = (
        146
        296)
      object SpeedButton_phonebook: TSpeedButton
        Left = 45
        Top = 8
        Width = 60
        Height = 50
        Cursor = crHandPoint
        Anchors = [akTop]
        GroupIndex = 1
        Down = True
        Caption = #30005#35805#31807
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333C3333333333333337F3333333333333C0C3333
          333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
          3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
          333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
          0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
          0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
          3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
          3333333333777333333333333333333333333333333333333333}
        Layout = blGlyphTop
        NumGlyphs = 2
        OnClick = SpeedButton_phonebookClick
      end
      object SpeedButton_shortmessage: TSpeedButton
        Left = 45
        Top = 84
        Width = 60
        Height = 50
        Cursor = crHandPoint
        Anchors = [akTop]
        GroupIndex = 1
        Caption = #30701#28040#24687
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
          77F07F773FF3333F77370FFF77FFFF77FFF07F33773FFF7733370FFFFF0000FF
          FFF07F333F77773FF3F70FFF70EEEE07F9F07F3F7733337737F70F707FFFFFF7
          97F07F7733333FFF7737007EEEE3000EE70977FFFFFF777FFF37077777307080
          77907777777737377773307EE307088809033773FF7F7FF37733337030070088
          07333337777F77377FFF33337008080809993333377F7F737777333330080088
          03333333377F77337FF333333308088809333333337373F3773F333333308080
          33933333333737F7337333333333000333393333333377733337}
        Layout = blGlyphTop
        NumGlyphs = 2
        OnClick = SpeedButton_shortmessageClick
      end
      object SpeedButton_callrecord: TSpeedButton
        Left = 45
        Top = 160
        Width = 60
        Height = 50
        Cursor = crHandPoint
        Anchors = [akTop]
        GroupIndex = 1
        Caption = #36890#35805#35760#24405
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
          555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
          05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
          FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
          FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
          FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
          05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
          555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
          9055575757575757775505050505055505557575757575557555}
        Layout = blGlyphTop
        NumGlyphs = 2
        OnClick = SpeedButton_callrecordClick
      end
    end
    object Panel_leftbottom: TPanel
      Left = 0
      Top = 308
      Width = 150
      Height = 97
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Notebook_subitem: TNotebook
        Left = 0
        Top = 0
        Width = 150
        Height = 97
        Align = alClient
        Color = clMedGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'phonebook'
          object ListView_phonebook_sub: TListView
            Left = 0
            Top = 0
            Width = 150
            Height = 97
            Align = alClient
            Color = clMedGray
            Columns = <>
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            IconOptions.AutoArrange = True
            Items.Data = {
              5C000000030000000000000000000000FFFFFFFF000000000000000002504301
              00000001000000FFFFFFFF00000000000000000ACAD6BBFAB4E6B4A2C6F70200
              000002000000FFFFFFFF000000000000000009CAD6BBFA53494DBFA8}
            LargeImages = ImageList_subitem
            ReadOnly = True
            ParentFont = False
            StateImages = ImageList_subitem
            TabOrder = 0
            ViewStyle = vsSmallIcon
            OnClick = ListView_phonebook_subClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'shortmessage'
          object ListView_ShortMessage_sub: TListView
            Left = 0
            Top = 0
            Width = 150
            Height = 97
            Align = alClient
            Color = clMedGray
            Columns = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            IconOptions.AutoArrange = True
            Items.Data = {
              5C000000030000000000000000000000FFFFFFFF000000000000000002504300
              00000001000000FFFFFFFF00000000000000000ACAD6BBFAB4E6B4A2C6F70000
              000002000000FFFFFFFF000000000000000009CAD6BBFA53494DBFA8}
            ReadOnly = True
            ParentFont = False
            StateImages = ImageList_subitem
            TabOrder = 0
            ViewStyle = vsSmallIcon
            OnClick = ListView_ShortMessage_subClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'callrecord'
          object ListView_callrecord_sub: TListView
            Left = 0
            Top = 0
            Width = 150
            Height = 97
            Align = alClient
            Color = clMedGray
            Columns = <>
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            IconOptions.AutoArrange = True
            Items.Data = {
              5F000000030000000100000001000000FFFFFFFF000000000000000008CEB4BD
              D3B5E7BBB00100000001000000FFFFFFFF000000000000000008D2D1BDD3B5E7
              BBB00100000001000000FFFFFFFF000000000000000008D2D1B2A6B5E7BBB0}
            LargeImages = ImageList_subitem
            ReadOnly = True
            ParentFont = False
            StateImages = ImageList_subitem
            TabOrder = 0
            ViewStyle = vsSmallIcon
            OnClick = ListView_callrecord_subClick
          end
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 501
    Width = 792
    Height = 25
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Panels = <
      item
        Width = 400
      end
      item
        Text = #26410#36830#25509
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 50
      end>
    UseSystemFont = False
  end
  object Panel_main: TPanel
    Left = 158
    Top = 96
    Width = 634
    Height = 405
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Notebook_maintable: TNotebook
      Left = 0
      Top = 0
      Width = 634
      Height = 405
      Align = alClient
      PageIndex = 2
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'phonebook'
        object ListView_phonebook_main: TListView
          Left = 0
          Top = 30
          Width = 634
          Height = 375
          Align = alClient
          Color = clInfoBk
          Columns = <
            item
              Caption = #23384#25918#20301#32622
              Width = 75
            end
            item
              Alignment = taCenter
              Caption = #24207#21495
            end
            item
              Caption = #22995#21517
              Width = 80
            end
            item
              Alignment = taRightJustify
              AutoSize = True
              Caption = #30005#35805#21495#30721
            end
            item
              Alignment = taRightJustify
              AutoSize = True
              Caption = #20303#23429#30005#35805
            end
            item
              Alignment = taRightJustify
              AutoSize = True
              Caption = #21150#20844#30005#35805
            end
            item
              Caption = #22791#27880
            end
            item
              Caption = #20998#32452
              Width = 38
            end
            item
              Caption = 'id'
              Width = 0