object Form1: TForm1
  Left = 256
  Top = 294
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'AYFX'
  ClientHeight = 415
  ClientWidth = 632
  Color = clWhite
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'Courier'
  Font.Style = []
  Icon.Data = {
    [encoded data, 7232 characters]
    000000010000000100008003000080030000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnActivate = FormActivate
  OnCanResize = FormCanResize
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 33
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 5
      Top = 5
      Width = 22
      Height = 22
      Hint = 'Play effect [enter]'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DD222DDDDDDDDDDDDDDD0000DD2A
        A22DDDDDDDDDDDDD0000DD2AAAA22DDDDDDDDDDD0000DD2AAAAAA22DDDDDDDDD
        0000DD2AAAAAAAA22DDDDDDD0000DD2AAAAAAAAAA22DDDDD0000DD2AAAAAAAAA
        AAA22DDD0000DD2AAAAAAAAAAAAAA2DD0000DD2AAAAAAAAAAAAAA2DD0000DD2A
        AAAAAAAAAAA22DDD0000DD2AAAAAAAAAA22DDDDD0000DD2AAAAAAAA22DDDDDDD
        0000DD2AAAAAA22DDDDDDDDD0000DD2AAAA22DDDDDDDDDDD0000DD2AA22DDDDD
        DDDDDDDD0000DD222DDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 27
      Top = 5
      Width = 22
      Height = 22
      Hint = 'Stop effect [space]'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DD0000000000000000DD0000DD07
        77777777777770DD0000DD0777777777777770DD0000DD0777777777777770DD
        0000DD0777777777777770DD0000DD0777777777777770DD0000DD0777777777
        777770DD0000DD0777777777777770DD0000DD0777777777777770DD0000DD07
        77777777777770DD0000DD0777777777777770DD0000DD0777777777777770DD
        0000DD0777777777777770DD0000DD0777777777777770DD0000DD0777777777
        777770DD0000DD0000000000000000DD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 240
      Top = 5
      Width = 23
      Height = 22
      Hint = 'Previous effect [-]'
      Caption = '<'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton7: TSpeedButton
      Left = 333
      Top = 5
      Width = 23
      Height = 22
      Hint = 'Next effect [+]'
      Caption = '>'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 144
      Top = 5
      Width = 33
      Height = 22
      Hint = 'Add new effect'
      Caption = 'Add'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 176
      Top = 5
      Width = 33
      Height = 22
      Hint = 'Delete current effect'
      Caption = 'Del'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton9Click
    end
    object SpeedButton4: TSpeedButton
      Left = 217
      Top = 5
      Width = 23
      Height = 22
      Hint = 'First effect'
      Caption = '<<'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 356
      Top = 5
      Width = 23
      Height = 22
      Hint = 'Last effect'
      Caption = '>>'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 56
      Top = 5
      Width = 23
      Height = 22
      Hint = 'Piano input'
      AllowAllUp = True
      GroupIndex = 2
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000D000000000000000000D0000D0FF
        FF0FFFFFF0FFFF0D0000D0FFFF0FFFFFF0FFFF0D0000D0FFFF0FFFFFF0FFFF0D
        0000D0FFFF0FFFFFF0FFFF0D0000D0FFFF0FFFFFF0FFFF0D0000D0FF00000FF0
        0000FF0D0000D0FF00000FF00000FF0D0000D0FF00000FF00000FF0D0000D0FF
        00000FF00000FF0D0000D0FF00000FF00000FF0D0000D0FF00000FF00000FF0D
        0000D0FF00000FF00000FF0D0000D0FF00000FF00000FF0D0000D0FF00000FF0
        0000FF0D0000D000000000000000000D0000DDDDDDDDDDDDDDDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
    object Edit4: TEdit
      Left = 383
      Top = 5
      Width = 242
      Height = 22
      Hint = 'Effect name (click to edit, enter to finish)'
      TabStop = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clGrayText
      Font.Height = -17
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 128
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      OnChange = Edit4Change
      OnClick = Edit4Click
      OnKeyPress = Edit4KeyPress
    end
    object Edit3: TEdit
      Left = 264
      Top = 5
      Width = 68
      Height = 22
      TabStop = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      Enabled = False
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 288
    object File1: TMenuItem
      Caption = '&File'
      object Newbank1: TMenuItem
        Caption = '&New bank'
        OnClick = Newbank1Click
      end
      object LoadFXbank1: TMenuItem
        Caption = '&Load bank'
        OnClick = LoadFXbank1Click
      end
      object SaveFXbank1: TMenuItem
        Caption = '&Save bank'
        OnClick = SaveFXbank1Click
      end
      object Savebankwonames1: TMenuItem
        Caption = 'Save &bank w/o names'
        OnClick = Savebankwonames1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object New1: TMenuItem
        Caption = '&Clear current effect'
        OnClick = New1Click
      end
      object Load1: TMenuItem
        Caption = 'L&oad current effect'
        OnClick = Load1Click
      end
      object SaveFX1: TMenuItem
        Caption = 'S&ave current effect'
        OnClick = SaveFX1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Multiloadtobank1: TMenuItem
        Caption = '&Multi-load to bank'
        OnClick = Multiloadtobank1Click
      end
      object Multisavefrombank1: TMenuItem
        Caption = 'M&ulti-save from bank'
        OnClick = Multisavefrombank1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = '&Exit'
        OnClick = Close1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = Paste1Click
      end
      object Deleteselection1: TMenuItem
        Caption = '&Delete'
        OnClick = Deleteselection1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Selectall1: TMenuItem
        Caption = 'Select &All'
        OnClick = Selectall1Click
      end
      object Unselectall1: TMenuItem
        Caption = '&Unselect All'
        OnClick = Unselectall1Click
      end
      object Inverseselection1: TMenuItem
        Caption = '&Inverse selection'
        OnClick = Inverseselection1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object Pianoinput1: TMenuItem
        Caption = '&Piano input'
        OnClick = Pianoinput1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Linperiod1: TMenuItem
        Caption = 'Li&near period'
        RadioItem = True
        OnClick = Linperiod1Click
      end
      object Logperiod1: TMenuItem
        Caption = '&Logarithmic period'
        RadioItem = True
        OnClick = Logperiod1Click
      end
    end
    object Bank1: TMenuItem
      Caption = '&Bank'
      object Addeffecttoend1: TMenuItem
        Caption = '&Add new effect'
        OnClick = Addeffecttoend1Click
      end
      object Deleteeffect1: TMenuItem
        Caption = '&Delete effect'
        Enabled = False
        OnClick = Deleteeffect1Click
      end
      object Inserteffect1: TMenuItem
        Caption = '&Insert new effect'
        OnClick = Inserteffect1Click
      end
    end
    object Import1: TMenuItem
      Caption = '&Import'
      object PSG1: TMenuItem
        Caption = '&PSG for AY'
        OnClick = PSG1Click
      end
      object VGMfile1: TMenuItem
        Caption = 'VG&M file'
        OnClick = VGMfile1Click
      end
      object VortexVTX1: TMenuItem
        Caption = '&VTX file'
        OnClick = VortexVTX1Click
      end
      object Importfromwav1: TMenuItem
        Caption = '&Wave file (volume only)'
        OnClick = Importfromwav1Click
      end
    end
    object Export1: TMenuItem
      Caption = 'E&xport'
      object Vortextrackersample1: TMenuItem
        Caption = '&VTII sample'
        OnClick = Vortextrackersample1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'afx'
    FileName = 'noname.afx'
    Filter = 'AY Sound Effect (*.afx)|*.afx'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Load one effect'
    Left = 48
    Top = 288
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'afx'
    FileName = 'noname.afx'
    Filter = 'AY Sound Effect (*.afx)|*.afx'
    InitialDir = '.'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save one effect'
    Left = 112
    Top = 288
  end
  object OpenDialog2: TOpenDialog
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Import dialog'
    Left = 80
    Top = 288
  end
  object Timer1: TTimer
    Interval = 1
    OnTimer = Timer1Timer
    Left = 144
    Top = 288
  end
  object OpenDialog3: TOpenDialog
    DefaultExt = 'afx'
    FileName = 'noname.afx'
    Filter = 'AY Sound Effect (*.afx)|*.afx'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofCreatePrompt, ofEnableSizing]
    Title = 'Multi-load effects to bank'
    Left = 80
    Top = 352
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = 'afb'
    FileName = 'noname.afb'
    Filter = 'AY Sound Effects Bank (*.afb)|*.afb'
    InitialDir = '.'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save effects bank'
    Left = 112
    Top = 320
  end
  object OpenDialog4: TOpenDialog
    DefaultExt = 'afb'
    FileName = 'noname.afb'
    Filter = 'AY Sound Effects Bank (*.afb)|*.afb'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Load effects bank'
    Left = 80
    Top = 320
  end
  object SaveDialog3: TSaveDialog
    DefaultExt = 'afx'
    Filter = 'AY Sound Effect (*.afx)|*.afx'
    InitialDir = '.'
    Title = 'Multi-save effects from bank'
    Left = 112
    Top = 352
  end
end
