home *** CD-ROM | disk | FTP | other *** search
- inherited VolFrame: TVolFrame
- Height = 41
- ExplicitHeight = 41
- 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
- Caption = '-18.06 dB (12.5%)'
- 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
-