object fmGroove: TfmGroove
  Left = 184
  Top = 101
  BorderStyle = bsDialog
  Caption = 'Groove'
  ClientHeight = 281
  ClientWidth = 340
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 70
    Top = 0
    Width = 270
    Height = 281
    Align = alClient
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object labelGrooves: TLabel
    Left = 80
    Top = 8
    Width = 42
    Height = 14
    Caption = 'Grooves'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Fader1: TFader
    Left = 80
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader2: TFader
    Left = 112
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader3: TFader
    Left = 144
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader4: TFader
    Left = 176
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader5: TFader
    Left = 208
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader6: TFader
    Left = 240
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader7: TFader
    Left = 272
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Fader8: TFader
    Left = 304
    Top = 140
    Width = 25
    Height = 56
    Color = 16711808
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseUp = FaderMouseUp
    Mirror = True
    ShowText = True
    Min = 1
    Max = 127
    Pos = 40
    ThumbSize = 0
    OnChange = FaderChange
  end
  object Label2: TLabel
    Left = 80
    Top = 56
    Width = 46
    Height = 14
    Caption = 'Time (+/-)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object RotateLabel1: TRotateLabel
    Left = 243
    Top = 247
    Width = 87
    Height = 24
    Cursor = crHandPoint
    Hint = 'Click for help'
    Escapement = 8
    TextStyle = tsRecessed
    Caption = 'Grooves'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
  end
  object brnReset: TSpeedButton
    Left = 192
    Top = 224
    Width = 41
    Height = 25
    Hint = 'Reset values'
    Caption = 'Reset'
    ParentShowHint = False
    ShowHint = True
    OnClick = brnResetClick
  end
  object sbMoveUp1: TSpeedButton
    Left = 308
    Top = 24
    Width = 20
    Height = 20
    Hint = 'Prior groove'
    Flat = True
    Glyph.Data = {
      E2000000424DE200000000000000760000002800000012000000090000000100
      0400000000006C00000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
      CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
      0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      FFFFFF000000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = sbMoveUp1Click
  end
  object sbMoveDown1: TSpeedButton
    Left = 286
    Top = 24
    Width = 20
    Height = 20
    Hint = 'Next groove'
    Flat = True
    Glyph.Data = {
      E2000000424DE200000000000000760000002800000012000000090000000100
      0400000000006C00000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
      CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
      0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      FFFFFF000000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = sbMoveDown1Click
  end
  object Label1: TLabel
    Left = 80
    Top = 120
    Width = 39
    Height = 14
    Caption = 'Velocity'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 80
    Top = 109
    Width = 250
    Height = 3
    Style = bsRaised
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 70
    Height = 281
    Align = alLeft
    BevelOuter = bvNone
    FullRepaint = False
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object labelText: TLabel
      Left = 8
      Top = 128
      Width = 57
      Height = 33
      AutoSize = False
      Caption = 'Make it groove...'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = 8454143
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object panelPlay: TPanel
      Left = 4
      Top = 262
      Width = 19
      Height = 16
      Color = clBlack
      TabOrder = 0
      object iconPlay: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Play'
        Align = alClient
        Center = True
        Picture.Data = {<image001.bmp>}
        OnMouseUp = iconPlayMouseUp
        State = stUp
      end
    end
    object Panel2: TPanel
      Left = 26
      Top = 262
      Width = 19
      Height = 16
      Color = clBlack
      TabOrder = 1
      object IconStop: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Stop'
        Align = alClient
        Center = True
        Picture.Data = {<image002.bmp>}
        OnMouseUp = IconStopMouseUp
        State = stUp
      end
    end
    object btnUndo: tnybutton
      Left = 6
      Top = 63
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Undo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = btnUndoClick
    end
    object btnQ: tnybutton
      Left = 6
      Top = 35
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Q'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnQClick
    end
    object btnSave: tnybutton
      Left = 6
      Top = 7
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Store'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btnSaveClick
    end
    object tnybutton1: tnybutton
      Left = 6
      Top = 91
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Cancel = True
      Caption = '&Close'
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = tnybutton1Click
    end
  end
  object ComboGrooves: TComboBox
    Left = 80
    Top = 24
    Width = 201
    Height = 21
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'Shuffle'
      'Tripples')
    ParentFont = False
    TabOrder = 1
    OnChange = ComboGroovesChange
    OnKeyPress = ComboGroovesKeyPress
  end
  object time1: TEdit
    Left = 80
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 2
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyDown = time1KeyDown
    OnKeyPress = timeKeyPress
  end
  object chkVelocity: TCheckBox
    Left = 80
    Top = 201
    Width = 81
    Height = 17
    Caption = 'Use velocity'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 3
    OnClick = chkVelocityClick
  end
  object time2: TEdit
    Tag = 1
    Left = 112
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 4
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time3: TEdit
    Left = 144
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 5
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time4: TEdit
    Left = 176
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 6
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time5: TEdit
    Left = 208
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 7
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time6: TEdit
    Left = 240
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 8
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time7: TEdit
    Left = 272
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 9
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object time8: TEdit
    Left = 304
    Top = 72
    Width = 25
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    TabOrder = 10
    Text = '0'
    OnChange = timeChange
    OnExit = timeExit
    OnKeyPress = timeKeyPress
  end
  object Button7: TButton
    Left = 80
    Top = 224
    Width = 49
    Height = 25
    Hint = 'Insert new groove'
    Caption = '&Insert'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = Button7Click
  end
  object Button1: TButton
    Left = 136
    Top = 224
    Width = 49
    Height = 25
    Hint = 'Delete current groove'
    Caption = '&Delete'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = Button1Click
  end
  object chkrealtime: TCheckBox
    Left = 80
    Top = 262
    Width = 73
    Height = 17
    Hint = 'Quantize on change'
    Caption = 'Real time'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'grv'
    Filter = 'Groove file (*.grv)|*.grv'
    Left = 304
    Top = 256
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'grv'
    Left = 288
    Top = 288
  end
end