object Mf: TMf Left = 24 Top = 5 AutoScroll = False Caption = '���̃X�N���b�v' ClientHeight = 430 ClientWidth = 632 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Scaled = False OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Splitter2: TSplitter Left = 120 Top = 31 Width = 3 Height = 380 Cursor = crHSplit end object Splitter3: TSplitter Left = 239 Top = 31 Width = 3 Height = 380 Cursor = crHSplit end object StatusBar1: TStatusBar Left = 0 Top = 411 Width = 632 Height = 19 Panels = < item Text = ' DIRs & FILEs' Width = 120 end item Text = '�薼&����' Width = 120 end item Text = 'NOW MUSIC FILE' Width = 180 end> SimplePanel = False end object Panel1: TPanel Left = 0 Top = 0 Width = 632 Height = 31 Align = alTop TabOrder = 1 object SpeedButton1: TSpeedButton Left = 500 Top = 4 Width = 25 Height = 25 Hint = '���t��~' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �S�V�b�N' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 040000000000000100003A0B00003A0B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 333333333333333333333333333333333333333333FFFFF33333333330000033 33333333377777F3333333333000003333333333377777F33333333330000033 33333333377777F3333333333000003333333333377777F33333333330000033 3333333337777733333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 525 Top = 4 Width = 25 Height = 25 Hint = '���t�ĊJ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �S�V�b�N' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 040000000000000100003A0B00003A0B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333F3333333333333303333333333333337FF3333333333333003333 333333333377FF3333333333330003333333333333777FF33333333333000033 3333333333777733333333333300033333333333337773333333333333003333 3333333333773333333333333303333333333333337333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 580 Top = 4 Width = 50 Height = 25 Hint = '�v���O�����̏I��' Caption = 'END' Font.Charset = SHIFTJIS_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333003333300 333333333F3333333F333330003330003333333333F33333F333333300030003 33333333333F333F333333333000003333333333333333F33333333333000333 3333333333333F33333333333000003333333333333333F33333333300030003 33333333333F333F33333330003330003333333333F33333F333333003333300 333333333F3333333F3333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 0 OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 1 Top = 4 Width = 20 Height = 25 Hint = '�V�K����' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333000000000000333333333333333333330888888888 80333333333333333333330FFFFFFFFF80333333333333333333330FFFFFFFFF 80333333333333333333330FFFFFFFFF80333333333333333333330FFFFFFFFF 80333333333333333333330FFFFFFFFF80333333333333333333330FFFFFFFFF 80333333333333333333330FFFFFFFFF80333333333333333333330FFFFFFFFF 80333333333333333333330FFFFFFFFF80333333333333333333330FFFFFFF00 00333333333333333333330FFFFFFF0803333333333333333333330FFFFFFF00 3333333333333333333333000000000333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 128 Top = 4 Width = 25 Height = 25 Hint = '���ݎg�p���Ă���t�@�C�����Z�[�u����' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F0CC007F88888 CC037F3337F3FF37F37F0CC007800888CC037F3337F77F37F37F0CC007800888 CC037F3337F77FF7F37F0CC007888888CC037F3337777777337F0CCCCCCCCCCC CC037F3FFFFFFFFFFF7F0CCCCCCCCCCCCC037F77777777777F7F0CC888888888 CC037F7F333333337F7F0CC888888888CC037F7F333333337F7F0CC888888888 CC037F7F333333337F7F0CC8F88FFF88CC037F7F333333337F7F0CC888888888 CC037F7F333333337F7F0CC888888888C0037F7F33333333777F0CCFFFFFFFFF CC03737FFFFFFFFF7F7330077777777700333777777777777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 427 Top = 4 Width = 20 Height = 25 Hint = '�G�N�X�v���[���[���グ' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 00222222222222222222222222222224A602222222222222222222222222224A 6C0222222222222222222000000004A6C0222222222222222222233333334A6C 330222222222222222222FB8700786C3B30222222222222222222F87EA80733B 830222222222222222222F7EA8A803B8B30222222222222222222F7AFA8A038B 830222222222222222222F7EAFAE07B8B30222222222222222222F87EAE07B8B 830222222222222222222FB87707B8B8B30222222222222222222FFFFFFFFFFF F302222222222222222228B8B8B8022222222222222222222222228B8B802222 2222222222222222222222222222222222222222222222222222} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 155 Top = 4 Width = 75 Height = 25 Hint = '�]����t�H���_�̐ݒ�' Caption = '�]����ݒ�' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777770000000000077777777777777777777700B333333330 777777777777777777770B0B33333333077777777777777777770FB0B3333333 307777777777777777770BFB0BBBBBBBBB0777777777777777770FBFB0000000 000077777777777777770BFBFBFBFBF0777777777777777777770FBFBFBFBFB0 777777777777777777770FFBFBFBFBF0977777777777777777770FFFF0000009 9977777777777777777770000777779999977777777777777777777779977999 9999777777777777777777777997777999777777777777777777777779999999 9977777777777777777777777799999997777777777777777777} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True Spacing = 0 OnClick = SpeedButton7Click end object SpeedButton8: TSpeedButton Left = 560 Top = 4 Width = 17 Height = 25 Hint = '�o�[�W�������' Caption = '�H' Font.Charset = SHIFTJIS_CHARSET Font.Color = clPurple Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [fsBold] NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object FileBox: TEdit Left = 22 Top = 5 Width = 103 Height = 21 Hint = '���ݎg�p���Ă���t�@�C��' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �S�V�b�N' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'AAAAAAAAA.AAA' end object DirD: TEdit Left = 233 Top = 5 Width = 189 Height = 21 Hint = '�]����t�H���_�̐ݒ�' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �S�V�b�N' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'FileBox' end object CheckBox1: TCheckBox Left = 450 Top = 8 Width = 45 Height = 17 Hint = '�`�F�b�N���Ă�Ɖ��t���[�v' Alignment = taLeftJustify Caption = 'Loop' Font.Charset = SHIFTJIS_CHARSET Font.Color = clPurple Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = CheckBox1Click end end object StG: TStringGrid Left = 242 Top = 31 Width = 390 Height = 380 Hint = '�����փt�@�C�����h���b�v�ł���' Align = alClient Color = clWhite ColCount = 6 DefaultColWidth = 40 DefaultRowHeight = 18 FixedColor = clSilver RowCount = 2 Font.Charset = SHIFTJIS_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goRowMoving, goEditing, goThumbTracking] ParentFont = False ParentShowHint = False PopupMenu = PopupMenu1 ScrollBars = ssVertical ShowHint = True TabOrder = 2 OnClick = StGClick OnDrawCell = StGDrawCell OnEnter = StGEnter OnRowMoved = StGRowMoved OnSelectCell = StGSelectCell OnSetEditText = StGSetEditText ColWidths = ( 40 92 168 50 16 182) end object MPlayer: TMediaPlayer Left = 308 Top = 94 Width = 29 Height = 25 ColoredButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack] VisibleButtons = [btPlay] Visible = False TabOrder = 3 OnNotify = MPlayerNotify end object Panel3: TPanel Left = 0 Top = 31 Width = 120 Height = 380 Align = alLeft BevelOuter = bvNone TabOrder = 4 object Panel4: TPanel Left = 0 Top = 0 Width = 120 Height = 21 Align = alTop BevelOuter = bvNone TabOrder = 0 object SpeedButton9: TSpeedButton Left = 99 Top = 0 Width = 20 Height = 20 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000 0000666C7777777C6CC06EC888888888C8C06C88807888888C6068F808078888 88C07F808F80788888707F08FFF8078888707F87FF0F808888707FF87F330788 887068FF873B307888406C8FF873B30784C066C8FF8F3B3048C06E6C8FFFF3B3 0CC066666777773B307088888888888391888888888888881188} OnClick = SpeedButton9Click end object DriveBox: TDriveComboBox Left = 0 Top = 0 Width = 99 Height = 21 Hint = '�g�p���Ă���h���C�u' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = '�l�r �S�V�b�N' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = DriveBoxChange end end object Panel2: TPanel Left = 0 Top = 21 Width = 120 Height = 359 Align = alClient BevelOuter = bvNone TabOrder = 1 object Splitter1: TSplitter Left = 0 Top = 167 Width = 120 Height = 3 Cursor = crVSplit Align = alTop end object DirBox: TDirectoryListBox Left = 0 Top = 0 Width = 120 Height = 167 Hint = '�g�p���̃t�H���_' Align = alTop Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �S�V�b�N' Font.Style = [] ItemHeight = 16 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = DirBoxChange end object FListBox: TFileListBox Left = 0 Top = 170 Width = 120 Height = 189 Hint = '�g�p���̃t�H���_���̒�`�t�@�C��' Align = alClient Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �S�V�b�N' Font.Style = [] ItemHeight = 12 Mask = '*.mls' ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = FListBoxClick end end end object PageControl1: TPageControl Left = 123 Top = 31 Width = 116 Height = 380 ActivePage = TabSheet2 Align = alLeft TabOrder = 5 object TabSheet1: TTabSheet Hint = '�����ő薼��I�ԂƂ����Ɉڂ�܂�' Caption = '�薼' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True object StG1: TStringGrid Left = 0 Top = 0 Width = 108 Height = 353 Hint = '�����ő薼��I�ԂƂ����Ɉڂ�܂�' Align = alClient BorderStyle = bsNone ColCount = 3 DefaultColWidth = 2 DefaultRowHeight = 15 FixedColor = clTeal RowCount = 2 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnClick = StG1Click ColWidths = ( 2 90 47) end end object TabSheet2: TTabSheet Hint = '�����ŕ��ނ�I�ԂƂ����Ɉڂ�܂�' Caption = '����' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True object StG2: TStringGrid Left = 0 Top = 0 Width = 108 Height = 353 Hint = '�����ŕ��ނ�I�ԂƂ����Ɉڂ�܂�' Align = alClient BorderStyle = bsNone ColCount = 3 DefaultColWidth = 2 DefaultRowHeight = 15 FixedColor = clPurple RowCount = 2 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnClick = StG2Click ColWidths = ( 2 90 47) end end end object ProgressBar1: TProgressBar Left = 415 Top = 416 Width = 200 Height = 11 Min = 0 Max = 200 Step = 1 TabOrder = 6 Visible = False end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 360 Top = 264 object N1: TMenuItem Caption = '���C���؎�' ShortCut = 16472 OnClick = N1Click end object N2: TMenuItem Caption = '���C������' ShortCut = 16451 OnClick = N2Click end object N3: TMenuItem Caption = '���C�����t' ShortCut = 16470 OnClick = N3Click end object N4: TMenuItem Caption = '��s�}��' ShortCut = 16471 OnClick = N4Click end object N5: TMenuItem Caption = '���t��~' ShortCut = 16453 OnClick = N5Click end object N6: TMenuItem Caption = '���t�ĊJ' ShortCut = 16464 OnClick = N6Click end object N7: TMenuItem Caption = '�t�@�C���Z�[�u' ShortCut = 16467 OnClick = N7Click end object N8: TMenuItem Caption = '�]����֑���' ShortCut = 16461 OnClick = N8Click end end object SaveD: TSaveDialog FileName = '�V�K.mls' Filter = '���̃X�N���b�v�u�b�N�t�H�[�}�b�gText�t�@�C��(.MLS)|*.mls' Left = 280 Top = 208 end end