object FrmCDMediaInfo: TFrmCDMediaInfo Left = 495 Top = 422 BorderStyle = bsDialog Caption = 'Media information' ClientHeight = 347 ClientWidth = 379 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] OldCreateOrder = False ShowHint = True OnActivate = FormActivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 80 Width = 96 Height = 13 Caption = '*Name (description)' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 104 Width = 34 Height = 13 Caption = 'Vendor' end object Label3: TLabel Left = 8 Top = 32 Width = 40 Height = 13 Caption = '*Imprint' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 8 Top = 152 Width = 49 Height = 13 Caption = 'EAN-Code' end object Label4: TLabel Left = 8 Top = 128 Width = 40 Height = 13 Caption = 'Package' end object Label6: TLabel Left = 8 Top = 176 Width = 49 Height = 13 Caption = 'UPC-Code' end object Label7: TLabel Left = 8 Top = 56 Width = 36 Height = 13 Caption = '*Speed' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 8 Top = 200 Width = 68 Height = 13 Caption = 'Additional info' end object LblRequired: TLabel Left = 8 Top = 8 Width = 189 Height = 13 Caption = 'Fields marked with * are required' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [fsBold] ParentFont = False end object LblHint: TLabel Left = 8 Top = 232 Width = 47 Height = 13 Caption = 'Field hint:' end object PnlBtns: TPanel Left = 0 Top = 320 Width = 379 Height = 27 Align = alBottom BevelOuter = bvNone TabOrder = 0 object BtnCancel: TSpeedButton Left = 207 Top = 2 Width = 80 Height = 22 Anchors = [akTop, akRight] Caption = '<< Cancel' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 4210816 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BtnCancelClick end object BtnOK: TSpeedButton Left = 292 Top = 2 Width = 80 Height = 22 Anchors = [akTop, akRight] Caption = 'Save >>' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8421440 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BtnOKClick end end object CB1: TComboBox Tag = 255 Left = 136 Top = 80 Width = 225 Height = 21 Hint = 'Enter a unique name that describes this particular media among o' + 'thers from this manufacturer and of this size and type (CDR/CDRW' + '...).'#13#10'(e.g.: "Mitsui SG Ultra 24x", "Mitsui Golden dye 16x", "V' + 'erbatim DataLifePlus 48x")' ItemHeight = 13 TabOrder = 3 Text = 'CB1' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB2: TComboBox Tag = 255 Left = 136 Top = 104 Width = 225 Height = 21 Hint = 'Enter the actual manufacturer (not necessarily the one printed o' + 'n the CD/DVD).'#13#10'Usually one of the manufacturers listed under "I' + 'nformation about media".' ItemHeight = 13 TabOrder = 4 Text = 'CB2' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB3: TComboBox Tag = 255 Left = 136 Top = 32 Width = 225 Height = 21 Hint = 'The CD/DVD seller name (obviously printed on almost all media e.' + 'g. Philips, Mitsui, Kodak...)' ItemHeight = 13 TabOrder = 1 Text = 'CB3' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB4: TComboBox Tag = 255 Left = 136 Top = 128 Width = 225 Height = 21 Hint = 'e.g. Jewel case, 50 cake...' ItemHeight = 13 TabOrder = 5 Text = 'CB4' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB5: TComboBox Tag = 255 Left = 136 Top = 152 Width = 225 Height = 21 Hint = 'EAN (European Article Numbering) bar code' ItemHeight = 13 TabOrder = 6 Text = 'CB5' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB6: TComboBox Tag = 255 Left = 136 Top = 176 Width = 225 Height = 21 Hint = 'UPC (Universal Product Code) bar code' ItemHeight = 13 TabOrder = 7 Text = 'CB6' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB7: TComboBox Tag = 255 Left = 136 Top = 56 Width = 225 Height = 21 Hint = 'The declared supported speed of media (e.g. 16x, 24x...)' ItemHeight = 13 TabOrder = 2 Text = 'CB7' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object CB8: TComboBox Tag = 255 Left = 136 Top = 200 Width = 225 Height = 21 Hint = 'Any other information that you think should be stored.' ItemHeight = 13 TabOrder = 8 Text = 'CB8' OnChange = CB1Change OnEnter = CB1Enter OnExit = CB1Exit OnKeyDown = CB1KeyDown end object Memo1: TMemo Left = 8 Top = 248 Width = 353 Height = 65 TabStop = False Color = clInfoBk Ctl3D = False Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clInfoText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] Lines.Strings = ( 'Memo1') ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 9 end end