home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 6
/
Freelog006.iso
/
Logs
/
Musique
/
Orangator
/
ORAN20.EXE
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
1998-02-08
|
21KB
|
592 lines
object MainForm: TMainForm
Left = 67
Top = 59
Width = 507
Height = 381
VertScrollBar.Visible = False
Caption = 'Visual Orangator'
Color = clAppWorkSpace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poDefault
Visible = True
WindowState = wsMaximized
WindowMenu = Window1
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object SpeedPanel: TPanel
Left = 0
Top = 0
Width = 499
Height = 29
Align = alTop
ParentShowHint = False
ShowHint = True
TabOrder = 0
object OpenBtn: TSpeedButton
Left = 7
Top = 2
Width = 25
Height = 25
Hint = 'Open|'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
8888888333333330000033333333333333388888333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
OnClick = FileOpenItemClick
end
object SaveBtn: TSpeedButton
Left = 31
Top = 2
Width = 25
Height = 25
Hint = 'Save|'
Enabled = False
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
CCCC033333388888888888888F333330C6000000006C03333338888888888888
8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
0000833333388888888888888333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
OnClick = FileSaveItemClick
end
object CutBtn: TSpeedButton
Left = 64
Top = 2
Width = 25
Height = 25
Hint = 'Cut|'
Enabled = False
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333FFFF333333FF
FF33333844833333384483333338888FF33338888FF333843348333384334833
3388F388F333883388F3338433343333433348333388F338F3338F3388F33384
33343333433348333388FF38FF338F3388333338433483384334833333388FF8
8FF88FF883333333844448844448333333338888888888883333333333444444
4433333333333388888888333333333333346FF6433333333333333883F88F33
333333333330F00F0333333333333338388383F333333333330FFFF0F0333333
3333338333F8383F3333333330FFF00FFF033333333338333883F383F3333333
0FFF0330FFF033333333833383383F383F333330FFF033330FFF033333383338
333383F383F3330FFF03333330FFF033338F33833333383F38F3330FF0333333
330FF033338F383333333383F8F3330F033333333330F033338F833333333338
38F3330033333333333300333388333333333333883333333333333333333333
33333333333333333333}
NumGlyphs = 2
end
object CopyBtn: TSpeedButton
Left = 88
Top = 2
Width = 25
Height = 25
Hint = 'Copy|'
Enabled = False
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
33333333338FFFFFF88333333333330000000033333333333388888888333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
end
object PasteBtn: TSpeedButton
Left = 112
Top = 2
Width = 25
Height = 25
Hint = 'Paste|'
Enabled = False
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333FFFFFFFFF333333333300000000033333333333888888
888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
33333333338838888888333333333333ECCCC433333333333333388888333333
333333333EEEE333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
end
object ExitBtn: TSpeedButton
Left = 143
Top = 2
Width = 25
Height = 25
Hint = 'Exit|'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
33888888888888877F7F788888888888888F333FF88844444400888FFF444444
88888888888333888883333334D5007FFF433333333338F888F3338F33333333
345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
F8FFFF8F33333333344444444443333333333888888888833333333333333333
3333333333333333FFFFFF333333333333300000033333333333333888888F33
333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
33333338888883333333}
NumGlyphs = 2
OnClick = FileExitItemClick
end
object PlaySpeedButton: TSpeedButton
Left = 200
Top = 2
Width = 25
Height = 25
Hint = 'Play'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
OnClick = PlayClick
end
object RenderSpeedButton: TSpeedButton
Left = 175
Top = 2
Width = 25
Height = 25
Hint = 'Render'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B3333333333333337333333330000}
NumGlyphs = 2
OnClick = RenderClick
end
object SampleSizeLabel: TLabel
Left = 258
Top = 8
Width = 74
Height = 13
Caption = 'Sample size: 0k'
end
object StopSpeedButton: TSpeedButton
Left = 225
Top = 2
Width = 25
Height = 25
Hint = 'Stop|Stop playing'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
OnClick = StopClick
end
object Frequency22050RadioButton: TRadioButton
Left = 384
Top = 8
Width = 49
Height = 17
Caption = '22050'
Checked = True
TabOrder = 0
TabStop = True
OnClick = Frequency22050RadioButtonClick
end
object Frequency44100RadioButton: TRadioButton
Left = 440
Top = 8
Width = 49
Height = 17
Caption = '44100'
TabOrder = 1
OnClick = Frequency44100RadioButtonClick
end
end
object StatusBar: TStatusBar
Left = 0
Top = 316
Width = 499
Height = 19
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <>
ParentFont = False
SimplePanel = True
end
object MainMenu1: TMainMenu
Left = 69
Top = 284
object File1: TMenuItem
Caption = '&File'
Hint = 'File related commands'
ShortCut = 0
object FileNewItem: TMenuItem
Caption = '&New'
Hint = 'Create a new file'
ShortCut = 0
OnClick = FileNewItemClick
end
object FileOpenItem: TMenuItem
Caption = '&Open'
Hint = 'Open an existing file'
ShortCut = 114
OnClick = FileOpenItemClick
end
object FileCloseItem: TMenuItem
Caption = '&Close'
Hint = 'Close current file'
ShortCut = 0
OnClick = FileCloseItemClick
end
object FileSaveItem: TMenuItem
Caption = '&Save'
Hint = 'Save current file'
ShortCut = 113
OnClick = FileSaveItemClick
end
object Exportwave1: TMenuItem
Caption = 'Export wave...'
ShortCut = 0
OnClick = Exportwave1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object FileExitItem: TMenuItem
Caption = 'E&xit'
Hint = 'Exit the application'
ShortCut = 0
OnClick = FileExitItemClick
end
end
object New: TMenuItem
Caption = 'New'
ShortCut = 0
object NewSoundscheme: TMenuItem
Caption = 'Sound scheme'
ShortCut = 0
OnClick = NewSoundschemeClick
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object NewPlayBack: TMenuItem
Caption = 'PlayBack'
ShortCut = 0
OnClick = NewPlayBackClick
end
object NewOscillator: TMenuItem
Caption = 'Oscillator'
ShortCut = 0
OnClick = NewOscillatorClick
end
object NewLinearEnvelope: TMenuItem
Caption = 'Linear Envelope'
ShortCut = 0
OnClick = NewLinearEnvelopeClick
end
object NewGraphEnvelope: TMenuItem
Caption = 'Graphic Envelope'
ShortCut = 0
OnClick = NewGraphEnvelopeClick
end
object NewResonance: TMenuItem
Caption = 'Resonance'
ShortCut = 0
OnClick = NewResonanceClick
end
object NewAmplifier: TMenuItem
Caption = 'Amplifier'
ShortCut = 0
OnClick = NewAmplifierClick
end
object NewMixer: TMenuItem
Caption = 'Mixer'
ShortCut = 0
OnClick = NewMixerClick
end
object NewIterator: TMenuItem
Caption = 'Iterator'
ShortCut = 0
OnClick = NewIteratorClick
end
object NewNoiseGenerator: TMenuItem
Caption = 'Noise generator'
ShortCut = 0
OnClick = NewNoiseGeneratorClick
end
object NewHarmonicGenerator: TMenuItem
Break = mbBarBreak
Caption = 'Harmonic generator'
ShortCut = 0
OnClick = NewHarmonicGeneratorClick
end
object NewAdd: TMenuItem
Caption = 'Add'
ShortCut = 0
OnClick = NewAddClick
end
object NewSequencer: TMenuItem
Caption = 'Sequencer'
ShortCut = 0
OnClick = NewSequencerClick
end
object NewSequencerFrequency: TMenuItem
Caption = 'Sequencer frequency'
ShortCut = 0
OnClick = NewSequencerFrequencyClick
end
object NewSequencerEnvelope: TMenuItem
Caption = 'Sequencer envelope'
ShortCut = 0
OnClick = NewSequencerEnvelopeClick
end
object NewSamplePlayer: TMenuItem
Caption = 'Sample player'
ShortCut = 0
OnClick = NewSamplePlayerClick
end
object NewReverse: TMenuItem
Caption = 'Reverse'
ShortCut = 0
OnClick = NewReverseClick
end
object NewSilenceGenerator: TMenuItem
Caption = 'Silence generator'
ShortCut = 0
OnClick = NewSilenceGeneratorClick
end
object NewWrapOverdrive: TMenuItem
Caption = 'WrapOverdrive'
ShortCut = 0
OnClick = NewWrapOverdriveClick
end
object Flanger1: TMenuItem
Caption = 'Flanger'
ShortCut = 0
OnClick = Flanger1Click
end
object Chorus1: TMenuItem
Caption = 'Chorus'
ShortCut = 0
OnClick = Chorus1Click
end
end
object Playback1: TMenuItem
Caption = 'Playback'
ShortCut = 0
object Render: TMenuItem
Caption = 'Render'
ShortCut = 115
OnClick = RenderClick
end
object Play: TMenuItem
Caption = 'Play'
ShortCut = 116
OnClick = PlayClick
end
object Stop: TMenuItem
Caption = 'Stop'
ShortCut = 119
OnClick = StopClick
end
object Autorender1: TMenuItem
Caption = 'Autorender'
Checked = True
ShortCut = 0
OnClick = Autorender1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
ShortCut = 0
object DeleteSoundUnit: TMenuItem
Caption = 'Delete'
ShortCut = 46
OnClick = DeleteSoundUnitClick
end
object CutItem: TMenuItem
Caption = 'Cu&t'
Enabled = False
Hint = 'Cut to clipboard'
ShortCut = 0
OnClick = CutItemClick
end
object CopyItem: TMenuItem
Caption = '&Copy'
Enabled = False
Hint = 'Copy to clipboard'
ShortCut = 0
OnClick = CopyItemClick
end
object PasteItem: TMenuItem
Caption = '&Paste'
Enabled = False
Hint = 'Paste from clipboard'
ShortCut = 0
OnClick = PasteItemClick
end
end
object Window1: TMenuItem
Caption = '&Window'
Hint = 'Window related commands such as Tile and Cascade'
ShortCut = 0
object WindowCascadeItem: TMenuItem
Caption = '&Cascade'
Hint = 'Arrange windows to overlap'
ShortCut = 0
OnClick = WindowCascadeItemClick
end
object WindowTileItem: TMenuItem
Caption = '&Tile'
Hint = 'Arrange windows without overlap'
ShortCut = 0
OnClick = WindowTileItemClick
end
object WindowArrangeItem: TMenuItem
Caption = '&Arrange Icons'
Hint = 'Arrange window icons at bottom of main window'
ShortCut = 0
OnClick = WindowArrangeItemClick
end
object AutoArrangeIcons: TMenuItem
Caption = 'Auto arrange'
Checked = True
ShortCut = 0
OnClick = AutoArrangeIconsClick
end
object WindowMinimizeItem: TMenuItem
Caption = '&Minimize All'
Hint = 'Minimize all windows'
ShortCut = 0
OnClick = WindowMinimizeItemClick
end
end
object Help1: TMenuItem
Caption = '&Help'
Hint = 'Help topics'
ShortCut = 0
object Contactme1: TMenuItem
Caption = 'Contact me!'
ShortCut = 0
OnClick = Contactme1Click
end
object HelpAboutItem: TMenuItem
Caption = '&About'
ShortCut = 0
OnClick = HelpAboutItemClick
end
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'VOP'
FileEditStyle = fsEdit
Filter = 'Visual Orangator Preset (*.vop)|*.VOP|All files (*.*)|*.*'
Left = 4
Top = 284
end
object SaveDialog: TSaveDialog
DefaultExt = 'VOP'
FileEditStyle = fsEdit
Filter = 'Visual Orangator Preset (*.vop)|*.VOP|All files (*.*)|*.*'
Left = 36
Top = 284
end
object SaveWavDialog: TSaveDialog
DefaultExt = 'WAV'
FileEditStyle = fsEdit
Filter = 'Microsoft Wave|*.WAV;'
Left = 102
Top = 284
end
end