object fmVelocity: TfmVelocity
  Left = 204
  Top = 178
  HelpContext = 18
  BorderStyle = bsDialog
  Caption = 'Velocity'
  ClientHeight = 181
  ClientWidth = 333
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsItalic]
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object RotateLabel1: TRotateLabel
    Left = 251
    Top = 152
    Width = 78
    Height = 24
    Cursor = crHandPoint
    Hint = 'Click for help'
    Escapement = 0
    TextStyle = tsRecessed
    Caption = 'Velocity'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = RotateLabel1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 70
    Height = 181
    Align = alLeft
    BevelOuter = bvNone
    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 = 5
      Top = 119
      Width = 63
      Height = 63
      AutoSize = False
      Caption = 'Set velocity for all notes'
      Font.Charset = ANSI_CHARSET
      Font.Color = 8454143
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object panelPlay: TPanel
      Left = 4
      Top = 162
      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 = {<image000.bmp>}
        OnMouseUp = iconPlayMouseUp
        State = stUp
      end
    end
    object Panel2: TPanel
      Left = 26
      Top = 162
      Width = 19
      Height = 16
      Caption = 'o'
      Color = clBlack
      TabOrder = 1
      object IconStop: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Stop'
        Align = alClient
        Center = True
        Picture.Data = {<image001.bmp>}
        OnMouseUp = IconStopMouseUp
        State = stUp
      end
    end
    object btnUndo: tnybutton
      Left = 7
      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 tnybutton1: tnybutton
      Left = 7
      Top = 91
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Cancel = True
      Caption = '&Close'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = tnybutton1Click
    end
    object tnybutton2: tnybutton
      Left = 7
      Top = 7
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&OK'
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = tnybutton2Click
    end
    object tnybutton3: tnybutton
      Left = 7
      Top = 35
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Apply'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = tnybutton3Click
    end
  end
  object PageControl1: TPage95Control
    Left = 80
    Top = 8
    Width = 241
    Height = 137
    ActivePage = PageSet
    ButtonStyle = True
    FlatButtons = True
    FlatSeperators = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    HotTrack = True
    TabInactiveColor = clSilver
    TabInactiveFont.Charset = ANSI_CHARSET
    TabInactiveFont.Color = clWindowText
    TabInactiveFont.Height = -11
    TabInactiveFont.Name = 'Arial'
    TabInactiveFont.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = PageControl1Change
    object PageSet: TTab95Sheet
      Caption = 'Set'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 39
        Height = 14
        Caption = 'Velocity'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object editSetVel: TEditIncDec
        Left = 64
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editSetVel.
        TabOrder = 0
        Text = '127'
        Min = 1
        Max = 0
      end
    end
    object PageFade: TTab95Sheet
      Caption = 'Fade'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label2: TLabel
        Left = 16
        Top = 24
        Width = 24
        Height = 14
        Caption = 'From'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 136
        Top = 24
        Width = 12
        Height = 14
        Caption = 'To'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object editFadeMin: TEditIncDec
        Left = 64
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editFadeMin.
        TabOrder = 0
        Text = '1'
        Min = 1
        Max = 0
      end
      object editFadeMax: TEditIncDec
        Left = 168
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editFadeMax.
        TabOrder = 1
        Text = '127'
        Min = 1
        Max = 0
      end
    end
    object PageChange: TTab95Sheet
      Caption = 'Change'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label5: TLabel
        Left = 16
        Top = 24
        Width = 52
        Height = 14
        Caption = 'Change by'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object editChange: TEditIncDec
        Left = 80
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editChange.
        TabOrder = 0
        Text = '0'
        Min = -126
        Max = 126
      end
    end
    object PageRandom: TTab95Sheet
      Caption = 'Random'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 16
        Height = 14
        Caption = 'Min'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 136
        Top = 24
        Width = 20
        Height = 14
        Caption = 'Max'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object editRandomMin: TEditIncDec
        Left = 64
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editRandomMin.
        TabOrder = 0
        Text = '1'
        Min = 1
        Max = 0
      end
      object editRandomMax: TEditIncDec
        Left = 168
        Top = 21
        Width = 34
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editRandomMax.
        TabOrder = 1
        Text = '127'
        Min = 1
        Max = 0
      end
    end
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 208
    Top = 144
  end
end