Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/QDB/VADDBOOK.ZIP/AB_Main.dfm/AB_Main.txt

Text File | 1998-06-28 | 19.3 KB | 589 lines

object AB_Form: TAB_Form
  Left = 239
  Top = 113
  Width = 671
  Height = 489
  ActiveControl = KeyList
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  PixelsPerInch = 120
  OnCreate = FormCreate
  TextHeight = 16
  object SpeedBar: TPanel
    Left = 0
    Top = 0
    Width = 663
    Height = 38
    Align = alTop
    TabOrder = 0
    object FileOpenSButton: TSpeedButton
      Left = 46
      Top = 4
      Width = 29
      Height = 29
      Hint = 'Open|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
        33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
        33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = True
      OnClick = FileOpen
    end
    object FileSaveSButton: TSpeedButton
      Left = 80
      Top = 4
      Width = 29
      Height = 29
      Hint = 'Save|'
      Glyph.Data = {
        56070000424D5607000000000000360400002800000028000000140000000100
        0800000000002003000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        030303FFFFFFFFFFFFFFFFFFFFFFFF030303030303F800000000000000000000
        0000F803030303030303F8F8F8F8F8F8F8F8F8F8F8F803FF030303030300FCFC
        00F8FCFCFF070700FCFC00030303030303F8FF03F8FF0303030303F8FF03F8FF
        030303030300FCFC00F8FCFCFF070700FCFC00030303030303F8FF03F8FF0303
        030303F8FF03F8FF030303030300FCFC0007F8F807070700FCFC000303030303
        03F8FF03F8FFFFFFFFFFFFF80303F8FF030303030300FCFC0600000000000006
        FCFC00030303030303F8FF0303F8F8F8F8F8F8030303F8FF030303030300FCFC
        FCFCFCFCFCFCFCFCFCFC00030303030303F8FF0303FFFFFFFFFFFFFFFF03F8FF
        030303030300FC06000000000000000006FC00030303030303F8FF03F8F8F8F8
        F8F8F8F803FFF8FF030303030300FC00FFFFFFFFFFFFFFFF00FC000303030303
        03F8FFF8FF03030303030303F8FFF8FF030303030300FC00FFFFFFFFFFFFFFFF
        00FC00030303030303F8FFF8FF03030303030303F8FFF8FF030303030300FC00
        FFFFFFFFFFFFFFFF00FC00030303030303F8FFF8FF03030303030303F8FFF8FF
        030303030300FC00FFFFFFFFFFFFFFFF00FC00030303030303F8FFF8FF030303
        03030303F8FFF8FF0303030303000000FFFFFFFFFFFFFFFF0000000303030303
        03F8FFF8FF03030303030303F8FFF8FF030303030300FC00FFFFFFFFFFFFFFFF
        00FC00030303030303F8FFF8FFFFFFFFFFFFFFFFF8FFF8030303030303F80000
        00000000000000000000F803030303030303F8F8F8F8F8F8F8F8F8F8F8F80303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FileSave
    end
    object FileExitSButton: TSpeedButton
      Left = 162
      Top = 4
      Width = 29
      Height = 29
      Hint = 'Exit|'
      Glyph.Data = {
        56070000424D5607000000000000360400002800000028000000140000000100
        0800000000002003000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030707070707
        070707070707070707070707070703FFFFFFFFFFFFFFFFFFFFFFFF0303030303
        03FFF8F8F8F8F8F8F8F8F8F8F8F8FF07FF07FF07F8F8F8F8F8F8F8F8F8F8F8F8
        F8F8030303030303F8F8F8F8F8F8F8F8F8F8F8F8F80707FF07FF07F8F8F8F8F8
        F8F8F8F8F8F8F8F8F8FF030303FFFFF8F8F80404040404040000F8F8F8FFFFFF
        040404040404F8F8F8F8F8F8F8F8F8F8F8030303F8F8F8F8F803030303030304
        FD05000007FFFFFF0403030303030303030303F8FFF8F8F8FF030303F8FF0303
        030303030303030405FD0500FFFFFFFF0403030303030303030303F8F807F8F8
        FF030303F8FF03030303030303030304FD05FD00FFFFFFFF0403030303030303
        030303F8FFF807F8FF030303F8FF0303030303030303030405FD0500FFFEFFFE
        0403030303030303030303F8F807F8F8FF030303F8FF03030303030303030304
        FD05FD00FFFFFFFF0403030303030303030303F8FFF807F8FF030303F8FF0303
        030303030303030405FD0500FFFEFFFE0403030303030303030303F8F807F8F8
        FF030303F8FF03030303030303030304FD05FD00FFFFFFFF0403030303030303
        030303F8FFF807F8FF030303F8FF0303030303030303030405FD0500FFFEFFFE
        0403030303030303030303F8F807F8F8FF030303F8FF03030303030303030304
        FD05FD00FEFFFEFF0403030303030303030303F8FFF807F8FF030303F8FF0303
        030303030303030405FD0500FFFEFFFE0403030303030303030303F8F807F8F8
        FF030303F8FF03030303030303030304FD05FD00FEFFFEFF0403030303030303
        030303F8FFF8FFF8FFFFFFFFF8FF030303030303030303040404040404040404
        0403030303030303030303F8F8F8F8F8F8F8F8F8F80303030303030303030303
        03030303030303030303030303030303030303030303FFFFFFFFFFFF03030303
        0303030303030303030000000000000303030303030303030303030303F8F8F8
        F8F8F8FF0303030303030303030303030300FAFAFAFA00030303030303030303
        0303030303F8FFFFFFFFF8FF0303030303030303030303030300000000000003
        03030303030303030303030303F8F8F8F8F8F803030303030303}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FileExit
    end
    object FileNewSButton: TSpeedButton
      Left = 16
      Top = 4
      Width = 29
      Height = 29
      Hint = 'New|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        330033333333333333003300000000033300330FFFFFFF033300330F00000F03
        3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
        3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = True
      OnClick = FileNew
    end
    object FileCloseSButton: TSpeedButton
      Left = 110
      Top = 4
      Width = 29
      Height = 29
      Hint = 'Close|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330030000000000333000BFBFBFBFB0333000FBFBFBFBF03
        33000BFBFBFBFB0333000FBFBFBFBF0333000BFBFBFBFB0333000FBFBFBFBF03
        3300000000000033330030FBFB03333333003800008333333300333333333333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = True
      OnClick = FileClose
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 48
    Width = 177
    Height = 361
    TabOrder = 1
    object Label7: TLabel
      Left = 9
      Top = 9
      Width = 71
      Height = 16
      Caption = ' Browse List'
    end
    object Label5: TLabel
      Left = 18
      Top = 321
      Width = 29
      Height = 16
      Caption = 'Filter'
    end
    object KeyList: TListBox
      Left = 9
      Top = 27
      Width = 157
      Height = 258
      ExtendedSelect = False
      IntegralHeight = True
      ItemHeight = 16
      Sorted = True
      TabOrder = 0
      OnClick = KeyListClick
    end
    object FilterBox: TEdit
      Left = 55
      Top = 318
      Width = 74
      Height = 24
      TabOrder = 1
      OnChange = FilterBoxChange
    end
  end
  object StatusLine: TPanel
    Left = 0
    Top = 416
    Width = 663
    Height = 27
    Align = alBottom
    Alignment = taLeftJustify
    BorderWidth = 2
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object ButtonPanel: TPanel
    Left = 544
    Top = 48
    Width = 111
    Height = 361
    TabOrder = 3
    object Image: TImage
      Left = 9
      Top = 253
      Width = 93
      Height = 92
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object PostButton: TButton
      Left = 18
      Top = 28
      Width = 75
      Height = 30
      Caption = 'Post'
      TabOrder = 0
      OnClick = PostButtonClick
    end
    object InsertButton: TButton
      Left = 18
      Top = 70
      Width = 75
      Height = 30
      Caption = 'Insert'
      TabOrder = 1
      OnClick = InsertButtonClick
    end
    object DeleteButton: TButton
      Left = 18
      Top = 194
      Width = 75
      Height = 30
      Caption = 'Delete'
      TabOrder = 4
      OnClick = DeleteButtonClick
    end
    object EditButton: TButton
      Left = 18
      Top = 153
      Width = 75
      Height = 30
      Caption = 'Edit'
      TabOrder = 3
      OnClick = EditButtonClick
    end
    object CancelButton: TButton
      Left = 18
      Top = 111
      Width = 75
      Height = 30
      Caption = 'Cancel'
      TabOrder = 2
      OnClick = CancelButtonClick
    end
  end
  object AddressPanel: TPanel
    Left = 192
    Top = 48
    Width = 345
    Height = 361
    TabOrder = 2
    object Label1: TLabel
      Left = 9
      Top = 9
      Width = 106
      Height = 16
      Caption = ' Name && Address'
    end
    object Label2: TLabel
      Left = 189
      Top = 9
      Width = 82
      Height = 16
      Caption = ' Home Phone'
    end
    object Label3: TLabel
      Left = 189
      Top = 53
      Width = 77
      Height = 16
      Caption = ' Work Phone'
    end
    object Label4: TLabel
      Left = 189
      Top = 98
      Width = 76
      Height = 16
      Caption = ' Fax Number'
    end
    object Label6: TLabel
      Left = 189
      Top = 189
      Width = 41
      Height = 16
      Caption = ' E-Mail'
    end
    object Label8: TLabel
      Left = 11
      Top = 189
      Width = 59
      Height = 16
      Caption = 'Web URL'
    end
    object Label9: TLabel
      Left = 189
      Top = 144
      Width = 83
      Height = 16
      Caption = 'Other Number'
    end
    object Label10: TLabel
      Left = 13
      Top = 235
      Width = 36
      Height = 16
      Caption = 'Notes'
    end
    object AddBox: TMemo
      Left = 10
      Top = 27
      Width = 167
      Height = 113
      Color = clSilver
      MaxLength = 255
      TabOrder = 0
    end
    object IsBusiness: TCheckBox
      Left = 45
      Top = 149
      Width = 105
      Height = 18
      Caption = 'Is a Business'
      Color = clSilver
      ParentColor = False
      TabOrder = 1
    end
    object HPhone: TEdit
      Left = 189
      Top = 27
      Width = 145
      Height = 24
      Color = clSilver
      TabOrder = 2
    end
    object WPhone: TEdit
      Left = 189
      Top = 71
      Width = 145
      Height = 24
      Color = clSilver
      TabOrder = 3
    end
    object FPhone: TEdit
      Left = 189
      Top = 116
      Width = 145
      Height = 24
      Color = clSilver
      TabOrder = 4
    end
    object E_Mail: TEdit
      Left = 189
      Top = 207
      Width = 145
      Height = 24
      Color = clSilver
      TabOrder = 7
    end
    object WebURL: TEdit
      Left = 11
      Top = 207
      Width = 166
      Height = 24
      Color = clSilver
      TabOrder = 6
    end
    object OPhone: TEdit
      Left = 189
      Top = 162
      Width = 145
      Height = 24
      Color = clSilver
      TabOrder = 5
    end
    object Notes: TMemo
      Left = 11
      Top = 253
      Width = 326
      Height = 92
      Color = clSilver
      TabOrder = 8
    end
  end
  object Addresses: TQDBView
    AboutAuthor = 'Robert R. Marsh, SJ -- [e-mail]'
    AboutVersion = '2.10'
    AggressiveUpdate = False
    CacheFrequency = 0
    CacheSize = 65536
    Compression = False
    ReadOnly = False
    SaveOnClose = True
    ExpandedFileNames = True
    UseGrepMatch = False
    WarnNoData = AddressesWarnNoData
    OnDemandPassword = AddressesDemandPassword
    OnFileAssigned = AddressesFileAssigned
    AutoEdit = False
    OnKey = AddressPanelKey
    DateTimeFormatStr = 'c'
    ActiveColor = clWindow
    ExcludeTag = -999
    InactiveColor = clSilver
    Panel = AddressPanel
    Left = 432
  end
  object MainMenu: TMainMenu
    Left = 364
    Top = 65535
    object FileMenu: TMenuItem
      Caption = '&File'
      HelpContext = 210
      object FileNewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new address file'
        OnClick = FileNew
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing address file'
        OnClick = FileOpen
      end
      object FileCloseItem: TMenuItem
        Caption = '&Close'
        Hint = 'Close current address file'
        OnClick = FileClose
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save current address file'
        OnClick = FileSave
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit this program'
        OnClick = FileExit
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      OnClick = Options1Click
      object OptCaseItem: TMenuItem
        Caption = 'Case &Sensitive'
        Enabled = False
        Hint = 'Change the case-sensitivity of the address file'
        OnClick = OptCaseItemClick
      end
      object OptCompressedItem: TMenuItem
        Caption = '&Compress New Addresses'
        Hint = 'Store new addresses in compressed form'
        OnClick = OptCompressedItemClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object OptEncryptedItem: TMenuItem
        Caption = 'Change &Password ...'
        Hint = 'Choose or change a password'
        OnClick = OptEncryptedItemClick
      end
    end
    object ToolsMenu: TMenuItem
      Caption = '&Tools'
      object ToolsPackItem: TMenuItem
        Caption = '&Pack'
        Hint = 'Remove unused space from the address file'
        OnClick = ToolsPackItemClick
      end
      object ToolsCompressItem: TMenuItem
        Caption = '&Compress'
        OnClick = ToolsCompressItemClick
      end
      object ToolsExpandItem: TMenuItem
        Caption = '&Expand'
        OnClick = ToolsExpandItemClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'QDB'
    Filter = 'QDB Files|*.qdb|Any Files|*.*'
    Title = 'Address File to Open'
    Left = 326
    Top = 65535
  end
  object SaveDialog: TSaveDialog
    Filter = 'QDB Files|*.qdb|Any Files|*.*'
    Options = [ofOverwritePrompt]
    Title = 'Name of New Address File'
    Left = 396
    Top = 65535
  end
end