TempoControl.dfm 3.68 KB
object TempoControlForm: TTempoControlForm
  Left = 630
  Top = 476
  BorderStyle = bsDialog
  Caption = 'Tempo/Pitch Control'
  ClientHeight = 275
  ClientWidth = 267
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Tempo: TLabel
    Left = 78
    Top = 185
    Width = 39
    Height = 14
    Alignment = taCenter
    Caption = 'Tempo'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 183
    Top = 185
    Width = 27
    Height = 14
    Alignment = taCenter
    Caption = 'Pitch'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 40
    Width = 33
    Height = 16
    Caption = '200%'
  end
  object Label3: TLabel
    Left = 47
    Top = 167
    Width = 26
    Height = 16
    Caption = '50%'
  end
  object Label4: TLabel
    Left = 40
    Top = 124
    Width = 33
    Height = 16
    Caption = '100%'
  end
  object Label5: TLabel
    Left = 154
    Top = 39
    Width = 22
    Height = 16
    Caption = '+12'
  end
  object Label6: TLabel
    Left = 169
    Top = 103
    Width = 7
    Height = 16
    Caption = '0'
  end
  object Label7: TLabel
    Left = 157
    Top = 167
    Width = 19
    Height = 16
    Caption = '-12'
  end
  object Label8: TLabel
    Left = 160
    Top = 202
    Width = 75
    Height = 14
    Caption = '(in Semitone)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 40
    Top = 82
    Width = 33
    Height = 16
    Caption = '150%'
  end
  object Label10: TLabel
    Left = 161
    Top = 71
    Width = 15
    Height = 16
    Caption = '+6'
  end
  object Label11: TLabel
    Left = 164
    Top = 135
    Width = 12
    Height = 16
    Caption = '-6'
  end
  object tbTempo: TTrackBar
    Left = 73
    Top = 37
    Width = 37
    Height = 150
    Max = 200
    Min = 50
    Orientation = trVertical
    Frequency = 10
    Position = 150
    TabOrder = 0
    TickMarks = tmTopLeft
    OnChange = tbTempoChange
  end
  object tbPitch: TTrackBar
    Left = 176
    Top = 37
    Width = 37
    Height = 150
    Max = 12
    Min = -12
    Orientation = trVertical
    TabOrder = 1
    TickMarks = tmTopLeft
    OnChange = tbPitchChange
  end
  object btnClose: TButton
    Left = 156
    Top = 232
    Width = 80
    Height = 25
    Caption = 'Close'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object edTempo: TEdit
    Left = 66
    Top = 9
    Width = 43
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 3
    Text = '100%'
  end
  object edPitch: TEdit
    Left = 179
    Top = 9
    Width = 31
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 4
    Text = '0'
  end
  object btnReset: TButton
    Left = 48
    Top = 232
    Width = 80
    Height = 25
    Caption = 'Reset'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btnResetClick
  end
end