object fmCDDB: TfmCDDB Left = 147 Top = 96 BorderIcons = [] BorderStyle = bsDialog Caption = 'Connect to CDDB' ClientHeight = 415 ClientWidth = 513 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 26 Top = 64 Width = 308 Height = 16 Caption = '2. Select the server closest to you then click Connect' end object Label2: TLabel Left = 26 Top = 136 Width = 37 Height = 16 Caption = 'Status' end object Label3: TLabel Left = 26 Top = 172 Width = 98 Height = 16 Caption = 'Matche(s) found:' end object lbDiscID: TLabel Left = 180 Top = 172 Width = 313 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Computed Disc ID:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lbHelp: TLabel Left = 120 Top = 381 Width = 3 Height = 16 end object Label4: TLabel Left = 24 Top = 12 Width = 289 Height = 32 Caption = '1. Enter your user (login) name, e.g., jsmith. (This informatio' + 'n is required by the CDDB server)' WordWrap = True end object Servers: TComboBox Left = 26 Top = 92 Width = 471 Height = 24 ItemHeight = 16 Items.Strings = ( 'cddb.moonsoft.com cddbp 888 - N037.23 W122.01 #USA - Fremont, CA' 'cddb.ton.tut.fi cddbp 888 - N060.10 E024.58 #Finland - Tampere' 'cddb.westel.hu cddbp 888 - N047.30 E019.50 #Hungary - Budapest' 'cddb.manawatu.net.nz cddbp 888 - N041.17 E174.47 #New Zealand - ' + 'Palmerstown North' 'cddb.sai.msu.su cddbp 888 - N055.45 E037.35 #Russia - Moscow' '' '') TabOrder = 1 Text = 'cddb.moonsoft.com cddbp 888 - N037.23 W122.01 #USA - Fremont, CA' end object bConnect: TButton Left = 414 Top = 56 Width = 83 Height = 29 Caption = '&Connect' TabOrder = 2 OnClick = bConnectClick end object Results: TExtListView Left = 26 Top = 196 Width = 467 Height = 165 OnDblClick = bSelectClick Columns = < item Caption = 'Category' Width = 100 end item Caption = 'Disc ID' Width = 100 end item Caption = 'Title' Width = 300 end> TabOrder = 4 ViewStyle = vsReport ExtendedStyles = [lvxGridLines, lvxFullRowSelect] end object StatusBar: TPanel Left = 76 Top = 128 Width = 421 Height = 33 BevelInner = bvLowered BorderStyle = bsSingle Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object bSelect: TButton Left = 26 Top = 376 Width = 83 Height = 29 Caption = 'Retrieve' Enabled = False TabOrder = 5 OnClick = bSelectClick end object bCancel: TButton Left = 410 Top = 376 Width = 83 Height = 29 Caption = 'Close' ModalResult = 2 TabOrder = 6 OnClick = bCancelClick end object edLogin: TEdit Left = 328 Top = 16 Width = 169 Height = 24 TabOrder = 0 end end