www.pudn.com > TMIDIPlayer_w_MidiSheet.rar > TempoControl.dfm, change:2013-04-30,size:3965b


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