diff options
Diffstat (limited to 'Game/Code/Classes/UAudioPlaybackBase.pas')
-rw-r--r-- | Game/Code/Classes/UAudioPlaybackBase.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Game/Code/Classes/UAudioPlaybackBase.pas b/Game/Code/Classes/UAudioPlaybackBase.pas index f1fe26f9..0251b8e8 100644 --- a/Game/Code/Classes/UAudioPlaybackBase.pas +++ b/Game/Code/Classes/UAudioPlaybackBase.pas @@ -28,7 +28,7 @@ type procedure Play; procedure Pause; procedure Stop; - procedure FadeIn(Time: real; TargetVolume: integer); + procedure FadeIn(Time: real; TargetVolume: single); procedure SetPosition(Time: real); function GetPosition: real; @@ -39,8 +39,8 @@ type // function SetOutputDevice(Device: TAudioOutputDevice): boolean; function GetOutputDeviceList(): TAudioOutputDeviceList; - procedure SetAppVolume(Volume: integer); virtual; abstract; - procedure SetVolume(Volume: integer); + procedure SetAppVolume(Volume: single); virtual; abstract; + procedure SetVolume(Volume: single); procedure SetLoop(Enabled: boolean); procedure Rewind; @@ -149,13 +149,13 @@ begin Result := true; end; -procedure TAudioPlaybackBase.SetVolume(Volume: Integer); +procedure TAudioPlaybackBase.SetVolume(Volume: single); begin if assigned(MusicStream) then MusicStream.Volume := Volume; end; -procedure TAudioPlaybackBase.FadeIn(Time: real; TargetVolume: integer); +procedure TAudioPlaybackBase.FadeIn(Time: real; TargetVolume: single); begin if assigned(MusicStream) then MusicStream.FadeIn(Time, TargetVolume); |