object FrmCDInfo: TFrmCDInfo Left = 333 Top = 143 BorderStyle = bsDialog Caption = 'CD Info' ClientHeight = 572 ClientWidth = 621 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnKeyDown = FormKeyDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 621 Height = 545 ActivePage = TabMedia Align = alClient TabOrder = 0 OnChange = PageControl1Change object TabMedia: TTabSheet Caption = 'Media information' object MLblInfoDevice: TLabel Left = 8 Top = 8 Width = 142 Height = 13 Caption = 'Information about media' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [fsBold] ParentFont = False end object MLblMedias: TLabel Left = 8 Top = 256 Width = 268 Height = 13 Caption = 'All media from the manufacturer(s) of this type' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [fsBold] ParentFont = False end object MLblMediaAdd: TLabel Left = 8 Top = 392 Width = 204 Height = 13 Caption = 'Additional information about selected media' end object MMemo1: TMemo Tag = 255 Left = 8 Top = 24 Width = 433 Height = 217 Anchors = [akLeft, akTop, akRight] Ctl3D = False Lines.Strings = ( 'Indicative Target Writing Power: 3mW' 'Unrestricted Use Disc: no' 'Disc type: 1 (CD-RW / DDCD-RW)' 'Disc sub type: 1 (High speed ReWriteable (CLV/CAV) Media)' 'Start Time of Lead-in: M: 97 S: 22 F: 60' 'Last Possible Start Time of Lead-out: M: 79 S: 59 F: 74' 'Capacity: 703 MB (736.970.752 bytes) / 79:59.55 / LBA: 359.849' 'Reference Speed: 3 (8X)' 'Highest Usable CLV Recording Speed: 4 (>8X)' 'Lowest Usable CLV Recording Speed: 2 (4X)' 'Target y value of the Modulation/Power function: 5' 'Power Multiplication Factor p field: 1' 'Recommended Erase/Write Power Ratio (Peo/Weo) field: 5') ParentCtl3D = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WordWrap = False end object MMemo2: TMemo Tag = 255 Left = 8 Top = 408 Width = 433 Height = 97 Anchors = [akLeft, akTop, akRight, akBottom] Ctl3D = False ParentCtl3D = False ReadOnly = True TabOrder = 1 end object MLBMedia: TListBox Tag = 255 Left = 9 Top = 272 Width = 432 Height = 87 Anchors = [akLeft, akTop, akBottom] Ctl3D = False ExtendedSelect = False ItemHeight = 13 ParentCtl3D = False TabOrder = 2 OnClick = MLBMediaClick OnDblClick = MLBMediaDblClick end object MBtnEditManuf: TButton Left = 311 Top = 241 Width = 130 Height = 25 Anchors = [akTop, akRight] Caption = 'Edit manufacturers' TabOrder = 3 OnClick = MBtnEditManufClick end object MBtnLifeSpan: TButton Left = 447 Top = 500 Width = 166 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Comments on life span of CDs' TabOrder = 4 OnClick = MBtnLifeSpanClick end object MGBoxRating: TGroupBox Left = 448 Top = 16 Width = 161 Height = 169 Caption = 'Rating' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 object MLblRManuf: TLabel Left = 7 Top = 17 Width = 94 Height = 13 Caption = 'Manufacturer(s):' end object MLblRMedia: TLabel Left = 8 Top = 42 Width = 92 Height = 13 Caption = 'Selected media:' end object MRGMediaVote: TRadioGroup Tag = 255 Left = 8 Top = 72 Width = 145 Height = 81 Caption = 'Your media rating' Color = clBtnFace Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'Good' 'Average' 'Bad') ParentColor = False ParentCtl3D = False ParentFont = False TabOrder = 0 OnClick = MRGMediaVoteClick end object MPnl1: TPanel Left = 136 Top = 17 Width = 17 Height = 16 TabOrder = 1 end object MPnl2: TPanel Left = 136 Top = 41 Width = 17 Height = 16 TabOrder = 2 end end object MGBoxRLegend: TGroupBox Left = 448 Top = 192 Width = 161 Height = 129 Caption = 'Rating legend' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 object MLblRLGood: TLabel Left = 32 Top = 18 Width = 26 Height = 13 Caption = 'Good' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MLblRLAvg: TLabel Left = 32 Top = 44 Width = 40 Height = 13 Caption = 'Average' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MLblRLBad: TLabel Left = 32 Top = 69 Width = 19 Height = 13 Caption = 'Bad' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MLblRLNA: TLabel Left = 32 Top = 95 Width = 68 Height = 13 Caption = 'No information' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PnlRed: TPanel Left = 8 Top = 68 Width = 17 Height = 17 Color = clRed TabOrder = 0 end object PnlYellow: TPanel Left = 8 Top = 43 Width = 17 Height = 17 Color = clYellow TabOrder = 1 end object PnlGreen: TPanel Left = 8 Top = 17 Width = 17 Height = 16 Color = clLime TabOrder = 2 end object Panel4: TPanel Left = 8 Top = 94 Width = 17 Height = 17 TabOrder = 3 end end object MGBoxSync: TGroupBox Left = 448 Top = 336 Width = 161 Height = 161 Caption = 'Internet synchronization' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 object MBtnSync: TSpeedButton Left = 8 Top = 19 Width = 146 Height = 22 Anchors = [akTop, akRight] Caption = 'Sync. with internet' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 5A010000424D5A01000000000000760000002800000013000000130000000100 040000000000E400000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777888888888 888888800000774444444444444444800000774F7774F7774F7774800000774F 7774F7774F7774800000774F7774F7774F7774800000774FFFF4FFFF4FFFF480 0000774444444444444444800000774F7774F7774F7774807901774F7774F777 4F7774821300774F444444774F7774800000774F4F7774FF4FFFF47000007744 4F77744444444470000077774F77747777777770000077774FFFF47770777770 0000777744444477770777700000700077777777777070700000770077777777 777700700000707077777777777000700000077777777777777777700000} ParentFont = False OnClick = MBtnSyncClick end object MLStatus: TLabel Left = 7 Top = 73 Width = 146 Height = 40 AutoSize = False Caption = '/' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object MLLblSyncStat: TLabel Left = 7 Top = 57 Width = 61 Height = 13 Caption = 'Sync. status:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MLLblSyncLog: TLabel Left = 7 Top = 113 Width = 79 Height = 13 Caption = 'Server sync. log:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object CBSync: TComboBox Tag = 255 Left = 8 Top = 128 Width = 145 Height = 21 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 0 end end object MBtnAddMedia: TButton Left = 53 Top = 360 Width = 130 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Add media' Enabled = False TabOrder = 8 OnClick = MBtnAddMediaClick end object MBtnEditMedia: TButton Left = 182 Top = 360 Width = 130 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Edit media' Enabled = False TabOrder = 9 OnClick = MBtnEditMediaClick end object MBtnRemoveMedia: TButton Left = 311 Top = 360 Width = 130 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Remove media' Enabled = False TabOrder = 10 OnClick = MBtnRemoveMediaClick end object MMemoLifeSpan: TMemo Left = 344 Top = 440 Width = 81 Height = 57 Lines.Strings = ( 'Information provided is only informative and varies greatly depe' + 'nding on manufacturer!' '' 'Dark, dry, cold storage increases CD life. Silver reflective sur' + 'face has better reflection while gold reflective surface lasts l' + 'onger. Rewritable CDs are apropriate only for short term storage' + '!' '' 'Dyes:' '' 'A. Phthalocyanine ' '- 100+ years' '- inherently stable, ' '- on gold with proper storage 200+ years' '- color: light green on silver; light yellow/green on gold' '' 'B. Azo' '- up to 100 years ' '- color: very deep blue on silver' '' 'C. Cyanine ' '- 20-70 years' '- chemically unstable alone and must be stabilized' '- color: green-blue on gold; blue on silver') TabOrder = 11 Visible = False WordWrap = False end end object TabTOC: TTabSheet Caption = 'TOC' ImageIndex = 1 TabVisible = False end end object PnlBtns: TPanel Left = 0 Top = 545 Width = 621 Height = 27 Align = alBottom BevelOuter = bvNone TabOrder = 1 object BtnOK: TSpeedButton Left = 254 Top = 2 Width = 80 Height = 22 Anchors = [akTop, akRight] Caption = 'Continue >>' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = 8421440 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BtnOKClick end object SpdRefresh: TSpeedButton Left = 530 Top = 3 Width = 88 Height = 22 Anchors = [akTop, akRight] Caption = 'Refresh' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DA0000000000 000AAD0FFFFFFFFFFF0DDA0FFFFF2FFFFF0AAD0FFFF22FFFFF0DDA0FFF22222F FF0AAD0FFFF22FF2FF0DDA0FFFFF2FF2FF0AAD0FF2FFFFF2FF0DDA0FF2FF2FFF FF0AAD0FF2FF22FFFF0DDA0FFF22222FFF0AAD0FFFFF22FFFF0DDA0FFFFF2FF0 000AAD0FFFFFFFF0F0ADDA0FFFFFFFF00ADAAD0000000000ADAD} OnClick = SpdRefreshClick end end end