unit1.dfm

刻录机源码

      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      OnChange = cbDrivesChange
    end
    object Panel9: TPanel
      Left = 584
      Top = 0
      Width = 135
      Height = 31
      HelpContext = 1025
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 4
      object bBurn: TBitBtn
        Left = 68
        Top = 2
        Width = 66
        Height = 27
        Hint = 'Start Burning'
        Caption = 'Burn'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = bBurnClick
      end
      object bAdvance: TBitBtn
        Left = 1
        Top = 2
        Width = 66
        Height = 27
        Hint = 'Start Burning'
        Caption = 'Advance'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = bAdvanceClick
      end
    end
    object cbSpeed: TComboBox
      Left = 406
      Top = 3
      Width = 107
      Height = 22
      HelpContext = 1028
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 2
      OnDropDown = cbSpeedDropDown
    end
  end
  object pTop2: TPanel
    Left = 0
    Top = 31
    Width = 719
    Height = 30
    HelpContext = 1029
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label1: TLabel
      Left = 568
      Top = 1
      Width = 150
      Height = 28
      Cursor = crHandPoint
      Align = alRight
      Alignment = taCenter
      AutoSize = False
      Caption = 'www.binarymagics.com'
      DragCursor = crDefault
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      Layout = tlCenter
      OnClick = Label1Click
    end
    object bQErase: TBitBtn
      Left = 2
      Top = 2
      Width = 56
      Height = 26
      Hint = 'Quick Erase'
      Caption = 'Q.Erase'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = bQEraseClick
    end
    object bCErase: TBitBtn
      Left = 58
      Top = 2
      Width = 55
      Height = 26
      Hint = 'Full Erase (Normally not required)'
      Caption = 'C.Erase'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bCEraseClick
    end
    object bLoad: TBitBtn
      Left = 113
      Top = 2
      Width = 55
      Height = 26
      Hint = 'Load Medium'
      Caption = 'Load'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = bLoadClick
    end
    object bReady: TBitBtn
      Left = 224
      Top = 2
      Width = 55
      Height = 26
      Hint = 'Is Unit Ready ?'
      Caption = 'Ready'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = bReadyClick
    end
    object bEject: TBitBtn
      Left = 168
      Top = 2
      Width = 56
      Height = 26
      Hint = 'Eject Medium'
      Caption = 'Eject'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = bEjectClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 336
    Width = 719
    Height = 124
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 4
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 717
      Height = 98
      Hint = 'Log'
      HelpContext = 1044
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu1
      ScrollBars = ssVertical
      TabOrder = 0
      WordWrap = False
    end
    object pbottom: TPanel
      Left = 1
      Top = 99
      Width = 717
      Height = 24
      HelpContext = 1036
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object Label5: TLabel
        Left = 500
        Top = 1
        Width = 45
        Height = 22
        Align = alRight
        Alignment = taRightJustify
        Caption = 'Buffer : '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label6: TLabel
        Left = 1
        Top = 1
        Width = 81
        Height = 22
        Align = alLeft
        Caption = ' CD Progress : '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object lSize: TLabel
        Left = 256
        Top = 1
        Width = 130
        Height = 22
        Align = alLeft
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Size'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object pcd: TProgressBar
        Left = 82
        Top = 1
        Width = 174
        Height = 22
        HelpContext = 1040
        Align = alLeft
        Min = 0
        Max = 100
        Smooth = True
        Step = 1
        TabOrder = 0
      end
      object pHBuf: TProgressBar
        Left = 658
        Top = 1
        Width = 58
        Height = 22
        Hint = 'Device buffer status'
        HelpContext = 1041
        Align = alRight
        Min = 0
        Max = 0
        Smooth = True
        Step = 1
        TabOrder = 1
      end
      object pBuf: TProgressBar
        Left = 545
        Top = 1
        Width = 113
        Height = 22
        Hint = 'Software buffer status'
        HelpContext = 1042
        Align = alRight
        Min = 0
        Max = 100
        Smooth = True
        Step = 1
        TabOrder = 2
      end
      object bAbort: TButton
        Left = 397
        Top = 1
        Width = 86
        Height = 22
        Hint = 'Abort write operation'
        HelpContext = 1043
        Caption = 'Abort'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Visible = False
        OnClick = bAbortClick
      end
    end
  end
  object mcdb: TMCDBurner
    OnDebugMessage = mcdbDebugMessage
    DeviceBufferSize = 0
    DeviceFreeBufferSize = 0
    UnderrunProtection = True
    DoDebug = True
    OnEraseDone = mcdbEraseDone
    ReadSpeed = 0
    WriteSpeed = 0
    FinalizeDisc = False
    TestWrite = False
    ReplaceFile = True
    PerformOPC = True
    IdVolume = 'binarymagics.com'
    IdSystem = ' '
    IdPublisher = 'Binary Magic'
    IdPreparer = 'Magic CD/DVD Burner'
    CacheSize = 4194304
    ISOFileName = 'c:\abc.iso'
    OnAddFile = mcdbAddFile
    OnAddDir = mcdbAddDir
    OnWriteDone = mcdbWriteDone
    OnFinalizingTrack = mcdbFinalizingTrack
    Version = '1.23'
    WritePostGap = False
    Left = 320
    Top = 172
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 320
    Top = 256
  end
  object PopupMenu1: TPopupMenu
    Left = 740
    Top = 264
    object ClearAll1: TMenuItem
      Caption = 'Clear Log'
      ShortCut = 119
      OnClick = ClearAll1Click
    end
  end
  object ExplorerDragDrop: TExDragDrop
    Control = clBox
    OnDropped = ExplorerDragDropDropped
    Left = 320
    Top = 200
  end
  object PopupMenu2: TPopupMenu
    Left = 320
    Top = 228
    object Remove1: TMenuItem
      Caption = 'Remove'
      ShortCut = 46
      OnClick = Remove1Click
    end
  end
  object od: TOpenDialog
    DefaultExt = 'iso'
    Filter = '.ISO Files (*.iso)|*.ISO|All File (*.*)|*.*'
    Options = [ofReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 320
    Top = 284
  end
end