home *** CD-ROM | disk | FTP | other *** search
- 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
-