diff options
Diffstat (limited to '')
-rw-r--r-- | medley_new/src/media/UAudioPlaybackBase.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/medley_new/src/media/UAudioPlaybackBase.pas b/medley_new/src/media/UAudioPlaybackBase.pas index 5f317257..58f0b85d 100644 --- a/medley_new/src/media/UAudioPlaybackBase.pas +++ b/medley_new/src/media/UAudioPlaybackBase.pas @@ -60,6 +60,7 @@ type procedure Pause; procedure Stop; procedure FadeIn(Time: real; TargetVolume: single); + procedure Fade(Time: real; TargetVolume: single); procedure SetSyncSource(SyncSource: TSyncSource); @@ -260,6 +261,12 @@ begin MusicStream.FadeIn(Time, TargetVolume); end; +procedure TAudioPlaybackBase.Fade(Time: real; TargetVolume: single); +begin + if assigned(MusicStream) then + MusicStream.Fade(Time, TargetVolume); +end; + procedure TAudioPlaybackBase.SetLoop(Enabled: boolean); begin if assigned(MusicStream) then |