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

Text File | 1998-06-28 | 16.1 KB | 450 lines

object AB_form: TAB_form
  Left = 258
  Top = 152
  HelpContext = 10
  BorderIcons = [biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 438
  ClientWidth = 522
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu
  PixelsPerInch = 120
  Position = poScreenCenter
  ShowHint = True
  Visible = True
  OnCreate = FormCreate
  TextHeight = 16
  object StatusLine: TPanel
    Left = 0
    Top = 411
    Width = 522
    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 SpeedBar: TPanel
    Left = 0
    Top = 0
    Width = 522
    Height = 38
    Align = alTop
    TabOrder = 0
    object FileOpenSButton: TSpeedButton
      Left = 43
      Top = 3
      Width = 29
      Height = 29
      Hint = 'Open|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
        33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
        33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
        33003333333333333300}
      OnClick = FileOpen
    end
    object FileSaveSButton: TSpeedButton
      Left = 80
      Top = 3
      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
      OnClick = FileSave
    end
    object FileExitSButton: TSpeedButton
      Left = 162
      Top = 3
      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
      OnClick = FileExit
    end
    object FileNewSButton: TSpeedButton
      Left = 16
      Top = 3
      Width = 29
      Height = 29
      Hint = 'New|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        330033333333333333003300000000033300330FFFFFFF033300330F00000F03
        3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
        3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
        33003333333333333300}
      OnClick = FileNew
    end
    object FileCloseSButton: TSpeedButton
      Left = 107
      Top = 3
      Width = 29
      Height = 29
      Hint = 'Close|'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330030000000000333000BFBFBFBFB0333000FBFBFBFBF03
        33000BFBFBFBFB0333000FBFBFBFBF0333000BFBFBFBFB0333000FBFBFBFBF03
        3300000000000033330030FBFB03333333003800008333333300333333333333
        33003333333333333300}
      OnClick = FileClose
    end
  end
  object ListPanel: TPanel
    Left = 9
    Top = 46
    Width = 175
    Height = 357
    TabOrder = 1
    object Label7: TLabel
      Left = 9
      Top = 9
      Width = 76
      Height = 16
      Caption = ' Browse List'
    end
    object KeyList: TListBox
      Left = 9
      Top = 27
      Width = 157
      Height = 318
      ExtendedSelect = False
      ItemHeight = 16
      TabOrder = 0
      OnClick = KeyListClick
    end
  end
  object EntryPanel: TPanel
    Left = 192
    Top = 46
    Width = 202
    Height = 357
    TabOrder = 2
    object Label1: TLabel
      Left = 9
      Top = 9
      Width = 109
      Height = 16
      Caption = ' Name && Address'
    end
    object Label2: TLabel
      Left = 9
      Top = 165
      Width = 85
      Height = 16
      Caption = ' Home Phone'
    end
    object Label3: TLabel
      Left = 9
      Top = 210
      Width = 82
      Height = 16
      Caption = ' Work Phone'
    end
    object Label4: TLabel
      Left = 9
      Top = 256
      Width = 80
      Height = 16
      Caption = ' Fax Number'
    end
    object Label6: TLabel
      Left = 9
      Top = 302
      Width = 43
      Height = 16
      Caption = ' E-Mail'
    end
    object AddBox: TMemo
      Left = 10
      Top = 27
      Width = 183
      Height = 102
      MaxLength = 255
      TabOrder = 0
    end
    object HPhone: TEdit
      Left = 9
      Top = 183
      Width = 184
      Height = 24
      TabOrder = 2
    end
    object WPhone: TEdit
      Left = 9
      Top = 229
      Width = 184
      Height = 24
      TabOrder = 3
    end
    object FPhone: TEdit
      Left = 9
      Top = 274
      Width = 184
      Height = 24
      TabOrder = 4
    end
    object IsPerson: TCheckBox
      Left = 64
      Top = 137
      Width = 74
      Height = 20
      Caption = 'Person'
      TabOrder = 1
    end
    object E_Mail: TEdit
      Left = 9
      Top = 320
      Width = 184
      Height = 24
      TabOrder = 5
    end
  end
  object ButtonPanel: TPanel
    Left = 402
    Top = 46
    Width = 111
    Height = 357
    TabOrder = 3
    object Image: TImage
      Left = 9
      Top = 247
      Width = 93
      Height = 92
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object AddButton: TButton
      Left = 18
      Top = 27
      Width = 75
      Height = 38
      Caption = 'Add'
      TabOrder = 0
      OnClick = AddButtonClick
    end
    object ClearButton: TButton
      Left = 18
      Top = 82
      Width = 75
      Height = 38
      Caption = 'Clear'
      TabOrder = 1
      OnClick = ClearButtonClick
    end
    object DeleteButton: TButton
      Left = 18
      Top = 137
      Width = 75
      Height = 38
      Caption = 'Delete'
      TabOrder = 2
      OnClick = DeleteButtonClick
    end
  end
  object MainMenu: TMainMenu
    Left = 284
    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
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'QDB'
    Filter = 'QDB Files|*.qdb|Any Files|*.*'
    Title = 'Address File to Open'
    Left = 206
    Top = 65535
  end
  object SaveDialog: TSaveDialog
    Filter = 'QDB Files|*.qdb|Any Files|*.*'
    Options = [ofOverwritePrompt]
    Title = 'Name of New Address File'
    Left = 316
    Top = 65535
  end
  object Addresses: TQDB
    AboutAuthor = 'Robert R. Marsh, SJ -- [e-mail]'
    AboutVersion = '2.10'
    AggressiveUpdate = False
    CacheFrequency = 0
    CacheSize = 16384
    Compression = False
    ProgressUpdate = AddressesProgressUpdate
    ReadOnly = False
    SaveOnClose = True
    ExpandedFileNames = True
    UseGrepMatch = False
    Left = 248
    Top = 65535
  end
end