diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-10 12:28:56 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-05-10 12:28:56 +0000 |
| commit | c6da424a1508eae4538244b4d00ddf1f0436b1b7 (patch) | |
| tree | 18a125cc8a590c0916811e47c912134278e92bb7 /Game/Code/Classes/UMusic.pas | |
| parent | 8af89b5940bd15b013e3f48536888e352eb1c43b (diff) | |
| download | usdx-c6da424a1508eae4538244b4d00ddf1f0436b1b7.tar.gz usdx-c6da424a1508eae4538244b4d00ddf1f0436b1b7.tar.xz usdx-c6da424a1508eae4538244b4d00ddf1f0436b1b7.zip | |
Volumes are floating point values (single) now. The range changed from [0 .. 100] to [0.0 .. 1.0]
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1081 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UMusic.pas')
| -rw-r--r-- | Game/Code/Classes/UMusic.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas index 9977661f..9c029acd 100644 --- a/Game/Code/Classes/UMusic.pas +++ b/Game/Code/Classes/UMusic.pas @@ -148,15 +148,15 @@ type procedure SetPosition(Time: real); virtual; abstract; function GetLength(): real; virtual; abstract; function GetStatus(): TStreamStatus; virtual; abstract; - function GetVolume(): integer; virtual; abstract; - procedure SetVolume(Volume: integer); virtual; abstract; + function GetVolume(): single; virtual; abstract; + procedure SetVolume(Volume: single); virtual; abstract; function GetLoop(): boolean; virtual; abstract; procedure SetLoop(Enabled: boolean); virtual; abstract; public procedure Play(); virtual; abstract; procedure Pause(); virtual; abstract; procedure Stop(); virtual; abstract; - procedure FadeIn(Time: real; TargetVolume: integer); virtual; abstract; + procedure FadeIn(Time: real; TargetVolume: single); virtual; abstract; procedure GetFFTData(var data: TFFTData); virtual; abstract; function GetPCMData(var data: TPCMData): Cardinal; virtual; abstract; @@ -167,7 +167,7 @@ type property Length: real READ GetLength; property Position: real READ GetPosition WRITE SetPosition; property Status: TStreamStatus READ GetStatus; - property Volume: integer READ GetVolume WRITE SetVolume; + property Volume: single READ GetVolume WRITE SetVolume; property Loop: boolean READ GetLoop WRITE SetLoop; end; @@ -237,10 +237,10 @@ type function FinalizePlayback: boolean; function GetOutputDeviceList(): TAudioOutputDeviceList; - procedure SetAppVolume(Volume: integer); - procedure SetVolume(Volume: integer); + procedure SetAppVolume(Volume: single); + procedure SetVolume(Volume: single); procedure SetLoop(Enabled: boolean); - procedure FadeIn(Time: real; TargetVolume: integer); + procedure FadeIn(Time: real; TargetVolume: single); procedure Rewind; function Finished: boolean; |