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

Text File | 1997-10-06 | 12KB | 444 lines

object fmCDDBSubmit: TfmCDDBSubmit
  Left = 103
  Top = 12
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Submit data to CDDB'
  ClientHeight = 481
  ClientWidth = 549
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Pager: TPageControl
    Left = 8
    Top = 8
    Width = 533
    Height = 429
    ActivePage = tbInfo
    TabOrder = 0
    object tbInfo: TTabSheet
      Caption = 'About CDDB Submission'
      object Label9: TLabel
        Left = 24
        Top = 12
        Width = 264
        Height = 16
        Caption = 'Heh this stuff is important, so read it :-)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 12
        Top = 364
        Width = 286
        Height = 16
        Caption = 'To learn more about CDDB, double click this link'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Memo1: TMemo
        Left = 12
        Top = 44
        Width = 501
        Height = 301
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'Thank you for submitting CD information to the internet CD '
          'database (CDDB).  The CDDB is a community effort and '
          'depends on the voluntary cooperation of users like you.'
          ''
          'Before submitting data to the CDDB, please take note of the '
          'following:'
          ''
          '1) Submit ONLY if your CD was NOT found in the CDDB, or the '
          'information was erroneous or incomplete and therefore need to '

            'be revised.  That is, you should perform a lookup first.  If you' +
            ' find'
          'no match, enter the data yourself then submit it.'
          ''
          '2) Please completely fill out the disc artist, title, and track '
          'titles.  Do not leave blank track titles (unless they are '
          'supposed to be blank).'
          ''
          '3) Please verify that all information are correct.  Check your '
          'spellings, etc.  Keep in mind that the data you submit will be '
          'used by everyone, but there is no way for this program '
          'or the CDDB server to verify that the data you submit are '
          'actually correct.'
          ''
          '4) You need to supply your e-mail address so that if your '
          'submission is rejected, the server can contact you and let '

            'you know what the problem was.  Your e-mail will be used for thi' +
            's '
          'purpose ONLY.'
          ''
          '5) Since the submission is via e-mail, you also need to supply '
          'the name of your SMTP server (for sending mail).  This is '
          'usually something like smtp.mycompany.com'
          ''
          'To find out more about the CDDB, double click the link below.'
          ''
          'Thank you.  Proceed to the next page.')
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object edURL: TEdit
        Left = 320
        Top = 360
        Width = 193
        Height = 24
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        Text = 'http://www.cddb.com/'
        OnDblClick = edURLDblClick
      end
    end
    object tbVerify: TTabSheet
      Caption = 'Verify information'
      object Label1: TLabel
        Left = 12
        Top = 40
        Width = 29
        Height = 16
        Caption = 'Artist'
      end
      object Label2: TLabel
        Left = 252
        Top = 40
        Width = 26
        Height = 16
        Caption = 'Title'
      end
      object Label4: TLabel
        Left = 48
        Top = 8
        Width = 380
        Height = 16
        Caption = 'Please fill in all entries and make sure they are correct.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label14: TLabel
        Left = 60
        Top = 64
        Width = 122
        Height = 16
        Caption = 'Example: Pink Floyd'
      end
      object Label15: TLabel
        Left = 296
        Top = 64
        Width = 191
        Height = 16
        Caption = 'Example: Dark Side of the Moon'
      end
      object edArtist: TEdit
        Left = 52
        Top = 36
        Width = 185
        Height = 24
        TabOrder = 0
      end
      object edTitle: TEdit
        Left = 288
        Top = 36
        Width = 225
        Height = 24
        TabOrder = 1
      end
      object CDList: TExtListView
        Left = 12
        Top = 96
        Width = 381
        Height = 289
        Hint = 'Select a track and press F2 or Return to edit its title'
        Columns = <
          item
            Caption = '#'
            Width = 25
          end
          item
            Caption = 'Track Title'
            Width = 12
            WidthType = (
              -1)
          end>
        ReadOnly = True
        TabOrder = 2
        ViewStyle = vsReport
        OnKeyDown = CDListKeyDown
        ExtendedStyles = [lvxGridLines, lvxFullRowSelect]
      end
      object Category: TRadioGroup
        Left = 400
        Top = 88
        Width = 113
        Height = 297
        Hint = 'Choose a category the best describes this CD'
        Caption = 'Category'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Items.Strings = (
          'blues'
          'classical'
          'country'
          'data'
          'folk'
          'jazz'
          'misc'
          'newage'
          'reggae'
          'rock'
          'soundtrack')
        ParentFont = False
        TabOrder = 3
      end
    end
    object tbSend: TTabSheet
      Caption = 'Submit it'
      object Label8: TLabel
        Left = 20
        Top = 344
        Width = 72
        Height = 16
        Caption = 'Send Status'
      end
      object StatusBar: TPanel
        Left = 100
        Top = 340
        Width = 405
        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 = 2
      end
      object GroupBox1: TGroupBox
        Left = 20
        Top = 12
        Width = 485
        Height = 153
        Caption = 'Mail info'
        TabOrder = 0
        object Label5: TLabel
          Left = 12
          Top = 21
          Width = 108
          Height = 64
          Caption =
            'Make sure your e-mail and SMTP server are correct then click Sen' +
            #39'd'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label6: TLabel
          Left = 156
          Top = 32
          Width = 65
          Height = 16
          Caption = 'Your Email'
        end
        object Label12: TLabel
          Left = 240
          Top = 57
          Width = 172
          Height = 16
          Caption = 'Example: [e-mail]'
        end
        object Label7: TLabel
          Left = 116
          Top = 97
          Width = 110
          Height = 16
          Caption = 'Your SMTP server'
        end
        object Label13: TLabel
          Left = 240
          Top = 121
          Width = 156
          Height = 16
          Caption = 'Example: smtp.myisp.com'
        end
        object edEmail: TEdit
          Left = 232
          Top = 28
          Width = 237
          Height = 24
          TabOrder = 0
        end
        object edSMTP: TEdit
          Left = 232
          Top = 93
          Width = 237
          Height = 24
          TabOrder = 1
        end
      end
      object GroupBox2: TGroupBox
        Left = 20
        Top = 176
        Width = 485
        Height = 149
        Caption = 'Advanced Options'
        TabOrder = 1
        object Label10: TLabel
          Left = 8
          Top = 21
          Width = 327
          Height = 80
          Caption =
            'If your submission was rejected because it has an older revision' +
            ' number than the current revision, then increase the revision nu' +
            'mber by 1 and try again.  (Normally, you shouldn'#39't need to chang' +
            'e this number, so leave it alone.)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label11: TLabel
          Left = 352
          Top = 44
          Width = 64
          Height = 16
          Caption = 'Revision #'
        end
        object edRevision: TSpinEdit
          Left = 424
          Top = 40
          Width = 49
          Height = 26
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1000
          MinValue = 0
          ParentFont = False
          TabOrder = 0
          Value = 0
        end
        object cbCCSelf: TCheckBox
          Left = 48
          Top = 108
          Width = 421
          Height = 25
          Alignment = taLeftJustify
          Caption =
            'Check this box if you want to send yourself a copy of the submis' +
            'sion'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
    end
  end
  object bPrev: TButton
    Left = 200
    Top = 448
    Width = 89
    Height = 29
    Caption = '< Previous'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = bPrevClick
  end
  object bNext: TButton
    Left = 300
    Top = 448
    Width = 89
    Height = 29
    Caption = 'Next >'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = bNextClick
  end
  object bCancel: TButton
    Left = 432
    Top = 448
    Width = 89
    Height = 29
    Caption = 'Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 3
    OnClick = bCancelClick
  end
end