aboutsummaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
authors_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-12-20 20:35:40 +0000
committers_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-12-20 20:35:40 +0000
commit115be023b64d9de135a09ab2a63553856eef15d9 (patch)
tree4738fa1e0262c141e63f1d7f4c23290669159f3d /src/base
parent5d1e512e23f6506f270868f1509397674c2e4d5b (diff)
downloadusdx-115be023b64d9de135a09ab2a63553856eef15d9.tar.gz
usdx-115be023b64d9de135a09ab2a63553856eef15d9.tar.xz
usdx-115be023b64d9de135a09ab2a63553856eef15d9.zip
changed TSyncSource to interface ISyncSource
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2051 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/base')
-rw-r--r--src/base/UMusic.pas12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index 5d816c9a..e1184da8 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -188,8 +188,8 @@ type
end;
type
- TSyncSource = class
- function GetClock(): real; virtual; abstract;
+ ISyncSource = interface
+ function GetClock(): real;
end;
TAudioProcessingStream = class;
@@ -250,7 +250,7 @@ type
TAudioPlaybackStream = class(TAudioProcessingStream)
protected
- SyncSource: TSyncSource;
+ SyncSource: ISyncSource;
AvgSyncDiff: double;
SourceStream: TAudioSourceStream;
@@ -282,7 +282,7 @@ type
procedure AddSoundEffect(Effect: TSoundEffect); virtual; abstract;
procedure RemoveSoundEffect(Effect: TSoundEffect); virtual; abstract;
- procedure SetSyncSource(SyncSource: TSyncSource);
+ procedure SetSyncSource(SyncSource: ISyncSource);
function GetSourceStream(): TAudioSourceStream;
property Status: TStreamStatus read GetStatus;
@@ -364,7 +364,7 @@ type
procedure SetLoop(Enabled: boolean);
procedure FadeIn(Time: real; TargetVolume: single);
- procedure SetSyncSource(SyncSource: TSyncSource);
+ procedure SetSyncSource(SyncSource: ISyncSource);
procedure Rewind;
function Finished: boolean;
@@ -978,7 +978,7 @@ begin
Result := SourceStream;
end;
-procedure TAudioPlaybackStream.SetSyncSource(SyncSource: TSyncSource);
+procedure TAudioPlaybackStream.SetSyncSource(SyncSource: ISyncSource);
begin
Self.SyncSource := SyncSource;
AvgSyncDiff := -1;