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