mainfrm.dfm

优秀的本地存储数据库

object MainForm: TMainForm
  Left = 250
  Top = 136
  Width = 320
  Height = 250
  Caption = 'Mini CipherBox'
  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
    0000000000000000888999911000000788991110110000077FFF799991000007
    878801110100000F77FF077999000007877788999900000FFFFFFF7788000000
    0000000000000000070000080000000007000008000000000F00000800000000
    0F7000770000000000FFF770000000000000000000000000000000000000F007
    0000E0030000C0010000C0010000C0010000C0010000C0010000C0010000E003
    0000F1C70000F1C70000F1C70000F0070000F80F0000FC1F0000FFFF0000}
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 312
    Height = 26
    ButtonWidth = 58
    Caption = 'ToolBar'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ImageList
    List = True
    ShowCaptions = True
    TabOrder = 0
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = NewAction
      Caption = 'New'
    end
    object ToolButton2: TToolButton
      Left = 58
      Top = 0
      Action = DeleteAction
      Caption = 'Delete'
    end
    object ToolButton3: TToolButton
      Left = 116
      Top = 0
      Action = ModifyAction
      Caption = 'Modify'
    end
    object ToolButton4: TToolButton
      Left = 174
      Top = 0
      Width = 8
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 182
      Top = 0
      Action = ChgPwdAction
      Caption = 'Lock'
    end
  end
  object ListView: TListView
    Left = 0
    Top = 28
    Width = 312
    Height = 157
    Align = alClient
    Columns = <
      item
        Caption = 'Password'
        Width = 120
      end
      item
        Caption = 'Note'
        Width = 1000
      end>
    ReadOnly = True
    RowSelect = True
    SmallImages = ImageList
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = ModifyActionExecute
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 185
    Width = 312
    Height = 19
    Panels = <>
    ParentFont = True
    SimplePanel = False
    UseSystemFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 26
    Width = 312
    Height = 2
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
  end
  object MainMenu: TMainMenu
    Left = 36
    Top = 96
    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Action = NewAction
      end
      object FileDeleteItem: TMenuItem
        Action = DeleteAction
      end
      object FileModifyItem: TMenuItem
        Action = ModifyAction
      end
      object FileN1Item: TMenuItem
        Caption = '-'
      end
      object FileChgPwdItem: TMenuItem
        Action = ChgPwdAction
      end
      object FileN2Item: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32856
        OnClick = FileExitItemClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpAboutItem: TMenuItem
        Caption = 'About...'
        OnClick = HelpAboutItemClick
      end
    end
  end
  object TinyDatabase: TTinyDatabase
    MediumType = mtDisk
    SessionName = 'Default'
    Left = 36
    Top = 125
  end
  object TinyTable: TTinyTable
    MediumType = mtDisk
    IndexDefs = <>
    FieldDefs = <>
    Left = 65
    Top = 125
  end
  object ActionList: TActionList
    Images = ImageList
    Left = 65
    Top = 96
    object NewAction: TAction
      Caption = '&New...'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = NewActionExecute
    end
    object DeleteAction: TAction
      Caption = '&Delete'
      ImageIndex = 1
      OnExecute = DeleteActionExecute
    end
    object ModifyAction: TAction
      Caption = '&Modify'
      ImageIndex = 2
      OnExecute = ModifyActionExecute
    end
    object ChgPwdAction: TAction
      Caption = 'Change &Password'
      ImageIndex = 3
      OnExecute = ChgPwdActionExecute
    end
  end
  object ImageList: TImageList
    Left = 94
    Top = 96
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001001000000000000018
      0000000000000000000000000000000000009F7F801000008003460000002000
      0000800000008000000040000000040000000100000010000000000000000000
      0000D000000000000043030101016B67EC720000073130292000100040000108
      10008E0D400000000000261010006B67EC720000000224002610000001001000
      00000000D00000000043030101016B67EC721000100000008F0D100000000000
      00000100BF00B232A73AAC303200BF00E00D0000A01F0000EE580000D6585653