home *** CD-ROM | disk | FTP | other *** search
Text File | 2007-01-31 | 38.9 KB | 1,356 lines |
- object DlgGlblDir: TDlgGlblDir
- Left = 184
- Top = 113
- Width = 490
- Height = 406
- Caption = 'Add Contact'
- Color = clBtnFace
- Constraints.MinHeight = 406
- Constraints.MinWidth = 490
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnClose = FormClose
- OnShow = FormShow
- DesignSize = (
- 482
- 372)
- PixelsPerInch = 96
- TextHeight = 13
- object Shape1: TShape
- Left = 11
- Top = 316
- Width = 14
- Height = 14
- Anchors = [akLeft, akBottom]
- Brush.Color = clLime
- Pen.Color = clGray
- Shape = stCircle
- Visible = False
- end
- object Shape2: TShape
- Left = 11
- Top = 316
- Width = 14
- Height = 14
- Anchors = [akLeft, akBottom]
- Brush.Color = clRed
- Pen.Color = clGray
- Shape = stCircle
- Visible = False
- end
- object BInvite: TSpeedButton
- Left = 280
- Top = 343
- Width = 98
- Height = 20
- 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 = 15
- Top = 334
- Width = 455
- Height = 2
- Anchors = [akLeft, akRight, akBottom]
- end
- object Shape7: TShape
- Left = 358
- Top = 27
- Width = 102
- Height = 13
- Brush.Color = clLime
- Pen.Style = psClear
- end
- object Shape6: TShape
- Left = 246
- Top = 27
- Width = 102
- Height = 13
- Brush.Color = clLime
- Pen.Style = psClear
- end
- object Shape5: TShape
- Left = 135
- Top = 27
- Width = 102
- Height = 13
- Brush.Color = clLime
- Pen.Style = psClear
- end
- object Shape4: TShape
- Left = 23
- Top = 27
- Width = 103
- Height = 13
- Brush.Color = clLime
- Pen.Style = psClear
- end
- object Shape8: TShape
- Left = 15
- Top = 41
- Width = 455
- Height = 2
- Anchors = [akLeft, akTop, akRight]
- end
- object Shape9: TShape
- Left = 15
- Top = 149
- Width = 215
- Height = 1
- end
- object BAdd: TSpeedButton
- Left = 70
- Top = 313
- Width = 69
- Height = 18
- Anchors = [akBottom]
- Caption = 'Add'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = BAddContact
- end
- object BClose: TSpeedButton
- Left = 370
- Top = 313
- Width = 69
- Height = 18
- Anchors = [akBottom]
- Caption = 'Close'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = Close1Click
- end
- object BCall: TSpeedButton
- Left = 184
- Top = 313
- Width = 137
- Height = 18
- Anchors = [akBottom]
- Caption = 'Call/Dial'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = BCallClick
- end
- object BReset: TSpeedButton
- Left = 369
- Top = 44
- Width = 98
- Height = 15
- Anchors = [akTop, akRight]
- Caption = 'reset'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = BResetClick
- end
- object BSearch: TSpeedButton
- Left = 326
- Top = 5
- Width = 69
- Height = 18
- Anchors = [akTop, akRight]
- Caption = 'Search'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = BSearch1Click
- end
- object BMore: TSpeedButton
- Left = 399
- Top = 5
- Width = 70
- Height = 18
- Anchors = [akTop, akRight]
- Caption = 'more...'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = BMoreClick
- end
- object SFor: TLabel
- Left = 5
- Top = 7
- Width = 75
- Height = 14
- AutoSize = False
- Caption = 'Look for?'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object NNAMET: TLabel
- Left = 5
- Top = 62
- Width = 83
- Height = 14
- AutoSize = False
- Caption = 'NickName'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LNAMET: TLabel
- Left = 5
- Top = 83
- Width = 83
- Height = 14
- AutoSize = False
- Caption = 'Last Name'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EEMAILT: TLabel
- Left = 5
- Top = 103
- Width = 83
- Height = 14
- AutoSize = False
- Caption = 'External Email'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ESMST: TLabel
- Left = 5
- Top = 124
- Width = 83
- Height = 14
- AutoSize = False
- Caption = 'External SMS'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object COUNTRYT: TLabel
- Left = 236
- Top = 62
- Width = 92
- Height = 14
- AutoSize = False
- Caption = 'Country'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LANGT: TLabel
- Left = 236
- Top = 83
- Width = 92
- Height = 14
- AutoSize = False
- Caption = 'Language'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ABOUTT: TLabel
- Left = 236
- Top = 103
- Width = 92
- Height = 14
- AutoSize = False
- Caption = 'About Me'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object AGET: TLabel
- Left = 236
- Top = 127
- Width = 92
- Height = 14
- AutoSize = False
- Caption = 'Age'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object STATUST: TLabel
- Left = 236
- Top = 151
- Width = 92
- Height = 14
- AutoSize = False
- Caption = 'Status'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object NRR: TLabel
- Left = 40
- Top = 344
- Width = 209
- Height = 16
- Anchors = [akLeft, akBottom]
- AutoSize = False
- Caption = 'No Rows Returned'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ColHead: TLabel
- Left = 7
- Top = 154
- Width = 226
- Height = 17
- AutoSize = False
- Caption = 'S rakID ( NickName ) Name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object ComboBoxStatus: TComboBox
- Left = 329
- Top = 149
- Width = 142
- 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 = 10
- end
- object ESearch: TEdit
- Left = 82
- Top = 4
- Width = 159
- 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 NName: TEdit
- Left = 90
- Top = 59
- Width = 142
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 32
- ParentFont = False
- TabOrder = 1
- OnKeyPress = CharKeyPress
- end
- object LName: TEdit
- Left = 90
- Top = 80
- Width = 142
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 32
- ParentFont = False
- TabOrder = 2
- OnKeyPress = CharKeyPress
- end
- object EEMail: TEdit
- Left = 90
- Top = 100
- Width = 142
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- TabOrder = 3
- OnKeyPress = EmailKeyPress
- end
- object ESMS: TEdit
- Left = 90
- Top = 121
- Width = 142
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- TabOrder = 4
- OnKeyPress = EmailKeyPress
- end
- object Country: TComboBox
- Left = 329
- Top = 59
- Width = 142
- Height = 22
- Style = csDropDownList
- DropDownCount = 20
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 14
- ItemIndex = 0
- ParentFont = False
- TabOrder = 5
- 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 Language: TComboBox
- Left = 329
- Top = 80
- Width = 142
- 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
- ParentFont = False
- TabOrder = 6
- 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' +
- ') '
-
- 'Portuguese (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 About: TEdit
- Left = 329
- Top = 100
- Width = 142
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- TabOrder = 7
- OnKeyPress = CharKeyPress
- end
- object Age: TComboBox
- Left = 329
- Top = 124
- Width = 60
- 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 = 8
- Text = 'Age'
- Items.Strings = (
- 'Age'
- '< 15'
- '16 - 25'
- '26 - 35'
- '36 - 45'
- '46 - 55'
- '56 - 65'
- '> 65')
- end
- object Gender: TRadioGroup
- Left = 395
- Top = 120
- Width = 76
- Height = 28
- Caption = 'Gender'
- Columns = 2
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Items.Strings = (
- 'M'
- 'F')
- ParentFont = False
- TabOrder = 9
- end
- object ListBox1: TListBox
- Left = 5
- Top = 171
- Width = 465
- Height = 134
- 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 = 18
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 11
- OnDrawItem = ListBox1DrawItem
- OnMouseDown = ListBox1MouseDown
- 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
-