Chip 2005 March/CMCD0305.ISO/Software/Shareware/Multimedia/goldwave/gwave509.exe/GoldWave.exe/0/RCDATA/TVOLFRAME/TVOLFRAME.txt

Text File | 2005-01-25 | 4KB | 172 lines

inherited VolFrame: TVolFrame
  Height = 41
  inherited Axis: TDogAxis
    Min = -160
    Max = 0
  end
  object Percent: TStaticText [1]
    Left = 339
    Top = 24
    Width = 50
    Height = 17
    Alignment = taCenter
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = '100%'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentColor = False
    ParentFont = False
    PopupMenu = VolumeMenu
    TabOrder = 1
    OnClick = PercentClick
  end
  inherited ValueEdit: TNumEdit [2]
    Min = -160
    Max = 0
    Decimal = 2
    PageChange = 1
    LineChange = 0.100000000000000000
    Caption = '0.00'
    MaxLength = 8
  end
  inherited Fader: TFader [3]
    TabOrder = 0
    Line = 0.100000000000000000
    Page = 1
    Min = -160
    Max = 0
    OnDrawSlot = VolumeFaderDrawSlot
  end
  inherited Prompt: TStaticText [4]
    TabOrder = 3
  end
  object VolumeMenu: TPopupMenu
    AutoPopup = False
    Left = 4
    Top = 2
    object MenuDouble: TMenuItem
      Tag = 50
      Action = ActionDouble
    end
    object MenuOneAndAHalf: TMenuItem
      Action = ActionOneAndAHalf
    end
    object MenuUnchanged: TMenuItem
      Action = ActionUnchanged
    end
    object MenuThreeQuarters: TMenuItem
      Action = ActionThreeQuarters
    end
    object MenuHalf: TMenuItem
      Action = ActionHalf
    end
    object MenuOneQuarter: TMenuItem
      Action = ActionOneQuarter
    end
    object MenuOneEighth: TMenuItem
      Action = ActionOneEighth
    end
    object MenuOneTenth: TMenuItem
      Action = ActionOneTenth
    end
    object MenuOneTwentyth: TMenuItem
      Action = ActionOneTwentyth
    end
    object MenuOneFortieth: TMenuItem
      Action = ActionOneFortieth
    end
    object MenuOneHunderdth: TMenuItem
      Action = ActionOneHunderdth
    end
    object MenuOff: TMenuItem
      Action = ActionOff
    end
  end
  object ActionList: TActionList
    Left = 32
    Top = 2
    object ActionDouble: TAction
      Tag = 2000
      Caption = '   6.02 dB   (200%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneAndAHalf: TAction
      Tag = 1500
      Caption = '   3.52 dB   (150%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionUnchanged: TAction
      Tag = 1000
      Caption = '   0.00 dB   (100%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionThreeQuarters: TAction
      Tag = 750
      Caption = '  -2.50 dB   (75%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionHalf: TAction
      Tag = 500
      Caption = '  -6.02 dB   (50%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneQuarter: TAction
      Tag = 250
      Caption = '-12.04 dB   (25%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneEighth: TAction
      Tag = 125
      Caption = '-18.24 dB   (12.5%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneTenth: TAction
      Tag = 100
      Caption = '-20.00 dB   (10%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneTwentyth: TAction
      Tag = 50
      Caption = '-26.02 dB   (5%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneFortieth: TAction
      Tag = 25
      Caption = '-32.04 dB   (2.5%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOneHunderdth: TAction
      Tag = 10
      Caption = '-40.00 dB   (1%)'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionOff: TAction
      Caption = 'Off'
      OnExecute = ActionSetVolume
      OnUpdate = ActionUpdate
    end
    object ActionMenu: TAction
      Caption = 'ActionMenu'
      ShortCut = 32854
      OnExecute = ActionMenuExecute
      OnUpdate = ActionMenuExecute
    end
  end
end