home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vrtulník 3
/
Vrtulnik-3.bin
/
zvuk
/
wavmak24
/
_setup.1
/
WMWIN.EXE
/
0
/
RCDATA
/
TPLAYSAMPLEDLG
/
TPLAYSAMPLEDLG.txt
Wrap
Text File
|
1996-11-11
|
18KB
|
649 lines
object playSampleDlg: TplaySampleDlg
Left = 0
Top = 43
HelpContext = 1100
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Play sample'
ClientHeight = 401
ClientWidth = 433
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 21
Height = 13
Caption = 'File'
end
object Bevel6: TBevel
Left = 8
Top = 8
Width = 305
Height = 121
end
object Label3: TLabel
Left = 16
Top = 176
Width = 38
Height = 13
Caption = 'Attack'
end
object Label4: TLabel
Left = 16
Top = 208
Width = 50
Height = 13
Caption = 'Pressure'
end
object Label5: TLabel
Left = 16
Top = 240
Width = 47
Height = 13
Caption = 'Release'
end
object Label6: TLabel
Left = 16
Top = 272
Width = 63
Height = 13
Caption = 'Modulation'
end
object Label2: TLabel
Left = 16
Top = 144
Width = 49
Height = 13
Caption = 'Duration'
end
object Bevel1: TBevel
Left = 8
Top = 136
Width = 305
Height = 257
end
object Bevel2: TBevel
Left = 320
Top = 8
Width = 105
Height = 89
end
object Label7: TLabel
Left = 88
Top = 144
Width = 24
Height = 13
Caption = '(ms)'
end
object Label8: TLabel
Left = 88
Top = 176
Width = 41
Height = 13
Caption = '(0-127)'
end
object Label9: TLabel
Left = 88
Top = 208
Width = 41
Height = 13
Caption = '(0-127)'
end
object Label10: TLabel
Left = 88
Top = 240
Width = 41
Height = 13
Caption = '(0-127)'
end
object Label11: TLabel
Left = 88
Top = 272
Width = 41
Height = 13
Caption = '(0-127)'
end
object Note: TLabel
Left = 152
Top = 304
Width = 28
Height = 13
Caption = 'Note'
end
object tempDir: TLabel
Left = 328
Top = 104
Width = 44
Height = 13
Caption = 'tempDir'
Visible = False
end
object WAVdir: TLabel
Left = 328
Top = 120
Width = 43
Height = 13
Caption = 'WAVdir'
Visible = False
end
object Label12: TLabel
Left = 152
Top = 336
Width = 42
Height = 13
Caption = 'Octave'
end
object Label13: TLabel
Left = 22
Top = 370
Width = 8
Height = 13
Caption = 'c'
end
object Label14: TLabel
Left = 39
Top = 370
Width = 8
Height = 13
Caption = 'd'
end
object Label15: TLabel
Left = 57
Top = 370
Width = 8
Height = 13
Caption = 'e'
end
object Label16: TLabel
Left = 77
Top = 370
Width = 5
Height = 13
Caption = 'f'
end
object Label17: TLabel
Left = 94
Top = 370
Width = 8
Height = 13
Caption = 'g'
end
object Label18: TLabel
Left = 112
Top = 370
Width = 8
Height = 13
Caption = 'a'
end
object Label19: TLabel
Left = 130
Top = 370
Width = 8
Height = 13
Caption = 'b'
end
object Keys1: TKeys
Left = 16
Top = 304
Width = 127
Height = 65
NoteWidth = 18
BlackBrush.Color = clBlack
OnNoteOn = Keys1NoteOn
end
object HelpBtn: TBitBtn
Left = 328
Top = 320
Width = 89
Height = 33
HelpContext = 1100
TabOrder = 0
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object writeButton: TBitBtn
Left = 328
Top = 16
Width = 89
Height = 33
Caption = 'Write file'
TabOrder = 1
OnClick = writeButtonClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F73300999999999003337777777777777330000}
NumGlyphs = 2
end
object playButton: TBitBtn
Left = 328
Top = 56
Width = 89
Height = 33
Caption = 'Play file'
TabOrder = 2
OnClick = playButtonClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
end
object fileEdit: TEdit
Left = 48
Top = 16
Width = 257
Height = 21
TabOrder = 3
Text = 'fileEdit'
OnClick = fileEditExit
OnExit = fileEditExit
OnKeyPress = fileEditKeyPress
end
object stereoButton: TPanel
Left = 16
Top = 88
Width = 137
Height = 33
TabOrder = 5
object monoButton: TRadioButton
Left = 8
Top = 8
Width = 57
Height = 17
Caption = 'Mono'
TabOrder = 0
end
object RadioButton2: TRadioButton
Left = 72
Top = 8
Width = 57
Height = 17
Caption = 'Stereo'
Checked = True
TabOrder = 1
TabStop = True
end
end
object Panel3: TPanel
Left = 16
Top = 48
Width = 289
Height = 33
Caption = 'Panel3'
TabOrder = 4
object elevenButton: TRadioButton
Left = 8
Top = 8
Width = 81
Height = 17
Caption = '11025 Hz'
TabOrder = 0
end
object twentytwoButton: TRadioButton
Left = 104
Top = 8
Width = 81
Height = 17
Caption = '22050 Hz'
TabOrder = 1
end
object fourtyfourButton: TRadioButton
Left = 200
Top = 8
Width = 73
Height = 17
Caption = '44100 Hz'
Checked = True
TabOrder = 2
TabStop = True
end
end
object Panel2: TPanel
Left = 168
Top = 88
Width = 137
Height = 33
TabOrder = 6
object eightButton: TRadioButton
Left = 8
Top = 8
Width = 57
Height = 17
Caption = '8 bits'
TabOrder = 0
end
object sixteenButton: TRadioButton
Left = 64
Top = 8
Width = 57
Height = 17
Caption = '16 bits'
Checked = True
TabOrder = 1
TabStop = True
end
end
object durationEdit: TEdit
Left = 152
Top = 144
Width = 129
Height = 21
TabOrder = 7
Text = 'durationEdit'
OnClick = durationEditExit
OnEnter = durationEditEnter
OnExit = durationEditExit
OnKeyPress = durationEditKeyPress
end
object attackEdit: TEdit
Left = 152
Top = 176
Width = 129
Height = 21
TabOrder = 9
Text = 'attackEdit'
OnClick = attackEditExit
OnEnter = attackEditEnter
OnExit = attackEditExit
OnKeyPress = attackEditKeyPress
end
object pressureEdit: TEdit
Left = 152
Top = 208
Width = 129
Height = 21
TabOrder = 11
Text = 'pressureEdit'
OnClick = pressureEditExit
OnEnter = pressureEditEnter
OnExit = pressureEditExit
OnKeyPress = pressureEditKeyPress
end
object releaseEdit: TEdit
Left = 152
Top = 240
Width = 129
Height = 21
TabOrder = 13
Text = 'releaseEdit'
OnClick = releaseEditExit
OnEnter = releaseEditEnter
OnExit = releaseEditExit
OnKeyPress = releaseEditKeyPress
end
object modulationEdit: TEdit
Left = 152
Top = 272
Width = 129
Height = 21
TabOrder = 15
Text = 'modulationEdit'
OnClick = modulationEditExit
OnEnter = modulationEditEnter
OnExit = modulationEditExit
OnKeyPress = modulationEditKeyPress
end
object durationSpin: TSpinButton
Left = 280
Top = 145
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 8
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = durationSpinDownClick
OnUpClick = durationSpinUpClick
end
object attackSpin: TSpinButton
Left = 280
Top = 177
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 10
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = attackSpinDownClick
OnUpClick = attackSpinUpClick
end
object pressureSpin: TSpinButton
Left = 280
Top = 209
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 12
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = pressureSpinDownClick
OnUpClick = pressureSpinUpClick
end
object rleaseSpin: TSpinButton
Left = 280
Top = 241
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 14
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = rleaseSpinDownClick
OnUpClick = rleaseSpinUpClick
end
object modulationSpin: TSpinButton
Left = 280
Top = 273
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 16
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = modulationSpinDownClick
OnUpClick = modulationSpinUpClick
end
object layerBox: TCheckBox
Left = 232
Top = 368
Width = 73
Height = 17
Caption = 'All layers'
TabOrder = 17
end
object noteEdit: TEdit
Left = 208
Top = 304
Width = 73
Height = 21
TabOrder = 18
Text = 'noteEdit'
OnClick = noteEditClick
OnEnter = noteEditEnter
OnExit = noteEditExit
OnKeyPress = noteEditKeyPress
end
object noteSpin: TSpinButton
Left = 280
Top = 305
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 19
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = noteSpinDownClick
OnUpClick = noteSpinUpClick
end
object OKBtn: TBitBtn
Left = 328
Top = 360
Width = 89
Height = 33
Caption = 'OK'
ModalResult = 1
TabOrder = 20
OnClick = OKbtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333377F3333333333000033334224333333333333
337337F3333333330000333422224333333333333733337F3333333300003342
222224333333333373333337F3333333000034222A22224333333337F337F333
7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
33333337F73337F337F33333000033A33333A222433333337333337F337F3333
0000333333333A222433333333333337F337F33300003333333333A222433333
333333337F337F33000033333333333A222433333333333337F337F300003333
33333333A222433333333333337F337F00003333333333333A22433333333333
3337F37F000033333333333333A223333333333333337F730000333333333333
333A333333333333333337330000333333333333333333333333333333333333
0000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object player: TMediaPlayer
Left = 400
Top = 104
Width = 253
Height = 30
Visible = False
TabOrder = 21
OnNotify = playerNotify
end
object octaveEdit: TEdit
Left = 208
Top = 336
Width = 73
Height = 21
TabOrder = 22
Text = 'octaveEdit'
OnClick = octaveEditClick
OnEnter = octaveEditEnter
OnExit = octaveEditExit
OnKeyPress = octaveEditKeyPress
end
object octaveSpin: TSpinButton
Left = 280
Top = 337
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 23
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = octaveSpinDownClick
OnUpClick = octaveSpinUpClick
end
end