MTK

开发平台：
C++ Builder

form_MMIDataDownload.dfm：源码内容
							object frmMMIDataDownload: TfrmMMIDataDownload
  Left = 181
  Top = 166
  Width = 670
  Height = 575
  Caption = 'MMI Data Download'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControlMMIDataDownload: TPageControl
    Left = 0
    Top = 0
    Width = 657
    Height = 545
    ActivePage = tsMMIDataDownload
    TabIndex = 0
    TabOrder = 0
    object tsMMIDataDownload: TTabSheet
      Caption = 'MMI Data Download'
      object Label1: TLabel
        Left = 88
        Top = 48
        Width = 42
        Height = 13
        Caption = 'Directory'
      end
      object Label2: TLabel
        Left = 96
        Top = 8
        Width = 25
        Height = 13
        Caption = 'Drive'
      end
      object Label4: TLabel
        Left = 544
        Top = 8
        Width = 39
        Height = 13
        Caption = 'File type'
      end
      object LabelListBoxMMIData: TLabel
        Left = 192
        Top = 200
        Width = 90
        Height = 13
        Caption = 'Local files selected'
      end
      object Label3: TLabel
        Left = 336
        Top = 8
        Width = 21
        Height = 13
        Caption = 'Files'
      end
      object DriveComboBoxMMIData: TDriveComboBox
        Left = 8
        Top = 24
        Width = 209
        Height = 19
        TabOrder = 0
        OnChange = DriveComboBoxMMIDataChange
      end
      object DirectoryListBoxMMIData: TDirectoryListBox
        Left = 8
        Top = 64
        Width = 209
        Height = 97
        ItemHeight = 16
        TabOrder = 1
        OnChange = DirectoryListBoxMMIDataChange
      end
      object FileListBoxMMIData: TFileListBox
        Left = 248
        Top = 24
        Width = 209
        Height = 161
        ItemHeight = 16
        MultiSelect = True
        ShowGlyphs = True
        TabOrder = 2
        OnChange = FileListBoxMMIDataChange
      end
      object btnAddToList: TBitBtn
        Left = 512
        Top = 280
        Width = 121
        Height = 49
        Caption = 'Add to list'
        TabOrder = 3
        OnClick = btnAddToListClick
        Kind = bkYes
      end
      object FilterComboBoxMMIData: TFilterComboBox
        Left = 496
        Top = 24
        Width = 145
        Height = 21
        Filter = 
          'Image files|*.wbmp;*.bmp;*.gif|wbmp files|*.wbmp|bmp files|*.bmp' +
          '|gif files|*.gif|midi files|*.mid|iMelody files|*.imy|All files ' +
          '(*.*)|*.*'
        TabOrder = 4
        OnChange = FilterComboBoxMMIDataChange
      end
      object lbLocalMMIData: TListBox
        Left = 8
        Top = 224
        Width = 489
        Height = 233
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 5
      end
      object btnDownloadToFAT: TBitBtn
        Left = 512
        Top = 408
        Width = 121
        Height = 49
        Caption = 'Download to FAT'
        TabOrder = 6
        OnClick = btnDownloadToFATClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C100010001000100010001F7C1F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C10001000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C1000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C100010001F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C100010001F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001000100010001F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object GroupBox1: TGroupBox
        Left = 520
        Top = 72
        Width = 113
        Height = 161
        Caption = 'Download type '
        TabOrder = 7
        object rbFullScreen: TRadioButton
          Left = 8
          Top = 24
          Width = 73
          Height = 17
          Caption = 'Full screen'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = rbFullScreenClick
        end
        object RadioButtonAssociate: TRadioButton
          Left = 8
          Top = 50
          Width = 65
          Height = 17
          Caption = 'Associate'
          TabOrder = 1
          OnClick = RadioButtonAssociateClick
        end
        object RadioButtonEMS: TRadioButton
          Left = 8
          Top = 77
          Width = 49
          Height = 17
          Caption = 'EMS'
          TabOrder = 2
          OnClick = RadioButtonEMSClick
        end
        object rbMidi: TRadioButton
          Left = 8
          Top = 104
          Width = 49
          Height = 17
          Caption = 'Midi'
          TabOrder = 3
          OnClick = rbMidiClick
        end
        object rbiMelody: TRadioButton
          Left = 8
          Top = 128
          Width = 76
          Height = 17
          Caption = 'iMelody'
          TabOrder = 4
          OnClick = rbiMelodyClick
        end
      end
      object btnRemoveFromList: TBitBtn
        Left = 512
        Top = 344
        Width = 121
        Height = 49
        Caption = 'Remove from list'
        TabOrder = 8
        OnClick = btnRemoveFromListClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
          00001F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C104210421042104210421042104210421F7C1F7C0000
          00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C10421F7C1F7C0000
          00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C1042000000000000
          00001F7C1F7C1F7C1F7C18631863186318631863186318631042000000000000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object sbMMIData: TStatusBar
        Left = 0
        Top = 488
        Width = 649
        Height = 29
        Panels = <
          item
            Width = 250
          end
          item
            Width = 50
          end>
        SimplePanel = False
      end
      object pbMMIDataDownload: TProgressBar
        Left = 0
        Top = 464
        Width = 649
        Height = 25
        Min = 0
        Max = 100
        TabOrder = 10
      end
    end
  end
  object TimerMMIDataDownload: TTimer
    Enabled = False
    OnTimer = TimerMMIDataDownloadTimer
    Left = 488
    Top = 144
  end
  object TimerMMIDataUpload: TTimer
    Enabled = False
    OnTimer = TimerMMIDataUploadTimer
    Left = 480
    Top = 88
  end
end

						