MTK

开发平台：
C++ Builder

form_FATEditor.dfm：源码内容
							object frmFATEditor: TfrmFATEditor
  Left = 145
  Top = 55
  Width = 825
  Height = 683
  Caption = 'FAT Editor'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 0
    Width = 801
    Height = 649
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'FAT Editor'
      object Label1: TLabel
        Left = 496
        Top = 312
        Width = 51
        Height = 13
        Caption = 'FAT file list'
      end
      object Label2: TLabel
        Left = 480
        Top = 96
        Width = 78
        Height = 13
        Caption = 'FAT directory list'
      end
      object Label3: TLabel
        Left = 472
        Top = 56
        Width = 81
        Height = 13
        Caption = 'Current FAT path'
      end
      object Label4: TLabel
        Left = 88
        Top = 8
        Width = 52
        Height = 13
        Caption = 'Local drive'
      end
      object Label5: TLabel
        Left = 80
        Top = 64
        Width = 69
        Height = 13
        Caption = 'Local directory'
      end
      object Label6: TLabel
        Left = 80
        Top = 312
        Width = 58
        Height = 13
        Caption = 'Locat file list'
      end
      object Label7: TLabel
        Left = 80
        Top = 272
        Width = 63
        Height = 13
        Caption = 'Loca file type'
      end
      object Label8: TLabel
        Left = 488
        Top = 8
        Width = 39
        Height = 13
        Caption = 'File type'
      end
      object lblSectorPerCluster: TLabel
        Left = 392
        Top = 528
        Width = 83
        Height = 13
        Caption = 'Sector per cluster'
      end
      object lblFATTotalSize: TLabel
        Left = 492
        Top = 528
        Width = 64
        Height = 13
        Caption = 'FAT total size'
      end
      object lblFATFreeSpace: TLabel
        Left = 576
        Top = 528
        Width = 73
        Height = 13
        Caption = 'FAT free space'
      end
      object lbFATFile: TListBox
        Left = 392
        Top = 328
        Width = 265
        Height = 193
        ItemHeight = 13
        MultiSelect = True
        ScrollWidth = 5000
        TabOrder = 0
      end
      object lbFATDirectory: TListBox
        Left = 392
        Top = 112
        Width = 265
        Height = 193
        ItemHeight = 13
        ScrollWidth = 5000
        TabOrder = 1
        OnClick = lbFATDirectoryClick
      end
      object btnGetDirectoryList: TBitBtn
        Left = 664
        Top = 128
        Width = 121
        Height = 33
        Caption = 'Get Directory List'
        TabOrder = 2
        OnClick = btnGetDirectoryListClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C0000000000000000000000000000000000000000000000001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C000000000000000000001F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C000000000000000000001F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C1F7C1F7C0000186300001F7C00001F7C
          1F7C1F7C1F7C00001F7C0000186300001F7C0000186300001863000000000000
          1F7C1000100000001F7C1F7C0000186300001863000018630000186318631863
          0000100010000000000000000000000018630000186300001863186318631863
          1863100010001F7C1F7C1F7C1F7C1F7C00001863000018631863186318631863
          1863100010001F7C1F7C1F7C1F7C1F7C1F7C0000186318631863186318631863
          0000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000000000000000
          1F7C100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object btnGetFileList: TBitBtn
        Left = 664
        Top = 376
        Width = 121
        Height = 33
        Caption = 'Get File List'
        TabOrder = 3
        OnClick = btnGetFileListClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C0000000000000000000000000000000000000000000000001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C000000000000000000001F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C000000000000000000001F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C00001F7C
          1F7C1F7C1F7C00001F7C000000001F7C1F7C1F7C0000186300001F7C00001F7C
          1F7C1F7C1F7C00001F7C0000186300001F7C0000186300001863000000000000
          1F7C1000100000001F7C1F7C0000186300001863000018630000186318631863
          0000100010000000000000000000000018630000186300001863186318631863
          1863100010001F7C1F7C1F7C1F7C1F7C00001863000018631863186318631863
          1863100010001F7C1F7C1F7C1F7C1F7C1F7C0000186318631863186318631863
          0000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000000000000000
          1F7C100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object sbFAT: TStatusBar
        Left = 0
        Top = 592
        Width = 793
        Height = 29
        Panels = <
          item
            Width = 235
          end
          item
            Width = 315
          end
          item
            Width = 175
          end
          item
            Width = 150
          end>
        SimplePanel = False
      end
      object btnReadFromFAT: TBitBtn
        Left = 280
        Top = 352
        Width = 105
        Height = 33
        Caption = 'Read from FAT'
        TabOrder = 5
        OnClick = btnReadFromFATClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C100010001000100010001F7C1F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C10001000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C1000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C100010001F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C100010001F7C1F7C1F7C1F7C1000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001000100010001F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object cbDrive: TDriveComboBox
        Left = 48
        Top = 24
        Width = 145
        Height = 19
        TabOrder = 6
        OnChange = cbDriveChange
      end
      object lbLocalDir: TDirectoryListBox
        Left = 8
        Top = 88
        Width = 265
        Height = 177
        ItemHeight = 16
        TabOrder = 7
        OnChange = lbLocalDirChange
      end
      object lbLocalFile: TFileListBox
        Left = 8
        Top = 328
        Width = 265
        Height = 233
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 8
      end
      object cbLocalFiletype: TFilterComboBox
        Left = 8
        Top = 288
        Width = 265
        Height = 21
        Filter = 
          'All files (*.*)|*.*|iMelody files (*.imy)|*.imy|Midi files (*.mi' +
          'd)|*.mid|BMP files (*.bmp)|*.bmp|dat files (*.dat)|*.dat|txt fil' +
          'es (*.txt)|*.txt'
        TabOrder = 9
        OnChange = cbLocalFiletypeChange
      end
      object btnWriteToFAT: TBitBtn
        Left = 280
        Top = 400
        Width = 105
        Height = 33
        Caption = 'Write to FAT'
        TabOrder = 10
        OnClick = btnWriteToFATClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C1F7C1000100010001000
          10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C100010001000
          10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001000
          10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C10001F7C1000
          10001F7C1F7C1F7C1F7C1F7C10001F7C1F7C1F7C1F7C100010001F7C1F7C1F7C
          10001F7C1F7C1F7C1F7C1F7C1F7C10001000100010001F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object btnDeleteFromFAT: TBitBtn
        Left = 664
        Top = 416
        Width = 121
        Height = 33
        Caption = 'Delete FAT file'
        TabOrder = 11
        OnClick = btnDeleteFromFATClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
          00001F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
          00001F7C1F7C1F7C1F7C104210421042104210421042104210421F7C1F7C0000
          00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C10421F7C1F7C0000
          00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C1042000000000000
          00001F7C1F7C1F7C1F7C18631863186318631863186318631042000000000000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object edtFileType: TEdit
        Left = 456
        Top = 24
        Width = 121
        Height = 21
        TabOrder = 12
        Text = '*.*'
      end
      object pbFAT: TProgressBar
        Left = 0
        Top = 568
        Width = 793
        Height = 24
        Min = 0
        Max = 100
        Smooth = True
        TabOrder = 13
      end
      object edtCurrentFATPath: TEdit
        Left = 392
        Top = 72
        Width = 265
        Height = 21
        TabOrder = 14
      end
      object lblHint: TStaticText
        Left = 728
        Top = 0
        Width = 33
        Height = 17
        BorderStyle = sbsSingle
        Caption = 'lblHint'
        Color = clYellow
        ParentColor = False
        TabOrder = 15
        Visible = False
      end
      object btnGetFATDiskInfo: TBitBtn
        Left = 664
        Top = 456
        Width = 121
        Height = 33
        Caption = 'Get FATdisk info.'
        TabOrder = 16
        OnClick = btnGetFATDiskInfoClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF66444444444FFFFF6E66666666
          64FFFF6F666660F0F4FFFF6E0777766664FFFF6F0FFF70F0F4FFFF6E0FFF7666
          64FFFF6F0FFF70F0F4FFFF6E0000066664FFFF6FEFEFEFEFE6FFFFF666666666
          66FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      end
      object stSectorPerCluster: TStaticText
        Left = 392
        Top = 544
        Width = 81
        Height = 17
        AutoSize = False
        BevelOuter = bvNone
        BorderStyle = sbsSingle
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
        TabOrder = 17
      end
      object stFATTotalSize: TStaticText
        Left = 484
        Top = 544
        Width = 81
        Height = 17
        AutoSize = False
        BevelOuter = bvNone
        BorderStyle = sbsSingle
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
        TabOrder = 18
      end
      object stFATFreeSpace: TStaticText
        Left = 576
        Top = 544
        Width = 81
        Height = 17
        AutoSize = False
        BevelOuter = bvNone
        BorderStyle = sbsSingle
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
        TabOrder = 19
      end
      object GroupBox1: TGroupBox
        Left = 672
        Top = 296
        Width = 113
        Height = 73
        Caption = '  FAT file list type  '
        TabOrder = 20
        object m_rbRecursive: TRadioButton
          Left = 8
          Top = 24
          Width = 73
          Height = 17
          Caption = 'Recursive'
          TabOrder = 0
        end
        object m_rbCurDir: TRadioButton
          Left = 8
          Top = 48
          Width = 100
          Height = 17
          Caption = 'Current directory'
          Checked = True
          TabOrder = 1
          TabStop = True
        end
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'All files (*.*)|*.*|iMelody files (*.imy)|*.imy|Midi files (*.mi' +
      'd)|*.mid|BMP files (*.bmp)|*.bmp|dat files (*.dat)|*.dat|txt fil' +
      'es (*.txt)|*.txt'
    Title = 'Open file'
    Left = 664
  end
  object SaveDialog: TSaveDialog
    FileName = 'test.txt'
    Filter = 
      'All files (*.*)|*.*|iMelody files (*.imy)|*.imy|Midi files (*.mi' +
      'd)|*.mid|BMP files (*.bmp)|*.bmp|dat files (*.dat)|*.dat|txt fil' +
      'es (*.txt)|*.txt'
    Title = 'Save to file'
    Left = 704
  end
  object TimerFATProgressTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = OnTimerFATProgressTmer
    Left = 504
  end
  object HintTimer: TTimer
    Left = 632
  end
end

						