Freelog 11/Freelog011.iso/BestOf/PhoenixMail/Source/phoenix/FMAddress.dfm/FMAddress.txt

Text File | 1998-12-08 | 15KB | 484 lines

object AddressForm: TAddressForm
  Tag = 168
  Left = 67
  Top = 63
  Width = 515
  Height = 345
  HelpContext = 9
  ActiveControl = ListView1
  Caption = 'Phoenix Mail - Address Book'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 507
    Height = 31
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Bevel5: TBevel
      Left = 196
      Top = 4
      Width = 13
      Height = 25
      Shape = bsLeftLine
    end
    object Bevel4: TBevel
      Left = 165
      Top = 4
      Width = 13
      Height = 25
      Shape = bsLeftLine
    end
    object Bevel3: TBevel
      Left = 134
      Top = 4
      Width = 13
      Height = 25
      Shape = bsLeftLine
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 507
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
    object SpeedButton1: TSpeedButton
      Tag = -141
      Left = 4
      Top = 4
      Width = 25
      Height = 25
      Hint = 'New address'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000C40E0000C40E00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDFFFFFFFFFFFFFD000901DD0000000000000DDDD7777777777777FD01
        0901DD7888888888880DDDD7FDDDDDDDDDD7FD026202DD7F8F8F8F8F880DDDD7
        FDDDDDDDDDD7FD000200DD7FF8F8F8F8F80DDDD7FDDDDDDDDDD7FD000F01DD7F
        8F8F8F8F880DDDD7FDDDDDDDDDD7FD00C600DD7FF8F8F8F8F80DDDD7FDDDDDDD
        DDD7FD014D01DD7F8F8F8F8F880DDDD7FDDFFFFDDDD7FD015001DD7FF44448F8
        F80DDDD7FD7777DDDDD7FD006202DD7F8F8F8F8F880DDDD7FDDFFFFDDDD7FD00
        0800DD7FF44448F8F80DDDF7FD7777DDDDD7FD0262027D7F878F8F8F880DD7D7
        FD7FFFFDDFF7FD026202D77F744448F0000DDD77D77777DD7777DD000200DDBB
        8F8F8F88F7DDDDFDDDDFDDDDDD7DDD09B0817DBBF7FFFFF87DDDD7DFFF7FFFFF
        F7DDDD00AF81D77777777777DDDDDD77777777777DDDDDD7FFFF7DDDD7DDDDDD
        DDDDD7DDDD7DDDDDDDDDDDD77777}
      NumGlyphs = 2
      OnClick = New1Click
    end
    object SpeedButton5: TSpeedButton
      Tag = -142
      Left = 28
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Delete address'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000CE0E0000CE0E00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDFFFFFFFFFFFFFD022102DD0000000000000DDDD7777777777777FD00
        2003DD9888888888880DDDD7FDDDDDFDDDD7FD00FFFFD99F8F8F9F8F880DDD77
        FFDDD7DDDDD7FD010200D999F8F9F8F8F80DDD777FDD7FDDDDD7FD001801DD99
        8F998F8F880DDDD77DF77DDDDDD7FD026502DD7F9998F8F8F80DDDD7F777DDDD
        DDD7FD026202DD79998F8F8F880DDDD7777FFFFDDDD7FD000400DD79999448F8
        F80DDDD7777777FDDDD7FD00A700DD998F999F8F880DDDF77DD777FDDDD7FD02
        6202997FF44998F8F80DD777FD7777DDDDD7FD013C01997F8F8F8F8F880DD777
        FDDFFFFDDFF7FD014901DD7FF44448F0000DDDD7FD7777DD7777DD000600DD7F
        8F8F8F88F7DDDDD7FDDDDDDDDD7DDD000400DD7FFFFFFFF87DDDDDD7FFFFFFFF
        F7DDDD015301DD7777777777DDDDDDD7777777777DDDDD016202DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD010B02}
      NumGlyphs = 2
      OnClick = Delete1Click
    end
    object SpeedButton3: TSpeedButton
      Tag = -143
      Left = 52
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Edit address'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000900DDDDDDDDDDDDDDDDDDFFFFFFFFFFFFDDDD01
        0402000000000000DDDDD777777777777FDDDD0104020FFFFFFFFFF0DDDDD7FD
        FFDFFFFF7FDDDD0006000F00F00000F0DDDDD7F77D77777D7FDDDD0004000FFF
        FFFFFFF0DDDDD7FDFFDFFFFF7FDDDD012D010F00F00000F0DDDDD7F77D77777D
        7FDDDD014D010FFFFFFFFFF0DDDDD7FDDDDDDDFD7FDDDD0104020FFFFFFF0FF0
        DDDDD7FDFFDDD7DF7FDDDD0002000F00FFF080F0DDDDD7F77DFD7D7D7FFDFF7F
        B0810F080F0808000D44D7F7D7D7D7D777D77F016D010FF0808080888044D7FF
        7F7D7D7DDD777F0062020000080808888844D77777D7D7DDDDD77F000200DDDD
        D08088888844DDDDDD7D7DDDDDD77FBDAF81DDDDDD0888888044DDDDDDD7DFFF
        FF777F00C400DDDDDDD000000D44DDDDDDDD777777D77D000200DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD7AB081}
      NumGlyphs = 2
      OnClick = Edit1Click
    end
    object SpeedButton6: TSpeedButton
      Tag = -144
      Left = 83
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Search address'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDDDFFFFFDDDDDFFFFF00
        0000D00000DDDDD00000DD77777FDDDD77777F000000D0F000DDDDD0F000DD7F
        777FDDDD7F777F000000D0F000DDDDD0F000DD7F777FFFDF7F777F000000D000
        0000D0000000DD7777777F7777777F000000D00F000000F00000DD77F777777F
        77777F000000D00F000D00F00000DD77F777F77F77777F000000D00F000D00F0
        0000DD77F777F77F77777D000000DD0000000000000DDDD7777777777777DD00
        0000DDD0F000D0F000DDDDDD7F777F7F777FDD000000DDD00000D00000DDDDDD
        77777D77777DDD000000DDDD000DDD000DDDDDDDD777FDD777FDDD000000DDDD
        0F0DDD0F0DDDDDDDD7F7FDD7F7FDDD000000DDDD000DDD000DDDDDDDD777DDD7
        77DDDD000000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000000}
      NumGlyphs = 2
      OnClick = Search1Click
    end
    object SpeedButton2: TSpeedButton
      Tag = -146
      Left = 138
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Close Address Book'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000CE0E0000CE0E00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000901DDDDDDDDDDDDDDDDDDDDFDDDDDDDDDDFDD01
        0901DD0DDDDDDDDDD0DDDDD7FFDDDDDDDD7DDD026202D000DDDDDDDDDDDDDD77
        7FFDDDDDDDFDDD000200D0000DDDDDDD0DDDDD7777FDDDDDD7DDDD000F01DD00
        0DDDDDD0DDDDDDD777FFDDDD7FDDDD00C600DDD000DDDD00DDDDDDDD777FFDD7
        7DDDDD014D01DDDD000DD00DDDDDDDDDD777FF77DDDDDD015001DDDDD00000DD
        DDDDDDDDDD77777DDDDDDD006202DDDDDD000DDDDDDDDDDDDDD777FFDDDDDD00
        0800DDDDD00000DDDDDDDDDDDD77777FFDDDDD026202DDDD000DD00DDDDDDDDD
        F777DD77FFDDDD026202DD0000DDDD00DDDDDDD7777DDDD77FFDDD000200D000
        0DDDDDD00DDDDD7777DDDDDD77DFDD3AB081D000DDDDDDDDD0DDDD777DDDDDDD
        DD7DDD000400DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD000200DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD002003}
      NumGlyphs = 2
      OnClick = Close1Click
    end
    object SpeedButton4: TSpeedButton
      Tag = -147
      Left = 169
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Write to selected addresses'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00
        0000DDDDDDDDDDDDDDDDDDDDFFFFFFFFFFFFFF000000DD70000000000000DDD7
        7777777777777F000000DD77777777777770DDD77777777777777F000000DD7B
        8B8B8B8B8B70DDD7FFDDDFFFDDD77F000000DD70B8B333B8B070DDD77DFD777F
        FD777F000000DD7B0B30003B0B70DDD7F7D77777F7D77F000000DD78B008B803
        B870DDD7FD77DDD77FF77F000000DD7B808B8B803B70DDD7FD7DDDDD77F77F00
        0000DD7808B8B8B80370DDD7F7DDDDDDD7777F000000DD708B8B8B8B8070DDD7
        7DDDDDDDDD777F000000DD78B8B8B8B8BB00DDD7FFFFFFFFFFF77F000000DD77
        777777777770DDD77777777777777D000000DDDDDDDDDDDDDDDDDDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDD000000}
      NumGlyphs = 2
      OnClick = MailtoAddresses1Click
    end
    object SpeedButton10: TSpeedButton
      Tag = -145
      Left = 107
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Move addresses to another book'
      Flat = True
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000C40E0000C40E00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDFFFFFFFFFFFFF000901DDD0000000000000DDDD7777777777777F01
        0901DDD7888888888880DDFF7FFFDDDDDDDD7F026202777777F8F8F8F880D777
        777DDDDDDDDD7F000200DDD7FF8F8F8F8F80DDFF7FFFDDDDDDDD7F000F017777
        77F8F8F8F880D777777DDDDDDDDD7F00C600DDD7FF8F8F8F8F80DDFF7FFFDDDD
        DDDD7F014D01777777F8F8F8F880D777777DFFFFDDDD7F015001DDD7FF44448F
        8F80DDFF7FF7777DDDDD7F006202777777F8F8F8F880D777777DFFFFDDDD7F00
        0800DDD7FF44448F8F80DDFF7FF7777DDDDD7F026202777777F8F8F8F880D777
        777DFFFFDDFF7F026202DDD7FF44448F0000DDFF7FF7777DD7777D0002007777
        77F8F8F88F7DD777777DDDDDDDD7DD09B081DDD7FFFFFFFF87DDDDDD7FFFFFFF
        FF7DDD00AF81DDD7777777777DDDDDDD7777777777DDDDD7FFFFDDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDDD77777}
      NumGlyphs = 2
      OnClick = Movetoanotherbook1Click
    end
    object Image1: TImage
      Left = 380
      Top = 8
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {<image001.bmp>}
      Visible = False
    end
    object Bevel2: TBevel
      Left = 79
      Top = 4
      Width = 13
      Height = 25
      Shape = bsLeftLine
    end
    object ComboBox1: TComboBoxEx
      Left = 202
      Top = 6
      Width = 165
      Height = 22
      Images = ImageList1
      ShowImages = True
      DropDownCount = 10
      ItemHeight = 16
      TabOrder = 0
      OnChange = ComboBox1Change
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 280
    Width = 507
    Height = 19
    Panels = <
      item
        Text = '0 Adresses, 0 Selected'
        Width = 50
      end>
    SimplePanel = False
  end
  object ListView1: TExtListView
    Tag = 148
    Left = 0
    Top = 31
    Width = 507
    Height = 249
    Columns = <
      item
        Width = 20
      end
      item
        Caption = 'Name'
        Width = 120
      end
      item
        Caption = 'Description'
        Width = 120
      end
      item
        Caption = 'E-Mail Address'
        Width = 170
      end
      item
        Caption = 'Phone'
        Width = 48
      end
      item
        Caption = 'Real Address'
        Width = 120
      end>
    HideSelection = False
    ExtendedStyles = [lvxFullRowSelect]
    ColumnsFormat = <>
    SmallImages = ImageList1
    ShowSortArrows = True
    AutoColumnSort = acsSortToggle
    AutoSortStyle = assDefault
    OnDrawHeader = ListView1DrawHeader
    Align = alClient
    OnDblClick = MailtoAddresses1Click
    ReadOnly = True
    MultiSelect = True
    OnMouseUp = ListView1MouseUp
    PopupMenu = PopupMenu1
    TabOrder = 2
    ViewStyle = vsReport
    OnKeyDown = ListView1KeyDown
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 96
    object File1: TMenuItem
      Tag = 154
      Caption = '&File'
      object Close1: TMenuItem
        Tag = 155
        Caption = '&Close'
        ShortCut = 27
        OnClick = Close1Click
      end
    end
    object Address1: TMenuItem
      Tag = 156
      Caption = '&Address'
      object New1: TMenuItem
        Tag = 157
        Caption = '&New...'
        ShortCut = 16462
        OnClick = New1Click
      end
      object Delete1: TMenuItem
        Tag = 158
        Caption = '&Delete'
        ShortCut = 16430
        OnClick = Delete1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MailtoAddresses1: TMenuItem
        Tag = 159
        Caption = '&Write to Addresses'
        ShortCut = 16461
        OnClick = MailtoAddresses1Click
      end
      object SelectAllAddresses1: TMenuItem
        Tag = 160
        Caption = '&Select All Addresses'
        ShortCut = 16449
        OnClick = SelectAllAddresses1Click
      end
      object Movetoanotherbook1: TMenuItem
        Tag = 161
        Caption = '&Move to another book...'
        ShortCut = 16463
        OnClick = Movetoanotherbook1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Search1: TMenuItem
        Tag = 162
        Caption = '&Search...'
        ShortCut = 16454
        OnClick = Search1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Edit1: TMenuItem
        Tag = 163
        Caption = '&Edit...'
        ShortCut = 16453
        OnClick = Edit1Click
      end
    end
    object Book1: TMenuItem
      Tag = 164
      Caption = '&Book'
      object New2: TMenuItem
        Tag = 165
        Caption = '&New...'
        OnClick = New2Click
      end
      object Delete2: TMenuItem
        Tag = 166
        Caption = '&Delete'
        OnClick = Delete2Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Rename1: TMenuItem
        Tag = 167
        Caption = '&Rename...'
        OnClick = Rename1Click
      end
    end
    object Help1: TMenuItem
      Tag = 55
      Caption = '&Help'
      object Contents1: TMenuItem
        Tag = 56
        Caption = '&Contents...'
        OnClick = Contents1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 60
    Top = 96
    object NewAddress1: TMenuItem
      Tag = 149
      Caption = '&New Address...'
      OnClick = New1Click
    end
    object DeleteAddress1: TMenuItem
      Tag = 150
      Caption = '&Delete Address'
      OnClick = Delete1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object MailtoAddresses2: TMenuItem
      Tag = 151
      Caption = '&Write to Addresses'
      Default = True
      OnClick = MailtoAddresses1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object SelectAll1: TMenuItem
      Tag = 152
      Caption = '&Select All'
      OnClick = SelectAllAddresses1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object EditAddress1: TMenuItem
      Tag = 153
      Caption = '&Edit Address...'
      OnClick = Edit1Click
    end
  end
  object ImageList1: TImageList
    Left = 60
    Top = 148
  end
end