frmmain.dfm

一个简单的同学录软件

      Left = 0
      Top = 0
      Width = 185
      Height = 317
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel4'
      TabOrder = 0
      object tvstud: TTreeView
        Left = 0
        Top = 0
        Width = 185
        Height = 317
        Cursor = crHandPoint
        Hint = '请选取所需要的功能'
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        HotTrack = True
        Images = ImageList1
        Indent = 25
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        RightClickSelect = True
        ShowHint = True
        TabOrder = 0
        OnClick = tvstudClick
        Items.Data = {
          040000001F0000000400000000000000FFFFFFFFFFFFFFFF0000000004000000
          06CDACD1A7C2BC210000000000000000000000FFFFFFFFFFFFFFFF0000000000
          00000008BBF9B1BEC7E9BFF6210000000000000000000000FFFFFFFFFFFFFFFF
          000000000000000008B8F6C8CBC7E9BFF6210000000000000000000000FFFFFF
          FFFFFFFFFF000000000000000008BCD2CDA5C7E9BFF621000000000000000000
          0000FFFFFFFFFFFFFFFF000000000000000008B5A5CEBBC7E9BFF6210000000C
          00000000000000FFFFFFFFFFFFFFFF000000000300000008B9A6C4DCD1A1CFEE
          210000000000000000000000FFFFFFFFFFFFFFFF000000000000000008B8C4B1
          E4C3DCC2EB210000000000000000000000FFFFFFFFFFFFFFFF00000000000000
          0008534D5450C9E8D6C3270000000000000000000000FFFFFFFFFFFFFFFF0000
          0000000000000EB0C1D0D0CDF8B5C7C2BDC9E8D6C3210000000A000000000000
          00FFFFFFFFFFFFFFFF000000000100000008CBB5C3F7CEC4BCFE210000000000
          000000000000FFFFFFFFFFFFFFFF000000000000000008CAB9D3C3CBB5C3F721
          0000000800000000000000FFFFFFFFFFFFFFFF000000000200000008CDF8C2E7
          B9A6C4DC270000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          0EB0C1D0D0CDACD1A7C2BCC1F4D1D4210000000000000000000000FFFFFFFFFF
          FFFFFF000000000000000008C8EDBCFEB8FCD0C2}
      end
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 42
    Width = 394
    Height = 317
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    inline FmJbxx1: TFmJbxx
      Width = 394
      Height = 317
      inherited ListView1: TListView
        Width = 394
        Height = 317
        PopupMenu = PopupMenu1
      end
    end
    inline FmGrxx1: TFmGrxx
      Width = 394
      Height = 317
      TabOrder = 1
      Visible = False
      inherited ListView1: TListView
        Width = 394
        Height = 317
        PopupMenu = PopupMenu1
        SmallImages = FmGrxx1.ImageList1
      end
    end
    inline FmJtxx1: TFmJtxx
      Width = 394
      Height = 317
      TabOrder = 2
      Visible = False
      inherited ListView1: TListView
        Width = 394
        Height = 317
        PopupMenu = PopupMenu1
      end
    end
    inline FmDwxx1: TFmDwxx
      Width = 394
      Height = 317
      Align = alClient
      TabOrder = 3
      Visible = False
      inherited ListView1: TListView
        Width = 394
        Height = 317
        PopupMenu = PopupMenu1
      end
    end
    inline fmHttp1: TfmHttp
      Width = 394
      Height = 317
      TabOrder = 4
      inherited Panel1: TPanel
        Width = 394
        Height = 317
        inherited Panel2: TPanel
          Width = 392
        end
        inherited WebBrowser: TWebBrowser
          Width = 392
          Height = 291
          ControlData = {
            4C00000084280000131E00000000000000000000000000000000000000000000
            000000004C000000000000000000000001000000E0D057007335CF11AE690800
            2B2E126200000000000000004C0000000114020000000000C000000000000046
            0000000000000000000000000000000000000000000000000000000000000000
            00000000000000000100000000000000000000000000000000000000}
        end
      end
    end
  end
  object STB: TStatusBar
    Left = 0
    Top = 359
    Width = 582
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object barTB: TToolBar
    Left = 0
    Top = 0
    Width = 582
    Height = 42
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'barTB'
    Flat = True
    Images = icolib
    TabOrder = 3
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = '打开同学录文件'
      Caption = '打开同学录文件'
      ImageIndex = 30
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton5: TToolButton
      Left = 39
      Top = 0
      Hint = '保存对同学录数据文件的修改'
      Caption = '保存对数据的修改'
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton5Click
    end
    object ToolButton7: TToolButton
      Left = 78
      Top = 0
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 34
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 86
      Top = 0
      Hint = '新建同学卡片'
      Caption = '新卡片'
      ImageIndex = 31
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 125
      Top = 0
      Hint = '查看卡片细节'
      Caption = '属性'
      ImageIndex = 20
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 164
      Top = 0
      Hint = '写email给他'
      Caption = '电邮'
      ImageIndex = 13
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
    object ToolButton9: TToolButton
      Left = 203
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 211
      Top = 0
      Hint = '关于软件'
      Caption = '关于'
      ImageIndex = 23