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 = {} 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