home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Zadarmo / CLARION / CLARION.EXE / 0 / RCDATA / TFMCDDBSUBMIT / TFMCDDBSUBMIT.txt
Encoding:
Text File  |  1997-10-06  |  11.6 KB  |  444 lines
  1. object fmCDDBSubmit: TfmCDDBSubmit
  2.   Left = 103
  3.   Top = 12
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'Submit data to CDDB'
  7.   ClientHeight = 481
  8.   ClientWidth = 549
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   ShowHint = True
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   PixelsPerInch = 120
  20.   TextHeight = 16
  21.   object Pager: TPageControl
  22.     Left = 8
  23.     Top = 8
  24.     Width = 533
  25.     Height = 429
  26.     ActivePage = tbInfo
  27.     TabOrder = 0
  28.     object tbInfo: TTabSheet
  29.       Caption = 'About CDDB Submission'
  30.       object Label9: TLabel
  31.         Left = 24
  32.         Top = 12
  33.         Width = 264
  34.         Height = 16
  35.         Caption = 'Heh this stuff is important, so read it :-)'
  36.         Font.Charset = DEFAULT_CHARSET
  37.         Font.Color = clWindowText
  38.         Font.Height = -13
  39.         Font.Name = 'MS Sans Serif'
  40.         Font.Style = [fsBold]
  41.         ParentFont = False
  42.       end
  43.       object Label3: TLabel
  44.         Left = 12
  45.         Top = 364
  46.         Width = 286
  47.         Height = 16
  48.         Caption = 'To learn more about CDDB, double click this link'
  49.         Font.Charset = DEFAULT_CHARSET
  50.         Font.Color = clWindowText
  51.         Font.Height = -13
  52.         Font.Name = 'MS Sans Serif'
  53.         Font.Style = []
  54.         ParentFont = False
  55.       end
  56.       object Memo1: TMemo
  57.         Left = 12
  58.         Top = 44
  59.         Width = 501
  60.         Height = 301
  61.         Font.Charset = DEFAULT_CHARSET
  62.         Font.Color = clWindowText
  63.         Font.Height = -17
  64.         Font.Name = 'MS Sans Serif'
  65.         Font.Style = []
  66.         Lines.Strings = (
  67.           'Thank you for submitting CD information to the internet CD '
  68.           'database (CDDB).  The CDDB is a community effort and '
  69.           'depends on the voluntary cooperation of users like you.'
  70.           ''
  71.           'Before submitting data to the CDDB, please take note of the '
  72.           'following:'
  73.           ''
  74.           '1) Submit ONLY if your CD was NOT found in the CDDB, or the '
  75.           'information was erroneous or incomplete and therefore need to '
  76.           
  77.             'be revised.  That is, you should perform a lookup first.  If you' +
  78.             ' find'
  79.           'no match, enter the data yourself then submit it.'
  80.           ''
  81.           '2) Please completely fill out the disc artist, title, and track '
  82.           'titles.  Do not leave blank track titles (unless they are '
  83.           'supposed to be blank).'
  84.           ''
  85.           '3) Please verify that all information are correct.  Check your '
  86.           'spellings, etc.  Keep in mind that the data you submit will be '
  87.           'used by everyone, but there is no way for this program '
  88.           'or the CDDB server to verify that the data you submit are '
  89.           'actually correct.'
  90.           ''
  91.           '4) You need to supply your e-mail address so that if your '
  92.           'submission is rejected, the server can contact you and let '
  93.           
  94.             'you know what the problem was.  Your e-mail will be used for thi' +
  95.             's '
  96.           'purpose ONLY.'
  97.           ''
  98.           '5) Since the submission is via e-mail, you also need to supply '
  99.           'the name of your SMTP server (for sending mail).  This is '
  100.           'usually something like smtp.mycompany.com'
  101.           ''
  102.           'To find out more about the CDDB, double click the link below.'
  103.           ''
  104.           'Thank you.  Proceed to the next page.')
  105.         ParentFont = False
  106.         ReadOnly = True
  107.         ScrollBars = ssVertical
  108.         TabOrder = 0
  109.       end
  110.       object edURL: TEdit
  111.         Left = 320
  112.         Top = 360
  113.         Width = 193
  114.         Height = 24
  115.         Color = clBtnFace
  116.         Font.Charset = DEFAULT_CHARSET
  117.         Font.Color = clBtnText
  118.         Font.Height = -13
  119.         Font.Name = 'MS Sans Serif'
  120.         Font.Style = [fsBold]
  121.         ParentFont = False
  122.         ReadOnly = True
  123.         TabOrder = 1
  124.         Text = 'http://www.cddb.com/'
  125.         OnDblClick = edURLDblClick
  126.       end
  127.     end
  128.     object tbVerify: TTabSheet
  129.       Caption = 'Verify information'
  130.       object Label1: TLabel
  131.         Left = 12
  132.         Top = 40
  133.         Width = 29
  134.         Height = 16
  135.         Caption = 'Artist'
  136.       end
  137.       object Label2: TLabel
  138.         Left = 252
  139.         Top = 40
  140.         Width = 26
  141.         Height = 16
  142.         Caption = 'Title'
  143.       end
  144.       object Label4: TLabel
  145.         Left = 48
  146.         Top = 8
  147.         Width = 380
  148.         Height = 16
  149.         Caption = 'Please fill in all entries and make sure they are correct.'
  150.         Font.Charset = DEFAULT_CHARSET
  151.         Font.Color = clWindowText
  152.         Font.Height = -13
  153.         Font.Name = 'MS Sans Serif'
  154.         Font.Style = [fsBold]
  155.         ParentFont = False
  156.         WordWrap = True
  157.       end
  158.       object Label14: TLabel
  159.         Left = 60
  160.         Top = 64
  161.         Width = 122
  162.         Height = 16
  163.         Caption = 'Example: Pink Floyd'
  164.       end
  165.       object Label15: TLabel
  166.         Left = 296
  167.         Top = 64
  168.         Width = 191
  169.         Height = 16
  170.         Caption = 'Example: Dark Side of the Moon'
  171.       end
  172.       object edArtist: TEdit
  173.         Left = 52
  174.         Top = 36
  175.         Width = 185
  176.         Height = 24
  177.         TabOrder = 0
  178.       end
  179.       object edTitle: TEdit
  180.         Left = 288
  181.         Top = 36
  182.         Width = 225
  183.         Height = 24
  184.         TabOrder = 1
  185.       end
  186.       object CDList: TExtListView
  187.         Left = 12
  188.         Top = 96
  189.         Width = 381
  190.         Height = 289
  191.         Hint = 'Select a track and press F2 or Return to edit its title'
  192.         Columns = <
  193.           item
  194.             Caption = '#'
  195.             Width = 25
  196.           end
  197.           item
  198.             Caption = 'Track Title'
  199.             Width = 12
  200.             WidthType = (
  201.               -1)
  202.           end>
  203.         ReadOnly = True
  204.         TabOrder = 2
  205.         ViewStyle = vsReport
  206.         OnKeyDown = CDListKeyDown
  207.         ExtendedStyles = [lvxGridLines, lvxFullRowSelect]
  208.       end
  209.       object Category: TRadioGroup
  210.         Left = 400
  211.         Top = 88
  212.         Width = 113
  213.         Height = 297
  214.         Hint = 'Choose a category the best describes this CD'
  215.         Caption = 'Category'
  216.         Font.Charset = DEFAULT_CHARSET
  217.         Font.Color = clWindowText
  218.         Font.Height = -13
  219.         Font.Name = 'MS Sans Serif'
  220.         Font.Style = [fsBold]
  221.         Items.Strings = (
  222.           'blues'
  223.           'classical'
  224.           'country'
  225.           'data'
  226.           'folk'
  227.           'jazz'
  228.           'misc'
  229.           'newage'
  230.           'reggae'
  231.           'rock'
  232.           'soundtrack')
  233.         ParentFont = False
  234.         TabOrder = 3
  235.       end
  236.     end
  237.     object tbSend: TTabSheet
  238.       Caption = 'Submit it'
  239.       object Label8: TLabel
  240.         Left = 20
  241.         Top = 344
  242.         Width = 72
  243.         Height = 16
  244.         Caption = 'Send Status'
  245.       end
  246.       object StatusBar: TPanel
  247.         Left = 100
  248.         Top = 340
  249.         Width = 405
  250.         Height = 33
  251.         BevelInner = bvLowered
  252.         BorderStyle = bsSingle
  253.         Color = clMaroon
  254.         Font.Charset = DEFAULT_CHARSET
  255.         Font.Color = clYellow
  256.         Font.Height = -17
  257.         Font.Name = 'MS Sans Serif'
  258.         Font.Style = []
  259.         ParentFont = False
  260.         TabOrder = 2
  261.       end
  262.       object GroupBox1: TGroupBox
  263.         Left = 20
  264.         Top = 12
  265.         Width = 485
  266.         Height = 153
  267.         Caption = 'Mail info'
  268.         TabOrder = 0
  269.         object Label5: TLabel
  270.           Left = 12
  271.           Top = 21
  272.           Width = 108
  273.           Height = 64
  274.           Caption = 
  275.             'Make sure your e-mail and SMTP server are correct then click Sen' +
  276.             #39'd'
  277.           Font.Charset = DEFAULT_CHARSET
  278.           Font.Color = clWindowText
  279.           Font.Height = -13
  280.           Font.Name = 'MS Sans Serif'
  281.           Font.Style = []
  282.           ParentFont = False
  283.           WordWrap = True
  284.         end
  285.         object Label6: TLabel
  286.           Left = 156
  287.           Top = 32
  288.           Width = 65
  289.           Height = 16
  290.           Caption = 'Your Email'
  291.         end
  292.         object Label12: TLabel
  293.           Left = 240
  294.           Top = 57
  295.           Width = 172
  296.           Height = 16
  297.           Caption = 'Example: jsmith@myisp.com'
  298.         end
  299.         object Label7: TLabel
  300.           Left = 116
  301.           Top = 97
  302.           Width = 110
  303.           Height = 16
  304.           Caption = 'Your SMTP server'
  305.         end
  306.         object Label13: TLabel
  307.           Left = 240
  308.           Top = 121
  309.           Width = 156
  310.           Height = 16
  311.           Caption = 'Example: smtp.myisp.com'
  312.         end
  313.         object edEmail: TEdit
  314.           Left = 232
  315.           Top = 28
  316.           Width = 237
  317.           Height = 24
  318.           TabOrder = 0
  319.         end
  320.         object edSMTP: TEdit
  321.           Left = 232
  322.           Top = 93
  323.           Width = 237
  324.           Height = 24
  325.           TabOrder = 1
  326.         end
  327.       end
  328.       object GroupBox2: TGroupBox
  329.         Left = 20
  330.         Top = 176
  331.         Width = 485
  332.         Height = 149
  333.         Caption = 'Advanced Options'
  334.         TabOrder = 1
  335.         object Label10: TLabel
  336.           Left = 8
  337.           Top = 21
  338.           Width = 327
  339.           Height = 80
  340.           Caption = 
  341.             'If your submission was rejected because it has an older revision' +
  342.             ' number than the current revision, then increase the revision nu' +
  343.             'mber by 1 and try again.  (Normally, you shouldn'#39't need to chang' +
  344.             'e this number, so leave it alone.)'
  345.           Font.Charset = DEFAULT_CHARSET
  346.           Font.Color = clWindowText
  347.           Font.Height = -13
  348.           Font.Name = 'MS Sans Serif'
  349.           Font.Style = []
  350.           ParentFont = False
  351.           WordWrap = True
  352.         end
  353.         object Label11: TLabel
  354.           Left = 352
  355.           Top = 44
  356.           Width = 64
  357.           Height = 16
  358.           Caption = 'Revision #'
  359.         end
  360.         object edRevision: TSpinEdit
  361.           Left = 424
  362.           Top = 40
  363.           Width = 49
  364.           Height = 26
  365.           Color = clBtnFace
  366.           Font.Charset = DEFAULT_CHARSET
  367.           Font.Color = clBtnText
  368.           Font.Height = -13
  369.           Font.Name = 'MS Sans Serif'
  370.           Font.Style = []
  371.           MaxValue = 1000
  372.           MinValue = 0
  373.           ParentFont = False
  374.           TabOrder = 0
  375.           Value = 0
  376.         end
  377.         object cbCCSelf: TCheckBox
  378.           Left = 48
  379.           Top = 108
  380.           Width = 421
  381.           Height = 25
  382.           Alignment = taLeftJustify
  383.           Caption = 
  384.             'Check this box if you want to send yourself a copy of the submis' +
  385.             'sion'
  386.           Font.Charset = DEFAULT_CHARSET
  387.           Font.Color = clWindowText
  388.           Font.Height = -13
  389.           Font.Name = 'MS Sans Serif'
  390.           Font.Style = []
  391.           ParentFont = False
  392.           TabOrder = 1
  393.         end
  394.       end
  395.     end
  396.   end
  397.   object bPrev: TButton
  398.     Left = 200
  399.     Top = 448
  400.     Width = 89
  401.     Height = 29
  402.     Caption = '< Previous'
  403.     Font.Charset = DEFAULT_CHARSET
  404.     Font.Color = clWindowText
  405.     Font.Height = -13
  406.     Font.Name = 'MS Sans Serif'
  407.     Font.Style = []
  408.     ParentFont = False
  409.     TabOrder = 1
  410.     OnClick = bPrevClick
  411.   end
  412.   object bNext: TButton
  413.     Left = 300
  414.     Top = 448
  415.     Width = 89
  416.     Height = 29
  417.     Caption = 'Next >'
  418.     Font.Charset = DEFAULT_CHARSET
  419.     Font.Color = clWindowText
  420.     Font.Height = -13
  421.     Font.Name = 'MS Sans Serif'
  422.     Font.Style = []
  423.     ParentFont = False
  424.     TabOrder = 2
  425.     OnClick = bNextClick
  426.   end
  427.   object bCancel: TButton
  428.     Left = 432
  429.     Top = 448
  430.     Width = 89
  431.     Height = 29
  432.     Caption = 'Cancel'
  433.     Font.Charset = DEFAULT_CHARSET
  434.     Font.Color = clWindowText
  435.     Font.Height = -13
  436.     Font.Name = 'MS Sans Serif'
  437.     Font.Style = []
  438.     ModalResult = 2
  439.     ParentFont = False
  440.     TabOrder = 3
  441.     OnClick = bCancelClick
  442.   end
  443. end
  444.