object DlgGlblDir: TDlgGlblDir Left = 184 Top = 68 Width = 494 Height = 406 Caption = 'Wavigo Add Contact' Color = clBtnFace Constraints.MinHeight = 406 Constraints.MinWidth = 494 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False OnClose = FormClose OnShow = FormShow DesignSize = ( 486 372) PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 12 Top = 314 Width = 15 Height = 15 Anchors = [akLeft, akBottom] Brush.Color = clLime Pen.Color = clGray Shape = stCircle Visible = False end object Shape2: TShape Left = 12 Top = 314 Width = 15 Height = 15 Anchors = [akLeft, akBottom] Brush.Color = clRed Pen.Color = clGray Shape = stCircle Visible = False end object BInvite: TSpeedButton Left = 296 Top = 343 Width = 75 Height = 22 Cursor = crHandPoint Anchors = [akBottom] Caption = 'Invite by Email' Flat = True Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = BInviteClick end object Shape3: TShape Left = 16 Top = 334 Width = 460 Height = 2 Anchors = [akLeft, akRight, akBottom] end object Shape7: TShape Left = 368 Top = 29 Width = 110 Height = 14 Brush.Color = clLime Pen.Style = psClear end object Shape6: TShape Left = 248 Top = 29 Width = 110 Height = 14 Brush.Color = clLime Pen.Style = psClear end object Shape5: TShape Left = 128 Top = 29 Width = 110 Height = 14 Brush.Color = clLime Pen.Style = psClear end object Shape4: TShape Left = 8 Top = 29 Width = 110 Height = 14 Brush.Color = clLime Pen.Style = psClear end object Shape8: TShape Left = 16 Top = 44 Width = 460 Height = 2 Anchors = [akLeft, akTop, akRight] end object Shape9: TShape Left = 16 Top = 160 Width = 220 Height = 2 Anchors = [akLeft, akTop, akRight] end object STATUST: TStaticText Left = 245 Top = 163 Width = 35 Height = 18 Caption = 'Status' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 28 end object ComboBoxStatus: TComboBox Left = 328 Top = 160 Width = 153 Height = 22 Style = csDropDownList DropDownCount = 11 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 14 ParentFont = False TabOrder = 12 end object BAdd: TButton Left = 76 Top = 311 Width = 75 Height = 20 Anchors = [akBottom] Caption = 'Add' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 15 OnClick = BAddContact end object BClose: TButton Left = 367 Top = 311 Width = 75 Height = 20 Anchors = [akBottom] Caption = 'Close' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 17 OnClick = Close1Click end object BSearch: TButton Left = 329 Top = 5 Width = 75 Height = 20 Anchors = [akTop, akRight] Caption = 'Search' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BSearch1Click end object ESearch: TEdit Left = 88 Top = 4 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 45 ParentFont = False TabOrder = 0 OnKeyPress = KeyPressEdit end object StaticText1: TStaticText Left = 8 Top = 166 Width = 181 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'S WavID ( NickName ) Name' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 18 end object StaticText2: TStaticText Left = 5 Top = 8 Width = 50 Height = 18 Caption = 'Look for?' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 19 end object BCall: TButton Left = 208 Top = 311 Width = 97 Height = 20 Anchors = [akBottom] Caption = 'Call/Dial' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 16 OnClick = BCallClick end object BMore: TButton Left = 408 Top = 5 Width = 75 Height = 20 Anchors = [akTop, akRight] Caption = 'more...' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BMoreClick end object NNAMET: TStaticText Left = 5 Top = 67 Width = 51 Height = 18 Caption = 'NickName' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 20 end object NName: TEdit Left = 88 Top = 64 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 32 ParentFont = False TabOrder = 3 OnKeyPress = CharKeyPress end object LNAMET: TStaticText Left = 5 Top = 89 Width = 55 Height = 18 Caption = 'Last Name' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 21 end object LName: TEdit Left = 88 Top = 86 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 32 ParentFont = False TabOrder = 4 OnKeyPress = CharKeyPress end object EEMail: TEdit Left = 88 Top = 108 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 5 OnKeyPress = EmailKeyPress end object EEMAILT: TStaticText Left = 5 Top = 111 Width = 70 Height = 18 Caption = 'External Email' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 22 end object ESMST: TStaticText Left = 5 Top = 133 Width = 68 Height = 18 Caption = 'External SMS' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 23 end object ESMS: TEdit Left = 88 Top = 130 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 6 OnKeyPress = EmailKeyPress end object COUNTRYT: TStaticText Left = 245 Top = 67 Width = 42 Height = 18 Caption = 'Country' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 24 end object Country: TComboBox Left = 328 Top = 64 Width = 153 Height = 22 Style = csDropDownList DropDownCount = 20 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 14 ItemIndex = 0 ParentFont = False TabOrder = 7 Text = 'All' Items.Strings = ( 'All' 'Afghanistan (001' + ') ' 'Albania (002' + ') ' 'Algeria (003' + ') ' 'Andorra (004' + ') ' 'Angola (005' + ') ' 'Antigua (006' + ') ' 'Argentina (007' + ') ' 'Armenia (008' + ') ' 'Australia (009' + ') ' 'Austria (010' + ') ' 'Azerbaijan (011' + ') ' 'Bahamas (012' + ') ' 'Bahrain (013' + ') ' 'Bangladesh (014' + ') ' 'Barbados (015' + ') ' 'Belarus (016' + ') ' 'Belgium (017' + ') ' 'Belize (018' + ') ' 'Benin (019' + ') ' 'Bermuda (198' + ') ' 'Bhutan (020' + ') ' 'Bolivia (021' + ') ' 'Bosnia (022' + ') ' 'Botswana (023' + ') ' 'Brazil (024' + ') ' 'British Virgin Islands (199' + ') ' 'Brunei (025' + ') ' 'Bulgaria (026' + ') ' 'Burkina (027' + ') ' 'Burma (028' + ') ' 'Burundi (029' + ') ' 'Cambodia (030' + ') ' 'Cameroon (031' + ') ' 'Canada (032' + ') ' 'Cape Verde (033' + ') ' 'Cayman Islands (200' + ') ' 'Central African Republic (034' + ') ' 'Chad (035' + ') ' 'Chile (036' + ') ' 'China (037' + ') ' 'Colombia (038' + ') ' 'Comoros (039' + ') ' 'Congo (040' + ') ' 'Costa Rica (197' + ') ' 'Croatia (158' + ') ' 'Cuba (159' + ') ' 'Cyprus (160' + ') ' 'Czech Republic (161' + ') ' 'Darussalam (162' + ') ' 'Denmark (164' + ') ' 'Djibouti (165' + ') ' 'Dominica (166' + ') ' 'Dominican Republic (167' + ') ' 'Ecuador (168' + ') ' 'Egypt (169' + ') ' 'El Salvador (170' + ') ' 'Equatorial Guinea (171' + ') ' 'Eritrea (172' + ') ' 'Estonia (173' + ') ' 'Ethiopia (174' + ') ' 'Faso (175' + ') ' 'Fiji (176' + ') ' 'Finland (177' + ') ' 'France (178' + ') ' 'Gabon (179' + ') ' 'Gambia (180' + ') ' 'Germany (181' + ') ' 'Ghana (182' + ') ' 'Greece (183' + ') ' 'Grenada (184' + ') ' 'Guatemala (185' + ') ' 'Guinea (186' + ') ' 'Guyana (187' + ') ' 'Haiti (188' + ') ' 'Honduras (189' + ') ' 'Hungary (190' + ') ' 'Iceland (191' + ') ' 'India (192' + ') ' 'Indonesia (193' + ') ' 'Iran (194' + ') ' 'Iraq (195' + ') ' 'Ireland (196' + ') ' 'Israel (042' + ') ' 'Italy (043' + ') ' 'Ivory Coast (041' + ') ' 'Jamaica (044' + ') ' 'Japan (045' + ') ' 'Jordan (046' + ') ' 'Kazakhstan (047' + ') ' 'Kenya (048' + ') ' 'Kiribati (049' + ') ' 'Korea North (050' + ') ' 'Korea South (051' + ') ' 'Kuwait (052' + ') ' 'Kyrgyzstan (053' + ') ' 'Laos (054' + ') ' 'Latvia (055' + ') ' 'Lebanon (056' + ') ' 'Leone (057' + ') ' 'Lesotho (058' + ') ' 'Liberia (059' + ') ' 'Libya (060' + ') ' 'Liechtenstein (061' + ') ' 'Lithuania (062' + ') ' 'Luxembourg (063' + ') ' 'Macedonia (064' + ') ' 'Madagascar (065' + ') ' 'Malawi (066' + ') ' 'Malaysia (067' + ') ' 'Maldives (068' + ') ' 'Mali (069' + ') ' 'Malta (070' + ') ' 'Marshall Islands (071' + ') ' 'Mauritania (072' + ') ' 'Mauritius (073' + ') ' 'Mexico (074' + ') ' 'Micronesia (075' + ') ' 'Moldova (076' + ') ' 'Monaco (077' + ') ' 'Mongolia (078' + ') ' 'Morocco (079' + ') ' 'Mozambique (080' + ') ' 'Myanmar (081' + ') ' 'Namibia (082' + ') ' 'Nauru (083' + ') ' 'Nepal (084' + ') ' 'New Zealand (086' + ') ' 'Nicaragua (087' + ') ' 'Niger (088' + ') ' 'Nigeria (089' + ') ' 'Norway (090' + ') ' 'Oman (091' + ') ' 'Pakistan (092' + ') ' 'Palau (093' + ') ' 'Panama (094' + ') ' 'Papau New Guinea (203' + ') ' 'Paraguay (096' + ') ' 'Peru (097' + ') ' 'Poland (098' + ') ' 'Portugal (099' + ') ' 'Qatar (100' + ') ' 'Republic Of Yemen (101' + ') ' 'Romania (102' + ') ' 'Russia (103' + ') ' 'Rwanda (104' + ') ' 'Saint Pierre and Miquelon (201' + ') ' 'San Marino (105' + ') ' 'Satilde;o Tomeacute; (106' + ') ' 'Saudi Arabia (107' + ') ' 'Senegal (108' + ') ' 'Serbia and Montenegro (202' + ') ' 'Seychelles (109' + ') ' 'Sierra (110' + ') ' 'Singapore (111' + ') ' 'Slovakia (112' + ') ' 'Slovenia (113' + ') ' 'Solomon Islands (114' + ') ' 'Somalia (115' + ') ' 'South Africa (116' + ') ' 'Spain (117' + ') ' 'Sri Lanka (118' + ') ' 'St. Kitts and Nevis (119' + ') ' 'St. Lucia (120' + ') ' 'St. Vincent (121' + ') ' 'Sudan (122' + ') ' 'Suriname (123' + ') ' 'Swaziland (124' + ') ' 'Sweden (125' + ') ' 'Switzerland (126' + ') ' 'Syria (127' + ') ' 'Taiwan (128' + ') ' 'Tajikistan (129' + ') ' 'Tanzania (130' + ') ' 'Thailand (131' + ') ' 'The Grenadines (132' + ') ' 'The Netherlands (133' + ') ' 'The Philippines (134' + ') ' 'Togo (135' + ') ' 'Tonga (136' + ') ' 'Trinidad (137' + ') ' 'Tunisia (138' + ') ' 'Turkey (139' + ') ' 'Turkmenistan (140' + ') ' 'Tuvalu (141' + ') ' 'Uganda (142' + ') ' 'Ukraine (143' + ') ' 'United Arab Emirates (144' + ') ' 'United Kingdom (145' + ') ' 'United States of America (146' + ') ' 'Uruguay (147' + ') ' 'Uzbekistan (148' + ') ' 'Vanuatu (149' + ') ' 'Venezuela (150' + ') ' 'Vietnam (151' + ') ' 'Western Sahara (152' + ') ' 'Western Samoa (153' + ') ' 'Yugoslavia (154' + ') ' 'Zaire (155' + ') ' 'Zambia (156' + ') ' 'Zimbabwe (157' + ') ') end object LANGT: TStaticText Left = 245 Top = 89 Width = 52 Height = 18 Caption = 'Language' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 25 end object Language: TComboBox Left = 328 Top = 86 Width = 153 Height = 22 Style = csDropDownList DropDownCount = 18 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 14 ItemIndex = 0 ParentFont = False TabOrder = 8 Text = 'All' Items.Strings = ( 'All' 'Bulgarian (022' + ') ' 'Chinese Mandarin (008' + ') ' 'Chinese Zhuang (009' + ') ' 'Croation (023' + ') ' 'Czech (010' + ') ' 'Danish (011' + ') ' 'Dutch (012' + ') ' 'Eastonian (024' + ') ' 'English (001' + ') ' 'Filipino (025' + ') ' 'Finnish (026' + ') ' 'French (002' + ') ' 'German (003' + ') ' 'Greek (027' + ') ' 'Gujarati (013' + ') ' 'Hindi (014' + ') ' 'Indonesian (028' + ') ' 'Italian (015' + ') ' 'Japanese (004' + ') ' 'Korean (005' + ') ' 'Marathi (029' + ') ' 'Norwegian (016' + ') ' 'Panjabi (031' + ') ' 'Polish (006' + ') ' 'Portugese (017' + ') ' 'Punjabi (030' + ') ' 'Romanian (032' + ') ' 'Russian (018' + ') ' 'Slovak (033' + ') ' 'Spanish (007' + ') ' 'Swedish (019' + ') ' 'Tamil (034' + ') ' 'Thai (035' + ') ' 'Turkish (036' + ') ' 'Ukranian (020' + ') ' 'Urdu (037' + ') ' 'Vietnamese (021' + ')') end object ABOUTT: TStaticText Left = 245 Top = 111 Width = 50 Height = 18 Caption = 'About Me' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 26 end object AGET: TStaticText Left = 245 Top = 137 Width = 32 Height = 18 Caption = 'AGET' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 27 end object About: TEdit Left = 328 Top = 108 Width = 153 Height = 22 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 60 ParentFont = False TabOrder = 9 OnKeyPress = CharKeyPress end object Age: TComboBox Left = 328 Top = 134 Width = 65 Height = 22 Style = csDropDownList Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 14 ItemIndex = 0 ParentFont = False TabOrder = 10 Text = 'Age' Items.Strings = ( 'Age' '< 15' '16 - 25' '26 - 35' '36 - 45' '46 - 55' '56 - 65' '> 65') end object Gender: TRadioGroup Left = 400 Top = 129 Width = 81 Height = 30 Caption = 'Gender' Columns = 2 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'M' 'F') ParentFont = False TabOrder = 11 end object ListBox1: TListBox Left = 5 Top = 184 Width = 477 Height = 122 Style = lbOwnerDrawFixed Anchors = [akLeft, akTop, akRight, akBottom] BevelKind = bkSoft Color = clWhite Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False PopupMenu = PopupMenu1 TabOrder = 14 OnDrawItem = ListBox1DrawItem OnMouseDown = ListBox1MouseDown end object BReset: TButton Left = 403 Top = 47 Width = 75 Height = 16 Anchors = [akTop, akRight] Caption = 'reset' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 13 Visible = False OnClick = BResetClick end object NRR: TStaticText Left = 109 Top = 345 Width = 138 Height = 22 Anchors = [akLeft, akBottom] Caption = 'No Rows Returned' Font.Charset = EASTEUROPE_CHARSET Font.Color = clRed Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 29 Visible = False end object ClientSocket1: TClientSocket Active = False ClientType = ctNonBlocking Port = 80 OnConnect = ClientSocket1Connect OnRead = ClientSocket1OnRead OnError = SocketError Left = 48 Top = 208 end object Timer1: TTimer Enabled = False Interval = 250 OnTimer = OnTimer1 Left = 104 Top = 208 end object PopupMenu1: TPopupMenu Images = Dlg.ImageList1 Left = 152 Top = 208 object Add1: TMenuItem Caption = 'Add' ImageIndex = 80 OnClick = BAddContact end object N2: TMenuItem Caption = '-' end object Call1: TMenuItem Caption = 'Call' ImageIndex = 4 OnClick = BCallClick end object IM1: TMenuItem Caption = 'WavigoIM' ImageIndex = 74 OnClick = BIM end object SW1: TMenuItem Caption = 'Send a Wave' ImageIndex = 52 OnClick = SendWave1Click end object N3: TMenuItem Caption = '-' end object VP1: TMenuItem Caption = 'View Profile' ImageIndex = 22 OnClick = VP1Click end object N1: TMenuItem Caption = '-' end object Close1: TMenuItem Caption = 'Close' ImageIndex = 60 OnClick = Close1Click end end end