PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/CLARION/CLARION.EXE/0/RCDATA/TFMCDDB/TFMCDDB.txt

Text File | 1997-10-06 | 4KB | 166 lines

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