mainfrm.dfm

优秀的本地存储数据库

object MainForm: TMainForm
  Left = 192
  Top = 133
  Width = 540
  Height = 375
  Caption = 'Mini AddrBook'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000000000000000000087777700077777008F0
    00070700000008F877740F7770E008F8F44F0FFF706008F8FFFF04FF70B008F8
    FFF40F44703008F8F44F04FF70F008F8FFF40F44707008F8F44F0FFF70900888
    FFF808FF7010000888800088800000000000000000000000000000000000FFFF
    0000FFFF00008000000080000000800000008000000080000000800000008000
    000080000000800000008000000080800000E1C30000FFFF0000FFFF0000}
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 135
    Top = 60
    Width = 3
    Height = 250
    Cursor = crHSplit
    ResizeStyle = rsUpdate
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 532
    Height = 58
    AutoSize = True
    Bands = <
      item
        Control = ToolBar
        ImageIndex = -1
        MinHeight = 26
        Width = 528
      end
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 26
        Width = 528
      end>
    object ToolBar: TToolBar
      Left = 9
      Top = 0
      Width = 515
      Height = 26
      BorderWidth = 1
      ButtonWidth = 91
      Caption = 'ToolBar'
      EdgeBorders = []
      Flat = True
      Images = ImageList
      List = True
      ShowCaptions = True
      TabOrder = 0
      Wrapable = False
      object NewMemberToolButton: TToolButton
        Left = 0
        Top = 0
        Action = NewCardAction
        Caption = 'New Card'
      end
      object ToolButton1: TToolButton
        Left = 91
        Top = 0
        Action = NewFolderAction
        Caption = 'New Folder'
      end
      object PropertyToolButton: TToolButton
        Left = 182
        Top = 0
        Action = PropertyAction
        Caption = 'Card Property'
      end
      object DeleteCardToolButton: TToolButton
        Left = 273
        Top = 0
        Action = DeleteCardAction
        Caption = 'Delete Card'
      end
      object EncryptToolButton: TToolButton
        Left = 364
        Top = 0
        Action = EncryptAction
        Caption = '  Lock'
      end
    end
    object Panel1: TPanel
      Left = 9
      Top = 28
      Width = 515
      Height = 26
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 39
        Height = 26
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 0
          Top = 7
          Width = 31
          Height = 13
          Caption = '&Name:'
          FocusControl = NameSearchEdit
        end
      end
      object NameSearchPanel: TPanel
        Left = 39
        Top = 0
        Width = 476
        Height = 26
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = NameSearchPanelResize
        object NameSearchEdit: TEdit
          Left = 0
          Top = 3
          Width = 461
          Height = 21
          TabOrder = 0
          OnKeyDown = NameSearchEditKeyDown
        end
      end
    end
  end
  object ListView: TListView
    Left = 138
    Top = 60
    Width = 394
    Height = 250
    Align = alClient
    Columns = <
      item
        Caption = 'Name'
        Width = 110
      end
      item
        Caption = 'Email'
        Width = 180
      end
      item
        Caption = 'Mobile Telephone'
        Width = 100
      end>
    HideSelection = False
    LargeImages = ImageList
    ReadOnly = True
    RowSelect = True
    PopupMenu = ListViewPopupMenu
    SmallImages = ImageList
    TabOrder = 1
    ViewStyle = vsReport
    OnChange = ListViewChange
    OnDblClick = PropertyActionExecute
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 310
    Width = 532
    Height = 19
    Panels = <>
    ParentFont = True
    ParentShowHint = False
    ShowHint = False
    SimplePanel = True
    UseSystemFont = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 58
    Width = 532
    Height = 2
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
  end
  object TreeView: TTreeView
    Left = 0
    Top = 60
    Width = 135
    Height = 250
    Align = alLeft
    HideSelection = False
    Images = ImageList
    Indent = 19
    PopupMenu = TreeViewPopupMenu
    RightClickSelect = True
    TabOrder = 4
    OnChange = TreeViewChange
    OnEdited = TreeViewEdited
    OnEditing = TreeViewEditing
    OnMouseDown = TreeViewMouseDown
  end
  object MainMenu: TMainMenu
    Images = ImageList
    Left = 152
    Top = 120
    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewMemberItem: TMenuItem
        Action = NewCardAction
      end
      object FileNewFolderItem: TMenuItem
        Action = NewFolderAction
      end
      object FileN1Item: TMenuItem
        Caption = '-'
      end
      object FilePropertyItem: TMenuItem
        Action = PropertyAction
      end
      object FileDeleteCardItem: TMenuItem
        Action = DeleteCardAction
      end
      object FileN2Item: TMenuItem
        Caption = '-'
      end
      object FileEncryptItem: TMenuItem
        Action = EncryptAction
      end
      object FileN3Item: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = '&Exit'
        ShortCut = 32856
        OnClick = FileExitItemClick
      end
    end
    object ViewMenu: TMenuItem
      Caption = '&View'
      object ViewToolBarItem: TMenuItem
        Caption = '&Tool Bar'
        Checked = True
        OnClick = ViewToolBarItemClick
      end
      object ViewStatusBarItem: TMenuItem
        Caption = '&Status Bar'
        Checked = True
        OnClick = ViewStatusBarItemClick
      end
      object ViewN1Item: TMenuItem
        Caption = '-'
      end
      object ViewLargeIconItem: TMenuItem
        Caption = '&Large Icon'
        GroupIndex = 1
        RadioItem = True
        OnClick = ViewLargeIconItemClick
      end
      object ViewSmallIconItem: TMenuItem
        Tag = 1
        Caption = '&Small Icon'
        GroupIndex = 1
        RadioItem = True
        OnClick = ViewLargeIconItemClick
      end
      object ViewListItem: TMenuItem
        Tag = 2
        Caption = '&List'
        GroupIndex = 1
        RadioItem = True
        OnClick = ViewLargeIconItemClick
      end
      object ViewReportItem: TMenuItem
        Tag = 3
        Caption = '&Details'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        OnClick = ViewLargeIconItemClick
      end
      object ViewN2Item: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object ViewRefreshItem: TMenuItem
        Caption = 'R&efresh'
        GroupIndex = 1
        ShortCut = 116
        OnClick = ViewRefreshItemClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpAboutItem: TMenuItem
        Caption = 'About...'
        OnClick = HelpAboutItemClick
      end
    end