home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2000 July
/
VPR0007A.BIN
/
OLS
/
OTONOS23
/
otonos23.lzh
/
music_sa.exe
/
0
/
RCDATA
/
TMF
/
TMF.txt
Wrap
Text File
|
2000-03-22
|
20KB
|
636 lines
object Mf: TMf
Left = 24
Top = 5
AutoScroll = False
Caption = 'ソスソスソスフスソス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ソスト開'
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ソスソスソスソスソスフ終ソスソス'
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 = 'ソスソスソスン使ソス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 = 'ソスソスソスン使ソス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 = 'ソスソスソスソスソスヨフソス@ソス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ソスソスソスフフソス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ソスソスソスフフソス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ソスト開'
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 = 'ソスソスソスフスソスNソスソスソスbソスvソスuソスbソスNソスtソスHソス[ソス}ソスbソスgTextソスtソス@ソスCソスソス(.MLS)|*.mls'
Left = 280
Top = 208
end
end